Como copiar em lote todos os hiperlinks em vários e-mails para um novo e-mail do Outlook

Se você deseja copiar todos os hiperlinks em vários e-mails e enviá-los em um novo e-mail para outra pessoa, pode usar a abordagem apresentada neste artigo. É capaz de permitir que você obtenha isso de uma só vez.

Às vezes, pode ser necessário extrair e enviar os hiperlinks de vários e-mails recebidos para um endereço de e-mail específico. Por exemplo, seu colega envia alguns e-mails que contêm hiperlinks relacionados a um projeto em andamento. Então, você gostaria de extrair esses hiperlinks para um único e-mail e enviar este e-mail para seu outro endereço de e-mail. Neste caso, o most A maneira direta é copiar hiperlinks para o novo e-mail, um por um, dos e-mails de origem. Mas, é muito estúpido e ineficiente. Agora, a seguir, compartilharemos com você um método mais conveniente e rápido.

Copiar em lote todos os hiperlinks em vários e-mails para um novo e-mail

1. No início, inicie o aplicativo Outlook.
2. Em seguida, selecione os e-mails dos quais deseja extrair hiperlinks.
3. Em seguida, acione o editor VBA do Outlook de acordo com “Como executar o código VBA no seu Outlook".
4. Na janela do editor VBA, habilite a referência a “MS Word Object Library” de acordo com “Como adicionar uma biblioteca de objetosrary Referência em VBA".
5. Posteriormente, coloque o código a seguir em um módulo.

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. Depois disso, pressione “F5” para executar esta macro agora.
7. Finalmente, quando a macro for concluída, um novo e-mail aparecerá, contendo todos os hiperlinks extraídos dos e-mails selecionados anteriormente.

Preste atenção especial a hiperlinks desconhecidos

É especialmente necessário que os usuários do Outlook tomem cuidado com todos os hiperlinks suspeitos em e-mails desconhecidos. é porque most deles podem conter vírus, o que pode resultar diretamente na corrupção de dados do Outlook. Obviamente, ninguém está pronto para perder seus dados do Outlook. Portanto, no trabalho diário, você deve ficar atento aos e-mails desconhecidos, evitando vírus e malware. Além disso, se possível, sugere-se contatar um profissional experiente e confiável Reparo do Outlook ferramenta, como DataNumen Outlook Repair. Certamente irá ajudá-lo muito quando o arquivo PST do Outlook for comprometido.

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