Outlook-da xüsusi e-poçtları oxuyarkən bütün daxil edilmiş hiperlinkləri necə avtomatik açmaq olar

Bəzi istifadəçilər xüsusi e-poçtları açıb oxuduqda Outlook-un e-poçtun mətninə daxil edilmiş hiperlinkləri avtomatik olaraq aça bilməsini istəyir. İndi bu yazıda onu asanlıqla həyata keçirə biləcək bir üsul paylaşacağıq.

Müdirinizin həyati əhəmiyyətli e-poçtları kimi xüsusi e-poçtları açarkən və oxuyarkən, e-poçtlarda bir neçə hiperlink varsa, siz mütləq bu bağlantıları açacaqsınız. Daxili hiperlinkləri əl ilə açmaqla müqayisədə, Outlook-un onları avtomatik açması, şübhəsiz ki, daha rahat olacaq. Burada sizə ətraflı şəkildə necə nail olmağı öyrədəcəyik.

Xüsusi e-poçtları oxuyarkən bütün daxil edilmiş hiperlinkləri avtomatik açın

1. Başlamaq üçün Outlook tətbiqini işə salın.
2. Outlook pəncərəsinə daxil olduqdan sonra "Alt + F11" düymələri qısa yollarını basın.
3. Sonrakı VBA redaktoru pəncərəsində siz “Microsoft VBScript Regular Expressions” obyektini aktivləşdirməlisiniz. "Alətlər" düyməsini basın və buna nail olmaq üçün "İstinadlar" seçin.
4. Sonra, "ThisOutlookSession" layihəsini açın.
5. Sonra aşağıdakı VBA kodunu bu layihəyə köçürün.

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. Bundan sonra bu makronu imzalamalısınız. Bunu yerinə yetirmək üçün "Alətlər" > "Rəqəmsal İmza" üzərinə klikləyin.
7. Sonra, cari pəncərədən çıxın və Outlook makro parametrlərinizi dəyişdirin.
8. Nəticə etibarilə, yeni VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başlatmalısınız.
9. O vaxtdan bəri, hər dəfə xüsusi e-poçtları öz Mesaj pəncərəsində oxumaq üçün iki dəfə kliklədiyiniz zaman, Outlook e-poçt mətnindəki hiperlinkləri avtomatik tanıyacaq və dərhal onları Internet Explorer-də açacaq.

Heç vaxt Outlook xətalarını keçməyin

Yəqin ki, müxtəlif Outlook səhvlərinə məruz qalmısınız. Outlook problemlərini aradan qaldırmaq çətin olsa da, siz də onlara məhəl qoya bilməzsiniz. Yığılmış səhvlər Outlook-da PST-nin zədələnməsi kimi ciddi fəlakətlərə səbəb ola bilər. Beləliklə, nəhəng bir xarici hazırlasanız yaxşı olar Outlook düzəlişi kimi faydalılıq DataNumen Outlook Repair. O, korrupsiyanı minimuma endirə bilər və bununla da heç bir təlaş olmadan maksimum PST məlumatını çıxara bilər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com