Бүх URL-уудыг Outlook имэйлээс текст файл руу хэрхэн хурдан гаргах вэ?

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Биеийн доторх олон чухал URL агуулсан имэйл хүлээн авахдаа та бүх URL-уудыг текст файлд яг тохируулахыг хүсч магадгүй юм. Тиймээс, энэ нийтлэлд бид үүнийг хурдан олж авах аргыг танилцуулах болно.

Ихэнхдээ URL-уудыг Outlook имэйлээс текст файл руу задлахын тулд эхлээд текст файл үүсгээд дараа нь файлыг URL-уудаа гараар хуулах хэрэгтэй. Та үүнийг хэтэрхий төвөгтэй гэж бодож магадгүй бөгөөд илүү үр дүнтэй арга хайж байна. Хэрэв тийм бол та үргэлжлүүлэн уншиж болно. Энд бид имэйлээс бүх URL-уудыг багц хэлбэрээр экспортлох хандлагыг хуваалцах болно.

Текст файл руу имэйлийн бүх URL-уудыг хурдан гаргаж авах

Эхэндээ, Outlook дээрээ VBA редакторт “Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
Дараа нь дараахь 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

Үүний дараа Quick Access Toolbar эсвэл туузанд энэ макро нэмж оруулна уу.
Эцэст нь туршиж үзэхийн тулд доорх алхмуудыг хий.

Юуны өмнө имэйлийг сонгож эсвэл нээнэ үү.
Дараа нь Quick Access Toolbar эсвэл тууз дээрх макро товчийг дарна уу.
Нэг удаад шинэ энгийн текст файл нээгдэх бөгөөд дараахь дэлгэцийн агшинг харуулсан шиг бүх олборлосон UTL-үүдийг харах боломжтой болно.

Имэйл дэх эрсдэлтэй холбоосуудаас болгоомжил

Өдөр бүр та Outlook дээрээс бүх төрлийн имэйл хүлээн авах боломжтой. Зарим нь мэдэгдэж буй харилцагчдынх, зарим нь үл мэдэгдэх илгээгчдээс ирсэн байж магадгүй юм. Тэдний өмнө үл мэдэгдэх имэйлээс болгоомжлох хэрэгтэй бөгөөд зарим нь сэжигтэй холбоосыг агуулж болзошгүй юм. Хэрэв та холбоосыг нээвэл таны Outlook файл вирусаар халдварлагдсан байж болзошгүй. Дараа нь та вирусыг зөвхөн вирусны эсрэг програмаар устгахаас гадна зовж шаналж буй PST файлыг хүчирхэг тусламжтайгаар засах хэрэгтэй болно. Outlook засвар хэрэгсэл, гэх мэт DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com