วิธีการแยก URL ทั้งหมดอย่างรวดเร็วจากอีเมล Outlook ไปยังไฟล์ข้อความ

โซลูชัน Outlook September 29, 2025

เมื่อได้รับอีเมลที่มี URL ที่สำคัญหลายรายการในเนื้อหาคุณอาจต้องการกำหนด URL ทั้งหมดให้ตรงกับไฟล์ข้อความ ดังนั้นในบทความนี้เราจะแนะนำวิธีที่จะทำให้ได้อย่างรวดเร็ว

โดยปกติแล้วในการแยก URL จากอีเมล Outlook ไปยังไฟล์ข้อความคุณต้องสร้างไฟล์ข้อความก่อนจากนั้นคัดลอก URL ไปยังไฟล์ด้วยตนเอง คุณอาจคิดว่ามันยุ่งยากเกินไปและกำลังมองหาวิธีที่มีประสิทธิภาพมากขึ้น ถ้าเป็นเช่นนั้นคุณสามารถอ่านต่อ ในที่นี้เราจะแบ่งปันวิธีการส่งออก URL ทั้งหมดจากอีเมลเป็นกลุ่ม

แยก URL ทั้งหมดในอีเมลไปยังไฟล์ข้อความอย่างรวดเร็ว

เริ่มแรกใน Outlook ของคุณให้เข้าถึงตัวแก้ไข VBA ตาม "วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
จากนั้นคัดลอกและวางรหัส 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

หลังจากนั้นให้เพิ่มมาโครนี้ลงในแถบเครื่องมือด่วนหรือริบบิ้น
สุดท้ายทำตามขั้นตอนด้านล่างเพื่อทดลองใช้

ก่อนอื่นเลือกหรือเปิดอีเมล
จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วนหรือริบบิ้น
ในครั้งเดียวไฟล์ข้อความธรรมดาใหม่จะถูกเปิดขึ้นซึ่งคุณจะเห็น UTL ที่แยกออกมาทั้งหมดดังที่แสดงในภาพหน้าจอต่อไปนี้

ระวังลิงก์ที่มีความเสี่ยงในอีเมล

ทุกวันคุณสามารถรับอีเมลทุกประเภทใน Outlook ของคุณ บางส่วนมาจากผู้ติดต่อที่รู้จักและบางส่วนอาจมาจากผู้ส่งที่ไม่รู้จัก คุณต้องระวังอีเมลที่ไม่รู้จักซึ่งบางอีเมลอาจมีลิงก์ที่น่าสงสัย หากคุณเปิดลิงก์ไฟล์ Outlook ของคุณอาจติดไวรัส จากนั้นไม่เพียง แต่คุณจะต้องฆ่าไวรัสผ่านซอฟต์แวร์ป้องกันไวรัสเท่านั้น แต่คุณยังต้องซ่อมแซมไฟล์ PST ที่ทุกข์ทรมานผ่านทางศักยภาพ ซ่อมแซม Outlook ยูทิลิตี้เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ SQL Server ซ่อมแซม และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.