Jak rychle extrahovat všechny adresy URL z e-mailu aplikace Outlook do textového souboru

Když obdržíte e-mail, který obsahuje více důležitých adres URL v těle, možná budete chtít přesměrovat všechny adresy URL na textový soubor. V tomto článku tedy představíme metodu, jak ji rychle získat.

Chcete-li extrahovat adresy URL z e-mailu aplikace Outlook do textového souboru, musíte obvykle vytvořit textový soubor a poté adresy URL zkopírovat ručně do souboru. Možná to považujete za příliš nepříjemné a hledáte efektivnější prostředky. Pokud ano, můžete číst dál. Zde budeme sdílet přístup k exportu všech adres URL z e-mailu v dávkách.

Rychle extrahujte všechny adresy URL z e-mailu do textového souboru

1. Na začátku ve svém Outlooku otevřete editor VBA podle „Jak spustit kód VBA ve vašem Outlooku".
2. Poté zkopírujte a vložte následující kód VBA do nepoužívaného modulu.

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. Poté přidejte toto makro na panel nástrojů Rychlý přístup nebo na pás karet.
4. Nakonec vyzkoušejte následující kroky.

• Nejprve vyberte nebo otevřete e-mail.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup nebo na pásu karet.
• Najednou se otevře nový soubor ve formátu prostého textu, ve kterém můžete vidět všechny extrahované UTL, jak je znázorněno na následujícím snímku obrazovky.

Dejte si pozor na riskantní odkazy v e-mailu

Každý den můžete do Outlooku přijímat všechny druhy e-mailů. Některé pocházejí od známých kontaktů a některé pocházejí od neznámých odesílatelů. Tváří v tvář jim musíte dávat pozor na neznámé e-maily, z nichž některé mohou obsahovat podezřelé odkazy. Pokud odkazy otevřete, může být váš soubor aplikace Outlook infikován viry. Pak budete nejen muset zabít viry pomocí antivirového softwaru, ale také musíte opravit trpící soubor PST pomocí silného Oprava aplikace Outlook nástroj, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com