Como adicionar rapidamente a assinatura de e-mail aos detalhes de contato do remetente com o Outlook VBA

Ao receber um e-mail que contém uma assinatura detalhada, você pode adicioná-lo ao contato do remetente correspondente. Copiar e colar manualmente é demorado. Portanto, neste artigo, ajudaremos você a fazer isso com o Outlook VBA.

Sem dúvida, você já deve ter recebido esses e-mails que incluem as informações detalhadas dos remetentes na assinatura. Nesse momento, você pode adicionar os detalhes ao contato correspondente. Em geral, sem ajuda extra, você precisará procurar todos os seus contatos para encontrar o correto e copiar a assinatura para o corpo. Será bastante problemático. Felizmente, você pode realizá-lo via Outlook VBA, que é muito mais rápido. Aqui estão as operações elaboradas e os códigos VBA relacionados.

Adicione a assinatura de e-mail aos detalhes de contato do remetente

1. Em primeiro lugar, você devetarOutlook.
2. Em seguida, mude para a guia “Desenvolvedor” e clique no botão “Visual Basic”.
3. Na nova janela pop-up, você precisa abrir um novo módulo. Em seguida, selecione “Inserir” > “Módulo”.
4. Posteriormente, você deve copiar e colar os seguintes códigos no novo módulo.

Sub AddSignaturetoContact() Dim olItem As Outlook.MailItem Dim olInspector As Outlook.Inspector Dim objDoc As Word.Document Dim objWord As Word.Application Dim objSel As Word.Selection Dim Assinatura As String Dim olContacts As Outlook.Items Dim objVariant As Variant Dim i As Long Dim strBody As String Set olItem = Outlook.Application.ActiveInspector.CurrentItem If olItem.Class = olMail Then 'Selecione a assinatura Set olInspector = olItem.GetInspector If olInspector.EditorType = olEditorWord Then Set objDoc = olInspector.WordEditor Set objWord = objDoc .Application Set objSel = objWord.Selection Signature = objSel.Text Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items 'Passe por todos os contatos existentes para localizar o contato correspondente 'E adicione a assinatura a ele Para i = 1 Para olContacts.Count Se olContacts.Item(i).Class = olContact Então Definir objVariant = olContacts.Item(i) Se objVariant.Email1Address = olItem.SenderEmailAddress Então strBody = objVariant.Body Com objVariant .Body = strBody & vbCrLf & "-----Da Assinatura-----" & vbCrLf & vbCrLf & Assinatura .Salvar .Exibir End With End If End If Next End If End If End Sub

5. Depois disso, você pode sair da janela atual e abrir um e-mail.
6. Em seguida, clique na seta para baixo na Barra de Ferramentas de Acesso Rápido da janela de mensagem atual e selecione “Mais Comandos”.
7. Em seguida, na janela subsequente, você deve adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.
8. Depois de terminar todas as etapas acima, você pode finalmente tentar.

• Em primeiro lugar, abra o email cuja assinatura pretende adicionar ao contacto.
• Em seguida, selecione todos os textos da assinatura e clique no botão macro na Barra de Ferramentas de Acesso Rápido, conforme a imagem a seguir:
• Imediatamente, o Outlook irátart para procurar todos os contatos em sua pasta de contatos padrão. Depois de encontrá-lo, o Outlook adicionará a assinatura ao seu corpo e a exibirá, veja a seguinte captura de tela:

Lidar com problemas cansativos do Outlook

Como você sabe, o Outlook é propenso a erros, embora possua vários recursos. Portanto, para manter seus dados do Outlook em boa saúde, é melhor não confiar apenas na ferramenta de reparo da caixa de entrada. Você tem que se apossar de um mais preeminente ferramenta de reparo PST corrompido, Tais como DataNumen Outlook Repair, que pode resolver os problemas extremos que excederam a capacidade do Scanpst.exe

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 reparar banco de dados mdf SQL corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com