Kaip tiesiogiai atidaryti hipersaitą „Outlook“, o ne naują naršyklės langą

Kai spustelėsite hipersaitą Outlook el. laiške, nuoroda bus atidaryta numatytojoje interneto naršyklėje. Tačiau iš tikrųjų taip pat galite naudoti šiame straipsnyje pateiktą metodą, kad atidarytumėte hipersaitą tiesiogiai „Outlook“.

Turėjote žinoti, kad spustelėjus hipersaitą Outlook el. laiške, nuorodos tinklalapis bus atidarytas naudojant numatytąją interneto naršyklę. Tačiau yra daug vartotojų, kurie norėtų tiesiogiai atidaryti hipersaitą „Outlook“. Ankstesnėse „Outlook“ versijose buvo matomas ir akivaizdus žiniatinklio įrankis. Tačiau dabar ši funkcija paslėpta. Nepaisant to, iš tikrųjų „Outlook“ vis tiek gali veikti kaip žiniatinklio naršyklė. Galite taikyti šį metodą, kuris naudoja Outlook VBA, kad tai pasiektumėte greitai.

Atidarykite hipersaitą „Outlook“ tiesiogiai, o ne naują naršyklės langą

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada paspauskite klavišų kombinaciją „Alt + F11“.
3. Vėliau sėkmingai pateksite į Outlook VBA redaktoriaus langą.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į nenaudojamą modulį.

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. Po to, kaip įprasta, pridėkite naują makrokomandą prie greitosios prieigos įrankių juostos arba juostos.
6. Vėliau pakeiskite „Outlook“ makrokomandos saugos lygį į žemą.
7. Pagaliau galite pabandyti. Pirmiausia pasirinkite arba atidarykite el. laišką ir paspauskite makrokomandos mygtuką. Čia yra 3 atvejai, atsižvelgiant į bendrą hipersaitų skaičių el. laiške.

• Jei el. laiške nėra hipersaito, gausite įspėjimą, rodomą kaip ši ekrano kopija:
• Jei el. laiške yra tik vienas hipersaitas, nuoroda bus atidaryta iš karto, kaip paveikslėlyje žemiau:
• Jei el. laiške yra keli hipersaitai, turėsite pasirinkti hipersaitą, kaip parodyta paveikslėlyje žemiau. Įvedus pasirinkto hipersaito numerį, iš karto bus atidarytas atitinkamas tinklalapis.

Niekada nebijokite PST problemų

Daugelis vartotojų ims panikuoti, kai tik susidurs su netikėtumais PST korupcija. Taip yra todėl, kad jie nesiėmė pakankamai atsargumo priemonių, tokių kaip atnaujintos PST duomenų atsarginės kopijos ir patyręs taisymo įrankis, pvz. DataNumen Outlook Repair. Tiesą sakant, tol, kol būsite gerai pasiruošę, jums nereikės bijoti jokių PST problemų.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com