When you click on a hyperlink in an Outlook email, the link will be opened in your default internet browser. But actually you can also use the method introduced in this article to open hyperlink directly in Outlook.
You must have known that when you click on a hyperlink in an Outlook email, the webpage of the link will open by your default Internet Browser. However, there are many users who would like to directly open the hyperlink within Outlook. In the earlier versions of Outlook, there was a visible and obvious web tool. But now, this feature is hidden. Even so, actually, Outlook can still work as a web browser. You can apply the following method which is using Outlook VBA to achieve it in quick time.
Open Hyperlink in Outlook Directly instead of New Browser Window
- In the first place, launch your Outlook application.
- Then press “Alt + F11” key buttons.
- Subsequently, you will get into Outlook VBA editor window successfully.
- Next copy and paste the following VBA codes into a not-in-use module.
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
- After that, add the new macro to Quick Access Toolbar or ribbon as usual.
- Later change your Outlook macro security level to low.
- Finally you can have a try. Firstly, select or open an email and then hit the macro button. Here are 3 cases depending on the total count of hyperlinks in the email.
- If there is no hyperlink in the email, you will get a warning, shown as the following screenshot:
- If there is only one hyperlink in the email, the link will be opened at once, like the image below:
- If there are several hyperlinks in the email, you will be required to select a hyperlink, like the picture below. After you entering the number of the selected hyperlink, the according webpage will be opened at once.
Never Fear PST Troubles
Many users will get panic as soon as they encounter unexpected PST corruption. It is because that they haven’t made sufficient precautions, such as the up-to-date PST data backups and an experienced repair tool like DataNumen Outlook Repair. In fact, as long as you keep well-prepared, you won’t need to fear any PST issues.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf corruption and outlook repair software products. For more information visit www.datanumen.com