Bütün URL-ləri Outlook e-poçtundan mətn faylına necə tez çıxarmaq olar

Bədəndə çoxlu mühüm URL-ləri ehtiva edən e-poçt qəbul edərkən, bütün URL-ləri mətn faylına dəqiqləşdirmək istəyə bilərsiniz. Beləliklə, bu məqalədə onu tez bir zamanda əldə etmək üçün bir üsul təqdim edəcəyik.

Adətən, URL-ləri Outlook e-poçtundan mətn faylına çıxarmaq üçün əvvəlcə mətn faylı yaratmalı və sonra URL-ləri fayla əl ilə kopyalamalısınız. Siz bunu çox çətin hesab edə və daha təsirli vasitə axtarırsınız. Əgər belədirsə, oxuya bilərsiniz. Burada biz bütün URL-lərin e-poçtdan paketlər şəklində ixracına yanaşmanı paylaşacağıq.

E-poçtdakı bütün URL-ləri mətn faylına sürətlə çıxarın

1. Başlanğıcda, Outlook-da “VBA redaktoruna daxil olun”Outlook-da VBA kodunu necə işlətmək olar".
2. Sonra, aşağıdakı VBA kodunu istifadə olunmamış modula köçürün və yapışdırın.

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. Bundan sonra bu makronu Tez Giriş Alətlər Panelinə və ya lentə əlavə edin.
4. Nəhayət, cəhd etmək üçün aşağıdakı addımları atın.

• Əvvəlcə e-poçtu seçin və ya açın.
• Sonra, Tez Giriş Alətlər Panelində və ya lentdə makro düyməsini basın.
• Dərhal yeni düz mətn faylı açılacaq, burada aşağıdakı ekran görüntüsündə göstərildiyi kimi bütün çıxarılan UTL-ləri görə bilərsiniz.

E-poçtdakı Riskli Linklərdən çəkinin

Hər gün Outlook-da bütün növ e-poçtları qəbul edə bilərsiniz. Bəziləri məlum kontaktlardan, bəziləri isə naməlum göndəricilərdən gələ bilər. Onlarla qarşılaşdıqda, bəziləri şübhəli bağlantılar daşıya bilən naməlum e-poçtlardan ehtiyatlı olmalısınız. Bağlantıları açsanız, Outlook faylınız viruslara yoluxmuş ola bilər. Bundan sonra, yalnız antivirus proqramı vasitəsilə virusları öldürməli deyilsiniz, həm də əziyyət çəkən PST faylını güclü bir proqram vasitəsi ilə təmir etməlisiniz. Outlook təmiri kimi faydalılıq DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server təmir və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com