Como inserir rapidamente nomes de destinatários no corpo do e-mail no Outlook

Se você deseja inserir rapidamente os nomes dos destinatários no corpo ao redigir um e-mail, leia este artigo. Aqui, apresentaremos um método conveniente.

Às vezes, pode ser necessário inserir os nomes de todos os destinatários no corpo ao redigir um e-mail. Sem dúvida, é consideravelmente tedioso e complicado extrair e inserir os nomes no corpo um por um manualmente. Portanto, para ajudá-lo a realizá-lo rapidamente, compartilharemos aqui um meio eficiente. Continue lendo para obter suas etapas detalhadas.

Inserir nomes de destinatários no corpo do e-mail

1. Para começar, acesse o editor VBA pressionando “Alt + F11”.
2. Em seguida, na janela “Microsoft Visual Basic for Applications”, habilite a “Biblioteca de Objetos do MS Word” de acordo com “Como adicionar uma referência à biblioteca de objetos em VBA".
3. Em seguida, copie o código VBA abaixo em um módulo vazio.

Sub CopyRecipientNamesToBody()
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim strRecipAddress As String
    Dim strRecipName As String
    Dim objContacts As Outlook.Items
    Dim i As Integer
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim strRecipNames As String
    Dim objMailDocument As Word.Document
 
    'Get the current email
    Set objMail = Application.ActiveInspector.CurrentItem
    objMail.Recipients.ResolveAll
 
    For Each objRecipient In objMail.Recipients
        strRecipAddress = objRecipient.Address
 
        'Get the corresponding contact name
        Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
        For i = 1 To 3
            strFilter = "[Email" & i & "Address] = " & strRecipAddress
            Set objFoundContact = objContacts.Find(strFilter)
            If Not (objFoundContact Is Nothing) Then
               strRecipNames = strRecipNames & objFoundContact.FullName & vbCr
               Exit For
            End If
        Next
 
        'If there isn't associated contact
        'Extract name from email address
        If objFoundContact Is Nothing Then
           strRecipName = Split(strRecipAddress, "@")(0)
           strRecipName = UCase(Left(strRecipName, 1)) & Right(strRecipName, Len(strRecipName) - 1)
           strRecipNames = strRecipNames & strRecipName & vbCr
        End If
    Next
 
    'Insert the names at the beginning of email
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range(0, 0).InsertAfter strRecipNames
End Sub

3. Em seguida, adicione esta macro à barra de ferramentas de acesso rápido da janela de mensagem de acordo com a etapa opcional em “Como executar o código VBA no seu Outlook".
4. Depois disso, saia da janela.
5. Finalmente, tire uma foto.

• Primeiro, escreva um e-mail e preencha os destinatários.
• Em seguida, pressione o botão de macro na Barra de Ferramentas de Acesso Rápido.
• Quando a macro terminar, os nomes dos destinatários serão inseridos no corpo do e-mail, conforme mostrado na figura abaixo.

Proteja-se contra danos no Outlook

Como o Outlook é vulnerável, é difícil protegê-lo contra danos. Sem dúvida, você deve estar relutante em encontrar Corrupção PST. Portanto, é melhor você tomar algumas precauções eficazes. Por exemplo, você precisa fazer backups de dados consistentes para o Outlook, estar familiarizado com o uso da ferramenta de reparo da caixa de entrada e manter uma ferramenta externa poderosa por perto, como DataNumen Outlook Repair.

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 SQL Server fixo e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com