Si të hapni automatikisht të gjitha hiperlidhjet e integruara kur lexoni emaile specifike në Outlook

Disa përdorues dëshirojnë që Outlook të mund të hapë automatikisht hiperlidhjet e futura në trupin e postës elektronike kur hapin dhe lexojnë emaile specifike. Tani, në këtë artikull, ne do të ndajmë një metodë që mund ta realizojë atë me lehtësi.

Kur hapni dhe lexoni emaile specifike, të tilla si emaile të rëndësishme jetike nga shefi juaj, nëse emailet përmbajnë disa hiperlidhje, patjetër që do t'i hapni këto lidhje. Në krahasim me hapjen manuale të hiperlidhjeve të ngulitura, hapja automatike e Outlook-it me siguri do të jetë shumë më e përshtatshme. Këtu do t'ju mësojmë se si ta arrini atë në detaje.

Hapni automatikisht të gjitha hiperlidhjet e integruara kur lexoni emaile specifike

1. Për të filluar, hapni aplikacionin Outlook.
2. Pasi të keni hyrë në dritaren e Outlook, shtypni shkurtoret e tastit "Alt + F11".
3. Në dritaren pasuese të redaktuesit VBA, duhet të aktivizoni objektin "Microsoft VBScript Regular Expressions". Shtypni "Tools" dhe zgjidhni "References" për ta arritur atë.
4. Tjetra, hapni projektin "ThisOutlookSession".
5. Pastaj, kopjoni kodin e mëposhtëm VBA në këtë projekt.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
 Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 If Inspector.CurrentItem.Class = olMail Then
 Set objMail = Inspector.CurrentItem
 End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As match
    Dim strURL As String
 
    'When opening specific emails
    'From specific persons or marked as important
    If objMail.SenderEmailAddress = "boss@datanumen.com" And objMail.Importance = olImportanceHigh Then
       Set objRegExp = New RegExp
 
       With objRegExp
            .Pattern = "(([0-9a-z=\?:/\.&-^!#$;_])*)"
            .Global = True
            .IgnoreCase = True
       End With

       If objRegExp.Test(objMail.Body) Then

          Set objMatches = objRegExp.Execute(objMail.Body)
          For Each objMatch In objMatches
              strURL = objMatch.SubMatches(0)
 
              'Exclude hyperlinks of email addresses
              If InStr(strURL, "@") = 0 Then
 
                 'Get the Internet Explorer
                 'Change the path as per your own case
                 Shell (Chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & Chr(34) & strURL)
                 DoEvents
              End If
          Next
       End If
    End If
End Sub

6. Pas kësaj, ju duhet të nënshkruani këtë makro. Klikoni "Mjetet" > "Nënshkrimi Dixhital" për ta realizuar atë.
7. Më pas, dilni nga dritarja aktuale dhe ndryshoni cilësimet tuaja makro të Outlook.
8. Në fund të fundit, duhet të rinisni Outlook-un tuaj për të aktivizuar projektin e ri VBA.
9. Që atëherë, sa herë që klikoni dy herë mbi emailet specifike për ta lexuar në dritaren e tij të Mesazhit, Outlook do t'i njohë automatikisht hiperlidhjet në trupin e emailit dhe do t'i hapë ato menjëherë në Internet Explorer.

Mos i anashkaloni kurrë gabimet e Outlook

Ndoshta ju keni qenë subjekt i gabimeve të ndryshme të Outlook. Megjithëse eliminimi i çështjeve të Outlook është i vështirë, nuk mund t'i shpërfillni as ato. Gabimet e grumbulluara mund të çojnë në fatkeqësi serioze në Outlook, të tilla si dëmtimi i PST. Prandaj, është më mirë të përgatisni një të jashtme të frikshme Rregullimi i Outlook dobi, si DataNumen Outlook Repair. Mund të minimizojë korrupsionin, duke nxjerrë kështu të dhënat maksimale të PST pa bujë.

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ë mdf i korruptuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com