Outlook-da maxsus elektron pochta xabarlarini o'qiyotganda barcha o'rnatilgan giperhavolalarni qanday avtomatik ochish mumkin

Ba'zi foydalanuvchilar Outlook ma'lum elektron pochta xabarlarini ochib, o'qiganlarida, elektron pochta matniga kiritilgan giperhavolalarni avtomatik ravishda ochishini xohlashadi. Endi ushbu maqolada biz buni osonlik bilan amalga oshirish mumkin bo'lgan usulni baham ko'ramiz.

Muayyan elektron pochta xabarlarini, masalan, xo'jayiningizdan kelgan hayotiy muhim elektron pochta xabarlarini ochish va o'qishda, agar xatlarda bir nechta giperhavolalar bo'lsa, siz ushbu havolalarni albatta ochasiz. O'rnatilgan giperhavolalarni qo'lda ochish bilan solishtirganda, Outlook avtomatik ravishda ularni ochish ancha qulayroq bo'ladi. Bu erda biz sizga qanday qilib unga erishishni batafsil o'rgatamiz.

Muayyan elektron xatlarni o'qiyotganda barcha o'rnatilgan giperhavolalarni avtomatik ochish

1. Boshlash uchun Outlook dasturini ishga tushiring.
2. Outlook oynasiga kirganingizdan so'ng, "Alt + F11" tugmachalarini bosing.
3. Keyingi VBA muharriri oynasida siz "Microsoft VBScript Regular Expressions" ob'ektini yoqishingiz kerak. Bunga erishish uchun "Asboblar" ni bosing va "Ma'lumotnomalar" ni tanlang.
4. Keyin, "ThisOutlookSession" loyihasini oching.
5. Keyin ushbu loyihaga quyidagi VBA kodini nusxa ko'chiring.

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. Shundan so'ng siz ushbu so'lni imzolashingiz kerak. Buni amalga oshirish uchun "Asboblar" > "Raqamli imzo" ni bosing.
7. Keyin joriy oynadan chiqing va Outlook makro sozlamalarini o'zgartiring.
8. Nihoyat, yangi VBA loyihasini yoqish uchun Outlook-ni qayta ishga tushirishingiz kerak.
9. O'shandan beri, har safar maxsus elektron pochta xabarlarini o'zining Xabar oynasida o'qish uchun ikki marta bosganingizda, Outlook elektron pochta ichidagi giperhavolalarni avtomatik ravishda tanib oladi va darhol ularni Internet Explorer-da ochadi.

Hech qachon Outlook xatolarini chetlab o'tmang

Ehtimol, siz turli xil Outlook xatolariga duch kelgansiz. Outlook bilan bog'liq muammolarni bartaraf etish qiyin bo'lsa-da, siz ularni ham e'tiborsiz qoldirolmaysiz. Yig'ilgan xatolar Outlook-da PST zarari kabi jiddiy falokatlarga olib kelishi mumkin. Shunday qilib, siz ajoyib tashqi tayyorlaganingiz ma'qul Outlook tuzatish kabi foydali dastur DataNumen Outlook Repair. U korruptsiyani minimallashtirishi va shu bilan maksimal PST ma'lumotlarini shovqinsiz olishi mumkin.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com