Kuinka purkaa kaikki URL-osoitteet nopeasti Outlook-sähköpostista tekstitiedostoon

Kun vastaanotat sähköpostin, joka sisältää useita tärkeitä URL-osoitteita tekstiosassa, saatat haluta tarkentaa kaikki URL-osoitteet tekstitiedostoon. Siksi tässä artikkelissa esittelemme menetelmän saada se nopeasti.

Yleensä, jotta voit purkaa URL-osoitteet Outlook-sähköpostista tekstitiedostoon, sinun on ensin luotava tekstitiedosto ja kopioitava sitten URL-osoitteet manuaalisesti tiedostoon. Saatat pitää sitä liian hankalana ja etsit tehokkaampaa keinoa. Jos on, voit lukea eteenpäin. Tässä jaamme tapa viedä kaikki URL-osoitteet sähköpostista erissä.

Pura nopeasti kaikki sähköpostin URL-osoitteet tekstitiedostoon

1. Siirry aluksi Outlookissasi VBA-editoriin kohdan "Kuinka suorittaa VBA-koodi Outlookissa".
2. Kopioi ja liitä sitten seuraava VBA-koodi käyttämättömään moduuliin.

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. Lisää tämän jälkeen tämä makro Pikakäynnistystyökaluriville tai nauhalle.
4. Kokeile lopuksi alla olevia ohjeita.

• Valitse ensin tai avaa sähköposti.
• Napsauta sitten pikatyökalupalkin tai nauhan makropainiketta.
• Heti avautuu uusi pelkkä tekstitiedosto, jossa näet kaikki puretut UTL:t, kuten seuraavassa kuvakaappauksessa näkyy.

Varo riskialttiita linkkejä sähköpostissa

Voit vastaanottaa Outlookissasi joka päivä kaikenlaisia ​​sähköposteja. Jotkut ovat tunnetuilta yhteyshenkilöiltä, ​​ja jotkut voivat tulla tuntemattomilta lähettäjiltä. Niiden edessä sinun on varottava tuntemattomia sähköposteja, joista osa saattaa sisältää epäilyttäviä linkkejä. Jos avaat linkit, Outlook-tiedostosi saattaa olla viruksen tartuttama. Silloin sinun ei tarvitse vain tappaa viruksia virustorjuntaohjelmistolla, vaan myös korjata kärsivä PST-tiedosto tehokkaalla Outlookin korjaus apuohjelma, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com