Note: The other languages of the website are Google-translated. Back to English

Como responder automaticamente com a mensagem de e-mail original no Outlook?

Normalmente, quando criamos uma regra para confiar automaticamente o e-mail fora do escritório, a mensagem original no corpo não será incluída. Como você pode confiar automaticamente nos e-mails com a mensagem original no Outlook? Neste artigo, falarei sobre um código VBA para ajudá-lo a terminar este trabalho o mais rápido possível no Outlook.

Responder automaticamente e-mails com mensagem original no Outlook com código VBA


Responder automaticamente e-mails com mensagem original no Outlook com código VBA

A regra normal do Outlook não pode ajudá-lo a lidar com o trabalho, mas, com o seguinte código VBA, você pode terminar isso de forma rápida e fácil. Faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo ThisOutlookSession do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: resposta automática a e-mails com 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, salve e feche a janela de código, feche ou reinicie o Outlook para que o código VBA tenha efeito. Agora, quando você receber e-mails, o Outlook enviará uma resposta automática com a mensagem original, conforme mostrado a seguir:


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (6)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Como você pode modificar isso para executar apenas se houver uma palavra-chave na mensagem do corpo?
Este comentário foi feito pelo moderador no site
Estou com a mesma dúvida, você conseguiu?
Este comentário foi feito pelo moderador no site
tente thisDim olMail As object
If (olMail.Subject Like "*Place_Keyword_here(Leave_doublequotes_and_asteriscs)*") Então
CodeEnd se
Este comentário foi feito pelo moderador no site
Oi tenho a mesma dúvida: como aplico essa regra apenas para remetente selecionado?br
Este comentário foi feito pelo moderador no site
Olá, Damien, Para especificar alguns remetentes na resposta automática, aplique o código abaixo:

Public WithEvents xlItems As Outlook.Items
Sub-aplicação privada_Startup ()
Definir xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlResponder como MailItem
Dim xStr As String
Dim xSenderAddr como string
On Error Resume Next
If objItem.Class <> olMail Then Exit Sub
xSenderAddr = "497300722@qq.com,yy@addin99.com" 'digite seus próprios emials de remetente aqui, separe-os por vírgulas.
Se objItem.Sender.Type = "EX" Então
Se InStr(xSenderAddr, objItem.Sender.GetExchangeUser.PrimarySmtpAddress) = 0 Então Exit Sub
Outro
Se InStr(xSenderAddr, objItem.Sender.Address) = 0 Então Exit Sub
Se acabar
Definir xlReply = objItem.Reply
Com xlReply
xStr = " " & "Olá, seu e-mail foi recebido. Obrigada!" & " "
.HTMLBody = xStr & .HTMLBody
.Mandar
Terminar com
End SubPor favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Oi, eu tentei isso, mas não funcionou (:
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL