Как бързо да извлечете всички URL адреси от имейл на Outlook в текстов файл

Когато получавате имейл, който съдържа множество важни URL в тялото, може да искате да прецизирате всички URL адреси в текстов файл. По този начин в тази статия ще въведем метод за бързо получаване.

Обикновено, за да извлечете URL адресите от имейл на Outlook в текстов файл, първо трябва да създадете текстов файл и след това ръчно да копирате URL адресите във файла. Може да ви се стори твърде обезпокоително и да търсите по-ефективно средство. Ако е така, можете да прочетете нататък. Тук ще споделим подход за експортиране на всички URL адреси от имейл на партиди.

Бързо извличане на всички URL адреси в имейл в текстов файл

1. В самото начало във вашия Outlook отворете редактора на VBA според „Как да стартирате VBA код във вашия Outlook".
2. След това копирайте и поставете следния VBA код в неизползван модул.

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. След това добавете този макрос към лентата с инструменти за бърз достъп или лентата.
4. И накрая, направете стъпките по-долу, за да опитате.

• Преди всичко изберете или отворете имейл.
• След това щракнете върху бутона за макрос в лентата с инструменти за бърз достъп или лентата.
• Веднага ще се отвори нов обикновен текстов файл, в който можете да видите всички извлечени UTL, както е показано на следващата екранна снимка.

Пазете се от рискови връзки в имейл

Всеки ден можете да получавате всякакви имейли във вашия Outlook. Някои са от известните контакти, а други може да идват от неизвестните податели. Сблъсквайки се с тях, трябва да се пазите от неизвестните имейли, някои от които могат да носят подозрителните връзки. Ако отворите връзките, вашият файл на Outlook може да е заразен с вируси. Тогава не само ще трябва да убивате вирусите чрез антивирусен софтуер, но и ще трябва да поправите страдащия PST файл чрез мощен Поправка на Outlook полезност, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server ремонт и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com