Ինչպես ավտոմատ բացել բոլոր ներկառուցված հիպերհղումները Outlook-ում հատուկ նամակներ կարդալիս

Որոշ օգտատերեր ցանկանում են, որ Outlook-ը կարողանա ավտոմատ կերպով բացել էլփոստի մարմնի մեջ տեղադրված հիպերհղումները, երբ նրանք բացում և կարդում են հատուկ նամակներ: Այժմ, այս հոդվածում, մենք կկիսվենք մի մեթոդով, որը կարող է հեշտությամբ իրականացնել այն:

Հատուկ նամակներ բացելիս և կարդալիս, օրինակ՝ ձեր ղեկավարի կողմից կենսական կարևոր նամակները, եթե նամակները պարունակում են մի քանի հիպերհղումներ, դուք անպայման կբացեք այդ հղումները: Ներկառուցված հիպերհղումները ձեռքով բացելու համեմատությամբ, Outlook-ին դրանք ավտոմատ բացելը, անկասկած, շատ ավելի հարմար կլինի: Այստեղ մենք ձեզ մանրամասն կսովորեցնենք, թե ինչպես հասնել դրան։

Հատուկ նամակներ կարդալիս ավտոմատ բացեք բոլոր ներկառուցված հիպերհղումները

1. Սկսելու համար գործարկեք Outlook ծրագիրը:
2. Outlook պատուհան մուտք գործելուց հետո սեղմեք «Alt + F11» ստեղնաշարի դյուրանցումները:
3. Հաջորդ VBA խմբագրիչի պատուհանում դուք պետք է միացնեք «Microsoft VBScript Regular Expressions» օբյեկտը: Կտտացրեք «Գործիքներ» և ընտրեք «Հղումներ»՝ դրան հասնելու համար:
4. Հաջորդը, բացեք «ThisOutlookSession» նախագիծը:
5. Այնուհետև պատճենեք հետևյալ VBA կոդը այս նախագծում:

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. Դրանից հետո դուք պետք է ստորագրեք այս մակրոն: Սեղմեք «Գործիքներ» > «Թվային ստորագրություն»՝ այն իրականացնելու համար:
7. Հաջորդը, դուրս եկեք ընթացիկ պատուհանից և փոխեք ձեր Outlook մակրո կարգավորումները:
8. Վերջապես, դուք պետք է վերագործարկեք ձեր Outlook-ը՝ նոր VBA նախագիծը միացնելու համար։
9. Այդ ժամանակից ի վեր, ամեն անգամ, երբ դուք կրկնակի սեղմում եք կոնկրետ նամակների վրա՝ այն կարդալու համար իր «Mesage» պատուհանում, Outlook-ը ավտոմատ կերպով կճանաչի էլփոստի մարմնի հիպերհղումները և անմիջապես կբացի դրանք Internet Explorer-ում:

Երբեք մի շրջանցեք Outlook-ի սխալները

Հավանաբար, դուք ենթարկվել եք Outlook-ի տարբեր սխալների: Թեև Outlook-ի խնդիրները վերացնելը դժվար է, դուք նույնպես չեք կարող անտեսել դրանք: Կուտակված սխալները կարող են հանգեցնել Outlook-ում լուրջ աղետների, ինչպիսին է PST-ի վնասը: Հետևաբար, ավելի լավ է պատրաստեք ահռելի արտաքին Outlook- ի շտկում օգտակարություն, ինչպես DataNumen Outlook Repair. Այն կարող է նվազագույնի հասցնել կոռուպցիան՝ դրանով իսկ արդյունահանելով առավելագույն PST տվյալներ առանց աղմուկի:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com