โดยส่วนใหญ่แล้ว การจะแสดงที่อยู่ไฮเปอร์ลิงก์นั้น คุณต้องเลื่อนเคอร์เซอร์ไปวางเหนือข้อความที่แสดงอยู่ บทความนี้จะสอนวิธีการใช้ VBA เพื่อแสดงที่อยู่ทั้งหมดในอีเมลฉบับเดียวได้ง่ายๆ ด้วยการคลิกเพียงครั้งเดียว
ดังที่คุณทราบ นอกเหนือจากการเพิ่ม URL ลงในเนื้อหาอีเมลโดยตรงแล้ว คุณยังสามารถแทรกไฮเปอร์ลิงก์ลงในข้อความได้ ในกรณีนี้ คุณจะไม่สามารถดูที่อยู่ไฮเปอร์ลิงก์ได้โดยตรง คุณต้องวางเคอร์เซอร์ไว้เหนือข้อความที่แสดง แต่จะค่อนข้างน่าเบื่อหากมีไฮเปอร์ลิงก์ดังกล่าวมากเกินไปในอีเมลปัจจุบัน เนื่องจากคุณต้องตรวจสอบที่อยู่ทีละรายการ
เพื่อตอบสนองต่อปัญหานี้ เราจะแสดงวิธีการด่วนซึ่งใช้ VBA เพื่อช่วยคุณแยกและแสดงที่อยู่ไฮเปอร์ลิงก์ทั้งหมดโดยตรง ด้วยวิธีนี้สิ่งที่คุณต้องทำก็แค่คลิกเพียงครั้งเดียว ตอนนี้ให้อ่านขั้นตอนโดยละเอียดและโค้ด VBA
แยกและแสดงที่อยู่ไฮเปอร์ลิงก์ทั้งหมดในอีเมล
- ในตอนแรกเปิดแอปพลิเคชัน Outlook ของคุณ
- จากนั้นกดปุ่ม“ Alt + F11” ในหน้าต่างหลักของ Outlook
- ถัดไปคุณจะสามารถเข้าถึงโปรแกรมแก้ไข Outlook VBA ได้สำเร็จ
- จากนั้นคุณจะต้องเปิดโมดูลที่ไม่ได้ใช้งาน
- หลังจากนั้น ให้คัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลนี้
Sub ShowAllHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objWordApp As Word.Application
Dim objWordSelection As Word.Selection
Dim objHyperlinks As Word.Hyperlinks
Dim objHyperlink As Word.Hyperlink
Dim strLink As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objWordDocument = objMail.GetInspector.WordEditor
Set objWordApp = objWordDocument.Application
Set objHyperlinks = objWordDocument.Hyperlinks
If objHyperlinks.Count > 0 Then
For Each objHyperlink In objHyperlinks
strLink = objHyperlink.Address
strLink = vbTab & "<" & strLink & ">"
objHyperlink.Range.InsertAfter strLink
objHyperlink.Delete
With objWordApp.Options
.AutoFormatReplaceHyperlinks = True
.AutoFormatApplyOtherParas = False
.AutoFormatApplyHeadings = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyLists = False
.AutoFormatApplyFirstIndents = False
End With
Set objWordSelection = objWordApp.Selection
objWordSelection.Range.AutoFormat
Next
End If
End Sub
- หลังจากนั้น เพื่อความสะดวกในภายหลัง คุณควรเพิ่มแมโครใหม่ลงในแถบเครื่องมือด่วนของหน้าต่างข้อความ
- นอกจากนี้คุณควรตรวจสอบให้แน่ใจว่าการตั้งค่าแมโคร Outlook ของคุณอนุญาตให้ใช้มาโครได้
- ในที่สุดคุณก็สามารถลองได้
- ขั้นแรก เปิดอีเมลที่มีไฮเปอร์ลิงก์จำนวนมาก
- จากนั้นสลับไปที่โหมดแก้ไขได้ เพียงคลิก “การดำเนินการ” > “แก้ไขข้อความ”
- จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วน
- ในครั้งเดียว ที่อยู่ไฮเปอร์ลิงก์ทั้งหมดจะถูกแยกและแสดงดังภาพหน้าจอต่อไปนี้:
ไม่ได้รับการยกเว้นจากปัญหา Outlook
แม้ว่า Outlook จะให้ฟังก์ชันที่ยืดหยุ่นมากมายแก่ผู้ใช้ แต่ก็ยังไม่สามารถได้รับการยกเว้นจากข้อผิดพลาดและข้อขัดข้องได้ ดังนั้น หากคุณต้องการปกป้องข้อมูล Outlook ของคุณจากการทุจริตหรือการสูญหาย คุณต้องพยายามอย่างเต็มที่ ตัวอย่างเช่น คุณต้องทำการสำรองข้อมูล Outlook เป็นประจำ แน่นอนว่ามันจะดีกว่ามากถ้าคุณเตรียมศักยภาพไว้ การกู้คืน Outlook เครื่องมือเช่น DataNumen Outlook Repair.
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ sql ที่เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.