Si të hapni Hyperlink në Outlook direkt në vend të dritares së ri të shfletuesit

Kur klikoni në një hiperlidhje në një email të Outlook, lidhja do të hapet në shfletuesin tuaj të parazgjedhur të internetit. Por në fakt mund të përdorni edhe metodën e prezantuar në këtë artikull për të hapur hiperlink direkt në Outlook.

Ju duhet ta keni ditur se kur klikoni në një hiperlidhje në një email të Outlook, faqja e internetit e lidhjes do të hapet nga shfletuesi juaj i parazgjedhur i Internetit. Megjithatë, ka shumë përdorues që dëshirojnë të hapin direkt lidhjen në Outlook. Në versionet e mëparshme të Outlook, ekzistonte një mjet i dukshëm dhe i dukshëm në internet. Por tani, kjo veçori është e fshehur. Megjithatë, në të vërtetë, Outlook mund të funksionojë ende si një shfletues ueb. Ju mund të aplikoni metodën e mëposhtme që përdor Outlook VBA për ta arritur atë në kohë të shpejtë.

Hapni Hyperlink direkt në Outlook në vend të dritares së shfletuesit të ri

1. Në radhë të parë, hapni aplikacionin tuaj Outlook.
2. Pastaj shtypni butonat "Alt + F11".
3. Më pas, do të futeni me sukses në dritaren e redaktuesit të Outlook VBA.
4. Më pas kopjoni dhe ngjisni kodet e mëposhtme VBA në një modul që nuk përdoret.

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. Pas kësaj, shtoni makro të re në shiritin e veglave ose shiritin e aksesit të shpejtë si zakonisht.
6. Më vonë ndryshoni nivelin e sigurisë makro të Outlook në të ulët.
7. Më në fund mund të provoni. Së pari, zgjidhni ose hapni një email dhe më pas shtypni butonin makro. Këtu janë 3 raste në varësi të numrit total të hiperlidhjeve në email.

• Nëse nuk ka hiperlidhje në email, do të merrni një paralajmërim, i paraqitur si pamja e mëposhtme e ekranit:
• Nëse ka vetëm një hiperlidhje në email, lidhja do të hapet menjëherë, si imazhi më poshtë:
• Nëse ka disa hiperlidhje në email, do t'ju kërkohet të zgjidhni një hiperlink, si në foton më poshtë. Pasi të keni futur numrin e hiperlidhjes së përzgjedhur, faqja e internetit përkatëse do të hapet menjëherë.

Asnjëherë mos kini frikë nga problemet e PST

Shumë përdorues do të kenë panik sapo të ndeshen me diçka të papritur Korrupsioni i PST. Kjo është për shkak se ata nuk kanë bërë masa paraprake të mjaftueshme, të tilla si kopjet rezervë të përditësuar të të dhënave PST dhe një mjet riparimi me përvojë si p.sh. DataNumen Outlook Repair. Në fakt, për sa kohë që jeni të përgatitur mirë, nuk do të keni nevojë të keni frikë nga ndonjë problem PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë korrupsioni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com