Como extrair rapidamente todos os URLs de um e-mail do Outlook para um arquivo de texto

Ao receber um e-mail que contém vários URLs importantes no corpo, convém incluir todos os URLs em um arquivo de texto. Assim, neste artigo, apresentaremos um método para obtê-lo rapidamente.

Normalmente, para extrair os URLs de um e-mail do Outlook para um arquivo de texto, você deve primeiro criar um arquivo de texto e copiar manualmente os URLs para o arquivo. Você pode achar que é muito problemático e está procurando um meio mais eficaz. Se assim for, você pode continuar a ler. Aqui, compartilharemos uma abordagem para exportar todos os URLs de um e-mail em lotes.

Extraia rapidamente todos os URLs em um e-mail para um arquivo de texto

1. Inicialmente, em seu Outlook, acesse o editor VBA conforme “Como executar o código VBA no seu Outlook".
2. Em seguida, copie e cole o seguinte código VBA em um módulo não utilizado.

Sub ExportURLsFromEmail2TextFile ()
    Dim objMail As Outlook.MailItem
    Dim objRegExp As RegExp
    Dim strFolder As String
    Dim objMatchCollection As MatchCollection
    Dim objMatch As Match
    Dim strURL As String
 
    'Get the source mail
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select

    'Get URLs using regular expression
    Set objRegExp = New RegExp
    With objRegExp
         .Pattern = "(https?[:]//([0-9a-z=\?:/\.&-^!#$;_])*)"
         .Global = True
         .IgnoreCase = True
    End With
 
    If objRegExp.test(objMail.Body) Then
  
       'Create a new text file
       strTextFile = "E:\Hyperlinks (" & objMail.Subject & ").txt"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
       objTextFile.WriteLine ("Extracted URLs:" & vbCrLf & vbCrLf)
 
       Set objMatchCollection = objRegExp.Execute(objMail.Body)
       i = 0
       For Each objMatch In objMatchCollection
           strURL = objMatch.SubMatches(0)
           i = i + 1
 
           'Write the URLs to the text file
           objTextFile.WriteLine (i & ". " & strURL & vbCrLf)
       Next
 
       objTextFile.Close
       'Open the text file
       Shell ("notepad.exe " & strTextFile)
    End If
End Sub

3. Depois disso, adicione esta macro à barra de ferramentas de acesso rápido ou à faixa de opções.
4. Por fim, siga as etapas abaixo para tentar.

• Em primeiro lugar, selecione ou abra um e-mail.
• Em seguida, clique no botão de macro na barra de ferramentas de acesso rápido ou na faixa de opções.
• De uma vez, um novo arquivo de texto simples será aberto, no qual você pode ver todos os UTLs extraídos, conforme mostrado na captura de tela a seguir.

Cuidado com links perigosos no e-mail

Todos os dias, você pode receber todos os tipos de e-mails em seu Outlook. Alguns são de contatos conhecidos e alguns podem vir de remetentes desconhecidos. Diante deles, você precisa tomar cuidado com os e-mails desconhecidos, alguns dos quais podem conter links suspeitos. Se você abrir os links, seu arquivo do Outlook pode estar infectado por vírus. Então, você não apenas precisará matar os vírus por meio de um software antivírus, mas também reparar o arquivo PST danificado por meio de um potente Reparo do Outlook utilitário, 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 reparar e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com