Muitos usuários solicitam uma solução que lhes permita responder em lote a vários e-mails selecionados com o mesmo conteúdo no Outlook. Embora o Outlook não forneça esse recurso, você ainda pode obtê-lo por meio de um código VBA.
Eu ouvi um grande número de usuários reclamando que o Outlook não tem uma função que os suporte para enviar uma mesma resposta a vários e-mails de uma só vez. Quando eles selecionam vários e-mails, as ações “Responder” e “Responder a todos” ficarão acinzentadas – serão desativadas. Olhando para esse problema, a seguir, compartilharemos um método para realizar esse recurso.
Resposta em lote a vários e-mails com o mesmo conteúdo
- Primeiramente, inicie o programa Outlook.
- Em seguida, você precisa criar um modelo de resposta que deseja usar para responder a vários e-mails.
- Primeiro, crie um novo e-mail.
- Em seguida, escreva este e-mail com base no que deseja responder.
- Em seguida, clique em “Arquivo” e escolha a opção “Salvar como”.
- Mais tarde, na nova caixa de diálogo “Salvar como”, insira um nome e selecione “Modelo do Outlook” na caixa “Salvar como tipo”.
- Por fim, pressione o botão "OK".
- Em seguida, você pode fechar o e-mail sem salvar as alterações.
- Posteriormente, você deve pressionar os botões de tecla “Alt + F11”.
- Depois disso, a janela do editor VBA do Outlook será exibida.
- Agora, você deve localizar e abrir o projeto “ThisOutlookSession” e copiar o seguinte código VBA para ele.
Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
Dim objCommandBarButton As Office.CommandBarButton
If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
'Add a "Same Reply" option to the context menu
With objCommandBarButton
.Style = msoButtonIconAndCaption
.Caption = "Same Reply"
.FaceId = 355
.OnAction = "Project1.ThisOutlookSession.SendSameReply"
End With
End If
End Sub
Sub SendSameReply()
Dim strTemplate As String
Dim objTemplateReply As Outlook.MailItem
Dim strHTMLBody As String
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objReply As Outlook.MailItem
'Input the name of the previously saved template
strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
strHTMLBody = objTemplateReply.HTMLBody
Set objSelection = Application.ActiveExplorer.Selection
For i = objSelection.count To 1 Step -1
Set objReply = objSelection(i).Reply
With objReply
.HTMLBody = strHTMLBody & objReply.HTMLBody
.Send
End With
Next
End Sub
- Finalmente, você pode fechar a janela atual e tentar esta macro.
- Em primeiro lugar, selecione vários e-mails na lista de e-mail.
- Em seguida, clique com o botão direito sobre eles.
- Em seguida, escolha e clique na opção “Same Reply” no menu de contexto.
- Em seguida, você será solicitado a especificar o modelo usado para resposta.
- Depois de inserir o nome e clicar em “OK”, a mesma resposta será enviada para esses e-mails selecionados.
Outlook é propenso a corrupção
Como usuário regular do Outlook, estive sujeito a vários erros. Portanto, tomei várias medidas para proteger meus dados do Outlook. No entanto, devido ao fato de que o Outlook é suscetível a danos e é difícil prever falhas, tenho que me manter preparado o tempo todo. Por exemplo, para resgatar meus dados o mais rápido possível, mantive uma ferramenta de recuperação notável à mão – DataNumen Outlook Repair. É capaz de corrigir Outlook arquivo sem qualquer problema.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com