Qanday qilib barcha URL manzillarini Outlook elektron pochtasidan matnli faylga tezda chiqarib olish mumkin

Outlook yechimlari Sentyabr 29, 2025

Tanadagi bir nechta muhim URL manzillarini o'z ichiga olgan elektron pochta xabarini olganingizda, barcha URL manzillarini matnli faylga to'ldirishni xohlashingiz mumkin. Shunday qilib, ushbu maqolada biz uni tezda olish usulini taqdim etamiz.

Odatda, URL-manzillarni Outlook elektron pochtasidan matnli faylga chiqarish uchun avval matn faylini yaratishingiz va keyin URL-manzillarni faylga qo'lda nusxalashingiz kerak. Siz buni juda qiyin deb o'ylashingiz va samaraliroq vositani izlayotgan bo'lishingiz mumkin. Agar shunday bo'lsa, siz o'qishingiz mumkin. Bu erda biz barcha URL-manzillarni elektron pochtadan to'plamlarda eksport qilish yondashuvini baham ko'ramiz.

Elektron pochtadagi barcha URL manzillarini matn fayliga tezda chiqarib oling

Dastlab, Outlook-da “VBA muharririga kiring.Outlook-da VBA kodini qanday ishlatish kerak".
Keyin, foydalanilmagan modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

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

Shundan so'ng, ushbu makrosni Tez kirish asboblar paneli yoki lentaga qo'shing.
Nihoyat, sinab ko'rish uchun quyidagi amallarni bajaring.

Avvalo, elektron pochtani tanlang yoki oching.
Keyin, Tez kirish asboblar paneli yoki lentasidagi so'l tugmani bosing.
Bir vaqtning o'zida yangi oddiy matn fayli ochiladi, unda siz quyidagi skrinshotda ko'rsatilganidek, barcha chiqarilgan UTL-larni ko'rishingiz mumkin.

Elektron pochtadagi xavfli havolalardan ehtiyot bo'ling

Har kuni Outlook-da barcha turdagi elektron pochta xabarlarini olishingiz mumkin. Ba'zilari ma'lum kontaktlardan, ba'zilari esa noma'lum jo'natuvchilardan kelishi mumkin. Ularning oldida siz noma'lum elektron pochta xabarlaridan ehtiyot bo'lishingiz kerak, ularning ba'zilarida shubhali havolalar bo'lishi mumkin. Agar havolalarni ochsangiz, Outlook faylingiz viruslar bilan zararlangan bo'lishi mumkin. Keyin nafaqat antivirus dasturi orqali viruslarni o'ldirishingiz kerak, balki kuchli PST faylini ham tuzatishingiz kerak bo'ladi. Outlook-ni ta'mirlash kabi foydali dastur DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com