Kā ātri iegūt visus URL no Outlook e-pasta uz teksta failu

Saņemot e-pastu, kura pamattekstā ir vairāki svarīgi URL, ieteicams norādīt visus URL uz teksta failu. Tādējādi šajā rakstā mēs ieviesīsim metodi, kā to ātri iegūt.

Parasti, lai izvilktu vietrāžus URL no Outlook e-pasta teksta failā, vispirms ir jāizveido teksta fails un pēc tam manuāli jānokopē URL failā. Jūs domājat, ka tas ir pārāk apgrūtinoši un meklējat efektīvākus līdzekļus. Ja tā, jūs varat lasīt tālāk. Šeit mēs kopīgi izmantosim visu vietrāžu URL eksportēšanu no e-pasta partijām.

Ātri izvelciet visus e-pasta adreses URL uz teksta failu

1. Sākumā programmā Outlook piekļūstiet VBA redaktoram atbilstoši “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam nokopējiet un ielīmējiet šo VBA kodu neizmantotajā 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. Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai vai lentei.
4. Visbeidzot, veiciet tālāk norādītās darbības, lai mēģinātu.

• Vispirms atlasiet vai atveriet e-pastu.
• Pēc tam ātrās piekļuves rīkjoslā vai lentē noklikšķiniet uz makro pogas.
• Uzreiz tiks atvērts jauns vienkārša teksta fails, kurā jūs varat redzēt visus izvilktos UTL, kā parādīts nākamajā ekrānuzņēmumā.

Sargieties no riskantām saitēm e-pastā

Katru dienu programmā Outlook varat saņemt visu veidu e-pastus. Daži no tiem ir no zināmajiem kontaktiem, un daži var būt no nezināmiem sūtītājiem. Saskaroties ar tiem, jums ir jāuzmanās no nezināmiem e-pastiem, no kuriem daži var saturēt aizdomīgās saites. Atverot saites, jūsu Outlook fails var būt inficēts ar vīrusiem. Tad jums ne tikai vajadzēs nogalināt vīrusus, izmantojot antivīrusu programmatūru, bet arī jums ir jālabo ciešošais PST fails, izmantojot spēcīgu Outlook remonts lietderība, piemēram DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar