Como copiar rapidamente todos os endereços de e-mail que ocorrem no corpo para o campo “CC” ao redigir um e-mail do Outlook

Às vezes, ao redigir um e-mail, você pode querer copiar este e-mail para os endereços de e-mail no corpo da mensagem. Este artigo irá guiá-lo para obtê-lo em tempo rápido.

Por exemplo, alguém pede informações de contato de algumas pessoas, como endereços de e-mail. Nesse caso, você pode informar essas pessoas sobre esse assunto ao enviar suas informações de contato para outras pessoas. Portanto, você gostaria de copiar os endereços de e-mail do corpo da mensagem para o campo “CC”. Em geral, você deve fazer um por um manualmente. Mas é muito tedioso e pesado. Portanto, a seguir, apresentaremos uma maneira muito mais inteligente.

Copiar endereços de e-mail que ocorrem no corpo para o campo "CC" ao redigir

1. No início, pressione as teclas “Alt + F11” para iniciar o editor VBA do Outlook.
2. Em seguida, na nova janela, coloque o seguinte código VBA em um módulo vazio.

Sub CopyEmailAddresses_FromBodyToCCField()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Object
    Dim objDocRange As Object
    Dim objRecipient As Outlook.Recipient
 
    'Get the current mail
    Set objMail = Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocRange = objMailDocument.Range
 
    'Extract email addresses from mail body
    With objDocRange.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
         .MatchWildcards = True
         .Wrap = wdFindStop
         .Execute
    End With
 
    'Add the found email addresses as CC recipients
    While objDocRange.Find.Found
          Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
          objRecipient.Type = olCC
          objDocRange.Collapse wdCollapseEnd
          objDocRange.Find.Execute
    Wend
 
    'Resolve all recipients
    objMail.Recipients.ResolveAll
End Sub

3. Depois disso, saia do editor VBA e adicione esta nova macro à barra de ferramentas de acesso rápido da janela de mensagem consultando “Como executar o código VBA no seu Outlook".
4. Eventualmente, você pode dar um tiro. Aqui está minha instância real.

• Primeiro, escrevo um e-mail que contém uma pilha de endereços de e-mail no corpo.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Imediatamente, quando a macro terminar, todos os endereços de e-mail no corpo serão copiados para o campo “CC”, como na captura de tela abaixo.

E se seus dados do Outlook forem danificados

É sabido que o Outlook pode ser comprometido por diversos fatores, como erros humanos, desligamentos repentinos, falhas internas do software e mau funcionamento do hardware do computador, entre outros. Portanto, muitos usuários já se depararam com problemas semelhantes no Outlook. Admite-se que o problema mais irritante e problemático seja a corrupção de arquivos do Outlook. Nessa situação, será necessário recorrer a um profissional. Recuperação PST serviço ou software, 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 conserto de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com