Cum să deschideți Hyperlink în Outlook direct în loc de fereastră nouă de browser

Când faceți clic pe un hyperlink dintr-un e-mail Outlook, linkul va fi deschis în browserul dvs. de internet implicit. Dar, de fapt, puteți folosi și metoda introdusă în acest articol pentru a deschide hyperlink direct în Outlook.

Trebuie să fi știut că atunci când faceți clic pe un hyperlink dintr-un e-mail Outlook, pagina web a linkului se va deschide prin browserul dvs. de Internet implicit. Cu toate acestea, există mulți utilizatori care ar dori să deschidă direct hyperlinkul în Outlook. În versiunile anterioare ale Outlook, exista un instrument web vizibil și evident. Dar acum, această caracteristică este ascunsă. Chiar și așa, de fapt, Outlook poate funcționa în continuare ca browser web. Puteți aplica următoarea metodă care utilizează Outlook VBA pentru a o realiza în timp util.

Deschide Hyperlink în Outlook direct în loc de fereastră nouă de browser

1. În primul rând, lansați aplicația Outlook.
2. Apoi apăsați butoanele tastei „Alt + F11”.
3. Ulterior, veți intra cu succes în fereastra editorului Outlook VBA.
4. Apoi copiați și inserați următoarele coduri VBA într-un modul care nu este utilizat.

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. După aceea, adăugați noua macrocomandă în Bara de instrumente Acces rapid sau în panglică, ca de obicei.
6. Mai târziu, modificați nivelul de securitate al macrocomenzii Outlook la scăzut.
7. În sfârșit poți încerca. În primul rând, selectați sau deschideți un e-mail și apoi apăsați butonul macro. Iată 3 cazuri în funcție de numărul total de hyperlinkuri din e-mail.

• Dacă nu există un hyperlink în e-mail, veți primi un avertisment, afișat ca următoarea captură de ecran:
• Dacă există un singur hyperlink în e-mail, linkul va fi deschis odată, ca în imaginea de mai jos:
• Dacă există mai multe hyperlinkuri în e-mail, vi se va solicita să selectați un hyperlink, ca în imaginea de mai jos. După ce ați introdus numărul hyperlinkului selectat, pagina web corespunzătoare va fi deschisă imediat.

Nu vă temeți niciodată de problemele PST

Mulți utilizatori vor intra în panică de îndată ce se confruntă cu lucruri neașteptate corupție PST. Pentru că nu au luat suficiente măsuri de precauție, cum ar fi copiile de siguranță actualizate ale datelor PST și un instrument de reparare experimentat, cum ar fi DataNumen Outlook Repair. De fapt, atâta timp cât sunteți bine pregătit, nu va trebui să vă temeți de nicio problemă PST.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupție mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com