Responder a un mensaje de correo electrónico mediante vba

Una macro me envía un correo por un gestor de correo llamado groupwise. Hasta ahí, sin problema.

Esta es la parte de la macro que crea el mensaje y envia:

        Set ogwApp = CreateObject("NovellGroupWareSession")
        DoEvents
    End If
    If ogwRootAcct Is Nothing Then 'Need to log in
         'Login to root account
        If Len(StrMailPassword) Then 'Password was passed, so use it
            sCommandOptions = "/pwd=" & StrMailPassword
        Else 'Password was not passed
            sCommandOptions = vbNullString
        End If
        Set ogwRootAcct = ogwApp.Login(StrLoginName, sCommandOptions, _
        , egwPromptIfNeeded)
        DoEvents
    End If
    Set ogwNewMessage = ogwRootAcct.WorkFolder.Messages.Add _
    ("GW.MESSAGE.MAIL", egwDraft)
    DoEvents
    ogwNewMessage.Recipients.Add "[email protected]", NGW, egwTo
      With ogwNewMessage
        If Not StrSubject = "" Then .Subject = StrSubject
        If Not StrBody = "" Then .BodyText = StrBody
        If Not strAttachFullPathName = "" Then .Attachments.Add strAttachFullPathName
        On Error Resume Next
        .DelayedDeliveryDate = DateAdd("n", 10, Now)
        .Send
        DoEvents
        On Error GoTo 0
    End With
    Set ogwNewMessage = Nothing
    Set ogwRootAcct = Nothing
    Set ogwApp = Nothing
    DoEvents
End Sub

Mirando en las instrucciones que puso eldesarrollador de groupwise para VBA, veo que se puede responder a un mensaje, y dice esto literalmente:

¿Y mi pregunta es como podría adaptar esto para contestar a un mensaje recibido?

Añade tu respuesta

Haz clic para o