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

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

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

คัดลอกไฮเปอร์ลิงก์ทั้งหมดในอีเมลหลายฉบับไปยังอีเมลใหม่

1. เริ่มแรกให้เปิดแอปพลิเคชัน Outlook
2. จากนั้นเลือกอีเมลที่คุณต้องการแยกไฮเปอร์ลิงก์
3. จากนั้นทริกเกอร์โปรแกรมแก้ไข Outlook VBA ตาม "วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
4. ในหน้าต่างตัวแก้ไข VBA เปิดใช้งานการอ้างอิงถึง“ MS Word Object Library” ตาม“วิธีเพิ่ม Object Library การอ้างอิงใน VBA"
5. ต่อมาใส่รหัสต่อไปนี้ลงในโมดูล

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. หลังจากนั้นให้กด“ F5” เพื่อเรียกใช้มาโครนี้ทันที
7. สุดท้ายเมื่อมาโครเสร็จสมบูรณ์อีเมลใหม่จะปรากฏขึ้นซึ่งมีไฮเปอร์ลิงก์ทั้งหมดที่ดึงมาจากอีเมลที่เลือกไว้ก่อนหน้านี้

ให้ความสนใจเป็นพิเศษกับไฮเปอร์ลิงก์ที่ไม่รู้จัก

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

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

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