Slik trekker du ut alle URL-er raskt fra en Outlook-e-post til en tekstfil

Outlook-løsninger September 29, 2025

Når du mottar en e-post som inneholder flere viktige URL-er i brødteksten, kan det være lurt å sende alle URL-er til en tekstfil. Derfor vil vi i denne artikkelen introdusere en metode for raskt å få det.

Vanligvis, for å trekke ut URL-ene fra en Outlook-e-post til en tekstfil, må du først opprette en tekstfil og deretter manuelt kopiere URL-ene til filen. Du synes kanskje det er for plagsomt og leter etter et mer effektivt middel. I så fall kan du lese videre. Her vil vi dele en tilnærming til å eksportere alle URL-er fra en e-post i grupper.

Trekk ut alle URL-er i en e-post raskt til en tekstfil

  1. Til å begynne med, i Outlook, får du tilgang til VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
  2. Deretter kopierer og limer du inn følgende VBA-kode i en ubrukt 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

VBA-kode - Pakk ut alle URL-er i en e-post til en tekstfil

  1. Deretter legger du til denne makroen på verktøylinjen eller båndet for hurtigtilgang.
  2. Til slutt, ta trinnene nedenfor for å prøve.
  • Først av alt, velg eller åpne en e-post.
  • Deretter klikker du på makroknappen i hurtigtilgangsverktøylinjen eller båndet.Kjør makro
  • Med en gang åpnes en ny ren tekstfil, der du kan se alle de utpakkede UTL-ene, som vist i følgende skjermbilde.Utpakkede URL-er i en tekstfil

Pass deg for risikable lenker i e-post

Hver dag kan du motta alle slags e-poster i Outlook. Noen er fra de kjente kontaktene, og noen kan komme fra de ukjente avsendere. I møte med dem må du passe deg for de ukjente e-postene, hvorav noen kan inneholde mistenkelige koblinger. Hvis du åpner koblingene, kan Outlook-filen din være infisert med virus. Da må du ikke bare drepe virusene via antivirusprogramvare, men du må også reparere den lidende PST-filen via en potent Outlook reparasjon nytte, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server reparasjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.