Kaip automatiškai atidaryti visus įterptuosius hipersaitus skaitant konkrečius el. laiškus programoje „Outlook“.

Kai kurie vartotojai nori, kad „Outlook“ galėtų automatiškai atidaryti hipersaitus, įterptus į el. laiško turinį, kai jie atidaro ir skaito konkrečius el. laiškus. Dabar šiame straipsnyje mes pasidalinsime metodu, kuris gali lengvai jį įgyvendinti.

Atidarydami ir skaitydami konkrečius el. laiškus, pvz., gyvybiškai svarbius viršininko laiškus, jei laiškuose yra keletas hipersaitų, šias nuorodas tikrai atidarysite. Palyginti su įterptųjų hipersaitų atidarymu rankiniu būdu, „Outlook“ automatiškai juos atidaryti tikrai bus daug patogiau. Čia mes išsamiai išmokysime, kaip tai pasiekti.

Skaitydami konkrečius el. laiškus automatiškai atidarykite visas įterptąsias hipersaitus

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Įėję į „Outlook“ langą, paspauskite „Alt + F11“ sparčiuosius klavišus.
3. Vėlesniame VBA redaktoriaus lange turite įjungti objektą „Microsoft VBScript Regular Expressions“. Norėdami tai padaryti, spustelėkite „Įrankiai“ ir pasirinkite „Nuorodos“.
4. Tada atidarykite projektą „ThisOutlookSession“.
5. Tada nukopijuokite šį VBA kodą į šį 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. Po to turėtumėte pasirašyti šią makrokomandą. Norėdami tai padaryti, spustelėkite „Įrankiai“ > „Skaitmeninis parašas“.
7. Tada išeikite iš dabartinio lango ir pakeiskite „Outlook“ makrokomandos nustatymus.
8. Galiausiai, norint įjungti naują VBA projektą, reikia iš naujo paleisti „Outlook“.
9. Nuo tada kiekvieną kartą, kai dukart spustelėsite konkrečius el. laiškus, kad perskaitytumėte juos savo pranešimų lange, „Outlook“ automatiškai atpažins el. laiško tekste esančius hipersaitus ir iš karto atidarys juos „Internet Explorer“.

Niekada neapeikite „Outlook“ klaidų

Galbūt susidūrėte su įvairiomis „Outlook“ klaidomis. Nors pašalinti „Outlook“ problemas sunku, taip pat negalite jų nepaisyti. Susikaupusios klaidos gali sukelti rimtų „Outlook“ nelaimių, tokių kaip PST pažeidimai. Vadinasi, geriau paruoškite didžiulį išorinį vaizdą Outlook taisymas naudingumas, pvz DataNumen Outlook Repair. Tai gali sumažinti korupciją ir taip be rūpesčių išgauti maksimalų PST duomenų kiekį.

Autoriaus įvadas:

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