วิธีเปิดไฮเปอร์ลิงก์ใน Outlook โดยตรงแทนหน้าต่างเบราว์เซอร์ใหม่

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

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

เปิดไฮเปอร์ลิงก์ใน Outlook โดยตรงแทนหน้าต่างเบราว์เซอร์ใหม่

1. ในตอนแรกเปิดแอปพลิเคชัน Outlook ของคุณ
2. จากนั้นกดปุ่ม“ Alt + F11”
3. จากนั้นคุณจะเข้าสู่หน้าต่างตัวแก้ไข Outlook VBA ได้สำเร็จ
4. ถัดไป คัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลที่ไม่ได้ใช้งาน

Public Sub OpenHyperlinkswithinOutlook()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim objHyperlink As Word.Hyperlink
    Dim strHyperlinkList As String
    Dim strNumber As String
    Dim strURL As String
    Dim objExplorer As Explorer
    Dim objWebBrowser As Object
    Dim nAlert As Integer
 
    On Error Resume Next
    Select Case TypeName(Outlook.Application.ActiveWindow)
           Case "Inspector"
                Set objMail = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select

    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count < 1 Then
       nAlert = MsgBox("There is no hyperlink in this email!", vbExclamation)
 
       'Get the URL of the only hyperlink
    ElseIf objHyperlinks.Count = 1 Then
       Set objHyperlink = objWordDocument.Hyperlinks.Item(1)
       strURL = objHyperlink.Address
 
       'Select which hyperlink to open
    ElseIf objHyperlinks.Count > 1 Then
       For i = 1 To objHyperlinks.Count
           strHyperlinkList = strHyperlinkList & i & ": " & objHyperlinks.Item(i).Address & vbCrLf
       Next i
 
       For i = 1 To objHyperlinks.Count
           strNumber = InputBox("You have " & objHyperlinks.Count & " hyperlinks in this email as follows. " & vbCrLf & vbCrLf & "Please enter the number to select which one to be opened within your Outlook (format: 1)." & vbCrLf & vbCrLf & strHyperlinkList, "Select Hyperlink")
           Set objHyperlink = objWordDocument.Hyperlinks.Item(strNumber)
           strURL = objHyperlink.Address
           Exit For
       Next i
    End If
 
    'Open the selected hyperlink
    Set objExplorer = Application.ActiveExplorer
    Set objWebBrowser = objExplorer.CommandBars.FindControl(, 1740)

    objWebBrowser.Text = strURL
    objWebBrowser.Execute
End Sub

5. หลังจากนั้น เพิ่มแมโครใหม่ลงในแถบเครื่องมือด่วนหรือ ribbon ตามปกติ
6. ในภายหลังให้เปลี่ยนระดับความปลอดภัยของแมโคร Outlook เป็นระดับต่ำ
7. ในที่สุดคุณสามารถลอง ขั้นแรก เลือกหรือเปิดอีเมลแล้วกดปุ่มมาโคร 3 กรณีขึ้นอยู่กับจำนวนไฮเปอร์ลิงก์ทั้งหมดในอีเมล

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

อย่ากลัวปัญหา PST

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

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

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