Como configurar uma Resposta Automática com a mensagem de correio eletrónico original no Outlook?

Normalmente, ao criar uma regra para responder automaticamente a e-mails com uma mensagem de ausência, a mensagem original não é incluída no corpo da resposta. Como pode configurar o Outlook para responder automaticamente aos e-mails incluindo a mensagem original? Neste artigo, explico um código VBA que o ajudará a concluir esta tarefa da forma mais rápida possível.

Resposta automática e-mails com a mensagem original no Outlook com código VBA

---

Resposta automática e-mails com a mensagem original no Outlook com código VBA

A regra normal do Outlook não consegue ajudá-lo nesta tarefa, mas com o seguinte código VBA poderá concluí-la de forma rápida e fácil. Siga estes passos:

1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Resposta automática e-mails com a mensagem original:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. Em seguida, guarde e feche a janela do código e reinicie ou feche o Outlook para que o código VBA entre em vigor. A partir de agora, sempre que receber e-mails, o Outlook enviará uma resposta automática com a mensagem original, tal como mostrado na imagem seguinte: