Como adicionar em lote todos os destinatários de vários e-mails aos contatos do Outlook

Alguns usuários desejam uma solução que lhes permita adicionar rapidamente todos os destinatários de vários e-mails à pasta de contatos do Outlook como novos contatos. Portanto, este artigo apresentará uma abordagem tão rápida.

Por exemplo, você recebe alguns e-mails que são enviados simultaneamente para muitos outros destinatários, exceto você. Além disso, esses destinatários não são armazenados em seus contatos do Outlook. Nesse caso, convém adicionar esses destinatários aos contatos do Outlook. Para alcançá-lo em lotes, você pode usar a seguinte maneira.

Adicionar em lote todos os destinatários de vários e-mails aos contatos do Outlook

1. Para começar, inicie seu programa Outlook.
2. Em seguida, pressione os botões de tecla “Alt + F11” para acessar o Outlook VBA eidtor.
3. Posteriormente, na janela “Microsoft Visual Basic for Applications”, copie e cole o seguinte código em um módulo em branco.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. Depois disso, minimize ou saia desta janela.
5. Mais tarde, você deve adicionar esta macro à barra de ferramentas de acesso rápido com referência a “Como executar o código VBA no seu Outlook".
6. Finalmente, você pode tentar esta macro.

• Primeiro, selecione vários e-mails cujos destinatários serão adicionados aos contatos.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Quando a macro terminar, você pode ir para a pasta de contatos padrão. Esses destinatários foram adicionados.
• O novo contato terá a aparência da captura de tela a seguir.

Fique atento a todos os riscos em torno do seu Outlook

Embora o Outlook seja dotado de diversos recursos, ele é vulnerável a muitos fatores, incluindo erros humanos, falhas de software, problemas de hardware e vírus. Portanto, é necessário ficarmos atentos a todos os riscos potenciais em torno do nosso Outlook. Além disso, tomar precauções suficientes é uma questão de necessidade. Por exemplo, é melhor obter uma ferramenta de correção de PST, como DataNumen Outlook Repair, Que pode reparar PST problemas com facilidade sem esforço.

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