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?