Kā atvērt hipersaiti programmā Outlook tieši, nevis jauna pārlūkprogrammas logā

Noklikšķinot uz hipersaites Outlook e-pastā, saite tiks atvērta jūsu noklusējuma interneta pārlūkprogrammā. Bet patiesībā jūs varat arī izmantot šajā rakstā aprakstīto metodi, lai atvērtu hipersaiti tieši programmā Outlook.

Jums noteikti jāzina, ka, noklikšķinot uz hipersaites Outlook e-pastā, saites tīmekļa lapa tiks atvērta jūsu noklusējuma interneta pārlūkprogrammā. Tomēr ir daudzi lietotāji, kuri vēlas tieši atvērt hipersaiti programmā Outlook. Iepriekšējās Outlook versijās bija redzams un acīmredzams tīmekļa rīks. Bet tagad šī funkcija ir paslēpta. Tomēr faktiski Outlook joprojām var darboties kā tīmekļa pārlūkprogramma. Varat izmantot tālāk norādīto metodi, kas izmanto Outlook VBA, lai to sasniegtu ātri.

Atveriet hipersaiti programmā Outlook tieši, nevis jaunā pārlūkprogrammas logā

1. Pirmkārt, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam nospiediet taustiņu “Alt + F11” taustiņus.
3. Pēc tam jūs veiksmīgi nokļūsit Outlook VBA redaktora logā.
4. Pēc tam kopējiet un ielīmējiet tālāk norādītos VBA kodus modulī, kas netiek lietots.

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. Pēc tam pievienojiet jauno makro ātrās piekļuves rīkjoslai vai lentei kā parasti.
6. Vēlāk mainiet Outlook makro drošības līmeni uz zemu.
7. Beidzot jūs varat mēģināt. Vispirms atlasiet vai atveriet e-pastu un pēc tam nospiediet makro pogu. Šeit ir norādīti 3 gadījumi atkarībā no kopējā hipersaišu skaita e-pastā.

• Ja e-pastā nav hipersaites, jūs saņemsit brīdinājumu, kas parādīts kā šāds ekrānuzņēmums:
• Ja e-pastā ir tikai viena hipersaite, saite tiks atvērta uzreiz, piemēram, attēlā zemāk:
• Ja e-pastā ir vairākas hipersaites, jums būs jāatlasa hipersaite, piemēram, attēlā zemāk. Pēc izvēlētās hipersaites numura ievadīšanas uzreiz tiks atvērta attiecīgā tīmekļa lapa.

Nekad nebaidieties no PST problēmām

Daudzi lietotāji saņems paniku, tiklīdz viņi saskarsies ar negaidītu PST korupcija. Tas ir tāpēc, ka viņi nav veikuši pietiekamus piesardzības pasākumus, piemēram, jaunākās PST datu dublējumkopijas un pieredzējušu labošanas rīku, piemēram, DataNumen Outlook Repair. Faktiski, ja vien būsiet labi sagatavojies, jums nav jābaidās no PST problēmām.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar