วิธีส่งออกไฮเปอร์ลิงก์ทั้งหมดในอีเมล Outlook หลายฉบับไปยัง Excel อย่างรวดเร็ว

เมื่อคุณต้องการดึงไฮเปอร์ลิงก์ทั้งหมดในอีเมลหนึ่งฉบับหรือมากกว่านั้น การคัดลอกทีละลิงก์นั้นเป็นวิธีที่ไม่เหมาะสม บทความนี้จะสอนวิธีการส่งออกไฮเปอร์ลิงก์ทั้งหมดจากอีเมลหลายฉบับไปยัง Excel อย่างรวดเร็ว

ด้วยเหตุผลบางประการ เช่น การบันทึกไฮเปอร์ลิงก์ในอีเมลที่ส่งทั้งหมดของคุณ คุณจะต้องแยกไฮเปอร์ลิงก์ออก ไม่ต้องสงสัยเลยว่าไม่แนะนำให้แยกและคัดลอกด้วยตนเอง คุณต้องมองหาแนวทางที่ชาญฉลาดกว่านี้มาก เช่น การใช้ VBA ที่นี่เราจะแบ่งปันรหัส VBA ให้คุณ ซึ่งสามารถส่งออกไฮเปอร์ลิงก์ทั้งหมดในอีเมลจำนวนมากไปยัง Excel ผ่านการคลิกง่ายๆ

ส่งออกการเชื่อมโยงหลายมิติทั้งหมดในอีเมลหลายฉบับไปยัง Excel

1. ขั้นแรก ให้เปิดโปรแกรม Outlook ตามปกติ
2. จากนั้นในหน้าต่าง Outlook คุณต้องกดปุ่ม "Alt + F11"
3. คุณจะสามารถเข้าถึงโปรแกรมแก้ไข Outlook VBA ได้ทันที
4. จากนั้น คุณต้องเปิดใช้งาน “Microsoft Word Object Library” และ “Microsoft Excel Object Library” โดยคลิก “เครื่องมือ” > “การอ้างอิง” แล้วเปิดใช้งานในกล่องโต้ตอบที่ปรากฏขึ้น
5. ถัดไป คุณต้องเปิดโมดูลที่ไม่ได้ใช้ ซึ่งคุณต้องคัดลอกโค้ด VBA ด้านล่างลงในโมดูลนี้

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportAllHyperlinksInMultipleEmailsToExcel()
    Dim objSelection As Selection
    Dim objMail As MailItem
    Dim objMailDocument As Document
    Dim objHyperlink As Hyperlink
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkbook = objExcelApp.Workbooks.Add
       Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
       objExcelApp.Visible = True
       objExcelWorkbook.Activate
 
       With objExcelWorksheet
            .Cells(1, 1) = "No."
            .Cells(1, 2) = "Displaying Text"
            .Cells(1, 3) = "Address"
            .Cells(1, 4) = "Source Mail"
      End With
 
      On Error Resume Next
      i = 0
      For Each objMail In objSelection
          objMail.Display
          Set objMailDocument = objMail.GetInspector.WordEditor
          If objMailDocument.Hyperlinks.Count > 0 Then
             For Each objHyperlink In objMailDocument.Hyperlinks
                 If InStr(objHyperlink.Address, "www.") > 0 Then
                    i = i + 1
                    Call ExportToExcel(i, objMail, objHyperlink)
                 End If
             Next
          End If
          objMail.Close olDiscard
      Next
 
      objExcelWorksheet.Columns("A:D").AutoFit
    End If
End Sub

Sub ExportToExcel(n As Long, objCurrentMail As MailItem, objCurrentHyperlink As Hyperlink)
    Dim nLastRow As Integer
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    objExcelWorksheet.Range("A" & nLastRow) = n
    objExcelWorksheet.Range("B" & nLastRow) = objCurrentHyperlink.TextToDisplay
    objExcelWorksheet.Range("C" & nLastRow) = objCurrentHyperlink.Address
    objExcelWorksheet.Range("D" & nLastRow) = objCurrentMail.Subject
End Sub

6. หลังจากนั้น คุณสามารถออกจากหน้าต่างตัวแก้ไข VBA ปัจจุบันได้
7. ในภายหลัง เข้าถึง “ตัวเลือก Outlook” เพื่อปรับแต่งแถบเครื่องมือด่วนเพื่อเพิ่มมาโครที่เพิ่มใหม่ไปยังแถบเครื่องมือด่วน
8. ในที่สุดคุณก็สามารถถ่ายภาพได้:

• ก่อนอื่น ในรายการอีเมล เลือกอีเมลที่คุณต้องการแยกไฮเปอร์ลิงก์
• จากนั้นคลิกที่ปุ่มมาโครในแถบเครื่องมือด่วน
• เมื่อมาโครเสร็จสิ้น คุณจะได้ไฟล์ Excel ดังภาพด้านล่าง:

แก้ไขปัญหา Outlook ที่ไม่คาดคิด

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

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

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