Cách mở siêu liên kết trong Outlook trực tiếp thay vì cửa sổ trình duyệt mới

giải pháp triển vọng Tháng Chín 29, 2025

Khi bạn bấm vào một siêu liên kết trong email Outlook, liên kết đó sẽ được mở trong trình duyệt internet mặc định của bạn. Nhưng thực ra bạn cũng có thể sử dụng phương pháp được giới thiệu trong bài viết này để mở siêu liên kết trực tiếp trong Outlook.

Bạn hẳn đã biết rằng khi bạn nhấp vào một siêu liên kết trong email Outlook, trang web của liên kết đó sẽ mở ra bằng Trình duyệt Internet mặc định của bạn. Tuy nhiên, có nhiều người dùng muốn mở trực tiếp siêu liên kết trong Outlook. Trong các phiên bản trước của Outlook, có một công cụ web hiển thị và rõ ràng. Nhưng hiện tại, tính năng này đã bị ẩn. Mặc dù vậy, trên thực tế, Outlook vẫn có thể hoạt động như một trình duyệt web. Bạn có thể áp dụng phương pháp sau đây là sử dụng Outlook VBA để đạt được nó trong thời gian nhanh chóng.

Mở Siêu liên kết trong Outlook Trực tiếp thay vì Cửa sổ Trình duyệt Mới

Trước tiên, hãy khởi chạy ứng dụng Outlook của bạn.
Sau đó nhấn các nút phím “Alt + F11”.
Sau đó, bạn sẽ vào được cửa sổ soạn thảo Outlook VBA thành công.
Tiếp theo, sao chép và dán các mã VBA sau vào mô-đun không sử dụng.

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

Sau đó, thêm macro mới vào Quick Access Toolbar hoặc ribbon như bình thường.
Sau đó, thay đổi mức bảo mật macro Outlook của bạn thành thấp.
Cuối cùng bạn có thể có một thử. Đầu tiên, chọn hoặc mở một email rồi nhấn nút macro. Dưới đây là 3 trường hợp tùy thuộc vào tổng số siêu liên kết trong email.

Nếu không có siêu liên kết trong email, bạn sẽ nhận được cảnh báo, được hiển thị như ảnh chụp màn hình sau:
Nếu trong email chỉ có một siêu liên kết thì liên kết đó sẽ được mở ra ngay lập tức, giống như hình bên dưới:
Nếu có nhiều siêu liên kết trong email, bạn sẽ được yêu cầu chọn một siêu liên kết, giống như hình bên dưới. Sau khi bạn nhập số lượng siêu liên kết đã chọn, trang web tương ứng sẽ được mở ngay lập tức.

Không bao giờ sợ rắc rối PST

Nhiều người dùng sẽ hoảng loạn ngay khi gặp phải sự cố bất ngờ Tham nhũng PST. Đó là bởi vì họ đã không thực hiện đầy đủ các biện pháp phòng ngừa, chẳng hạn như sao lưu dữ liệu PST cập nhật và một công cụ sửa chữa có kinh nghiệm như DataNumen Outlook Repair. Trên thực tế, miễn là bạn luôn chuẩn bị kỹ lưỡng, bạn sẽ không cần phải lo sợ về bất kỳ vấn đề PST nào.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm mdf tham nhũng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm