Ako rýchlo extrahovať všetky adresy URL z e-mailu programu Outlook do textového súboru

Keď dostanete e-mail, ktorý obsahuje viac dôležitých adries URL v tele, možno budete chcieť presmerovať všetky adresy URL na textový súbor. V tomto článku teda predstavíme metódu, ako ju rýchlo získať.

Ak chcete zvyčajne extrahovať adresy URL z e-mailu programu Outlook do textového súboru, musíte najskôr vytvoriť textový súbor a potom adresy URL do súboru ručne skopírovať. Možno si myslíte, že je to príliš nepríjemné a hľadáte efektívnejšie prostriedky. Ak je to tak, môžete čítať ďalej. Tu budeme zdieľať prístup k hromadnému exportu všetkých adries URL z e-mailu.

Rýchlo extrahujte všetky adresy URL z e-mailu do textového súboru

1. Na začiatku vo svojom Outlooku otvorte editor VBA podľa „Ako spustiť kód VBA v programe Outlook".
2. Potom skopírujte a vložte nasledujúci 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. Potom pridajte toto makro na panel nástrojov alebo pásku s nástrojmi Rýchly prístup.
4. Nakoniec vyskúšajte kroky uvedené nižšie.

• Najskôr vyberte alebo otvorte e-mail.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi alebo na páse s nástrojmi Rýchly prístup.
• Hneď sa otvorí nový súbor vo formáte obyčajného textu, v ktorom môžete vidieť všetky extrahované UTL, ako je znázornené na nasledujúcej snímke obrazovky.

Dajte si pozor na riskantné odkazy v e-maile

Každý deň môžete do Outlooku dostávať všetky druhy e-mailov. Niektoré pochádzajú od známych kontaktov a niektoré pochádzajú od neznámych odosielateľov. Pred nimi si musíte dať pozor na neznáme e-maily, z ktorých niektoré môžu obsahovať podozrivé odkazy. Ak otvoríte odkazy, váš súbor Outlook môže byť infikovaný vírusmi. Potom budete musieť nielen zabiť vírusy pomocou antivírusového softvéru, ale musíte tiež opraviť trpiaci súbor PST pomocou účinného softvéru. Oprava Outlook užitočnosť, ako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server oprava a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S