Sådan udtrækkes hurtigt alle URL'er fra en Outlook-e-mail til en tekstfil

Når du modtager en e-mail, der indeholder flere vigtige URL'er i brødteksten, vil du måske ønske alle URL'er til en tekstfil. Derfor vil vi i denne artikel introducere en metode til hurtigt at få det.

Normalt, for at udtrække URL'erne fra en Outlook-e-mail til en tekstfil, skal du først oprette en tekstfil og derefter manuelt kopiere URL'erne til filen. Du synes måske, det er for besværligt og søger et mere effektivt middel. Hvis ja, kan du læse videre. Her vil vi dele en tilgang til at eksportere alle URL'er fra en e-mail i batches.

Uddrag hurtigt alle URL'er i en e-mail til en tekstfil

1. Til at begynde med, i din Outlook, skal du få adgang til VBA-editor i henhold til "Sådan køres VBA-kode i din Outlook".
2. Kopier og indsæt derefter følgende VBA-kode i et ubrugt modul.

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. Derefter skal du tilføje denne makro til værktøjslinjen til hurtig adgang eller båndet.
4. Til sidst skal du tage nedenstående trin for at prøve.

• Først og fremmest skal du vælge eller åbne en e-mail.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang eller båndet.
• På én gang åbnes en ny almindelig tekstfil, hvor du kan se alle de udpakkede UTL'er, som vist på det følgende skærmbillede.

Pas på risikable links i e-mail

Hver dag kan du modtage alle slags e-mails i din Outlook. Nogle er fra de kendte kontakter, og nogle kan komme fra de ukendte afsendere. Overfor dem skal du passe på de ukendte e-mails, hvoraf nogle kan indeholde de mistænkelige links. Hvis du åbner linkene, kan din Outlook-fil være inficeret med virus. Så bliver du ikke kun nødt til at dræbe vira via antivirussoftware, men du skal også reparere den lidende PST-fil via en potent Outlook reparation hjælpeprogram, ligesom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server reparere og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com