Kuidas kiiresti kõik URL-id Outlooki meilist tekstifaili ekstraheerida

Outlooki lahendused September 29, 2025

Kui saate meili, mis sisaldab sisus mitut olulist URL-i, võiksite kõik URL-id tekstifaili sisestada. Seega tutvustame selles artiklis meetodit selle kiireks hankimiseks.

Tavaliselt peate URL-ide ekstraheerimiseks Outlooki meilist tekstifaili esmalt looma tekstifaili ja seejärel URL-id käsitsi faili kopeerima. Võib-olla arvate, et see on liiga tülikas ja otsite tõhusamat vahendit. Kui jah, siis võite edasi lugeda. Siin jagame lähenemisviisi kõigi URL-ide eksportimiseks meilidest partiidena.

Ekstraheerige kõik meilis olevad URL-id kiiresti tekstifaili

  1. Alguses avage Outlookis VBA redigeerija vastavalt "Kuidas Outlookis VBA-koodi käivitada".
  2. Seejärel kopeerige ja kleepige järgmine VBA kood kasutamata moodulisse.
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 kood – ekstraheerige kõik meilis olevad URL-id tekstifaili

  1. Pärast seda lisage see makro kiirpääsu tööriistaribale või lindile.
  2. Lõpuks järgige proovimiseks allolevaid samme.
  • Kõigepealt valige või avage e-kiri.
  • Seejärel klõpsake kiirpääsuribal või lindil makronuppu.Käivitage makro
  • Korraga avatakse uus lihtteksti fail, milles näete kõiki ekstraktitud UTL-e, nagu on näidatud järgmisel ekraanipildil.Ekstraheeritud URL-id tekstifailis

Hoiduge riskantsete linkide eest meilis

Iga päev saate oma Outlookis vastu võtta igasuguseid e-kirju. Mõned on pärit teadaolevatelt kontaktidelt ja mõned võivad pärineda tundmatutelt saatjatelt. Nendega silmitsi seistes peate olema ettevaatlik tundmatute meilide eest, millest mõned võivad sisaldada kahtlasi linke. Kui avate lingid, võib teie Outlooki fail olla viirustega nakatunud. Seejärel ei pea te mitte ainult viiruseid viirusetõrjetarkvara abil tapma, vaid ka parandama kannatava PST-faili tugeva vahendi abil. Outlooki parandamine utiliit, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.