Outlook E-poçtunuzda xüsusi bir domenlə bütün hiperlinkləri toplu şəkildə necə açmaq olar

Bədəndə çoxlu hiperlinkləri ehtiva edən Outlook e-poçtuna baxarkən, bəzən yalnız müəyyən bir domenlə hiperlinkləri tez açmaq istəyə bilərsiniz. Burada biz bu cür hiperlinkləri toplu şəkildə açmaq üçün bir üsul paylaşacağıq.

Bir e-poçtda birdən çox hiperlink olduğu halda, hamısının əvəzinə bəzilərini yoxlamağa ümid edə bilərsiniz. Məsələn, siz yalnız müəyyən bir domenlə hiperlinkləri toplu şəkildə açmaq istərdiniz. Ümumiyyətlə, onları açmaq üçün bir-bir klikləməlisiniz. Çox əziyyətlidir. Buna görə də, aşağıda sizə daha rahat bir üsul öyrədəcəyik.

E-poçtda Xüsusi Domen ilə Bütün Hiperlinkləri Toplu Açın

1. Kimi üçüntart, "a uyğun olaraq Outlook VBA redaktoruna daxil olun.Outlook-da VBA kodunu necə işlətmək olar".
2. Sonra, “Proqramlar üçün Microsoft Visual Basic” pəncərəsində “MS Word Object Lib”ə istinadı aktivləşdirin.rary” istinadla “Necə Obyekt Lib əlavə etmək olarrary VBA-da istinad".
3. Sonra, aşağıdakı VBA kodunu istifadə olunmamış modul və ya layihəyə kopyalayın.

Sub BatchOpenHyperlinksWithSpecificDomain()
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
    Dim objDictionary As Object
    Dim i As Integer
    Dim varHyperlinks As Variant
    Dim varHyperlink As Variant
    Dim objInternetExplorer As Object
 
    'Get the source email
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    Set objMailDocument = objMail.GetInspector.WordEditor
    For Each objHyperlink In objMailDocument.Hyperlinks
        If InStr(1, objHyperlink.Address, "www.datanumen.com") > 0 Then
           'Add Hyperlinks to Dictionary
           If objDictionary.Exists(objHyperlink.Address) = False Then
              objDictionary.Add objHyperlink.Address, 1
           End If
        End If
    Next
 
    'Batch Open Hyperlinks on different tabs in same Internet Explorer window
    Set objInternetExplorer = CreateObject("InternetExplorer.Application")
    varHyperlinks = objDictionary.Keys
    For i = LBound(varHyperlinks) To UBound(varHyperlinks)
        varHyperlink = varHyperlinks(i)
 
        If i = 0 Then
           objInternetExplorer.Visible = True
           objInternetExplorer.navigate varHyperlink
        Else
           objInternetExplorer.navigate varHyperlink, CLng(2048)
        End If
    Next
End Sub

4. Sonra bu makronu Tez Giriş Alətlər Panelinə və ya lentə əlavə edin.
5. Nəhayət, cəhd etmək üçün aşağıdakı addımları atın.

• Əvvəlcə Outlook e-poçtunu seçin və ya açın.
• Sonra, makro düyməsini basın.
• Aşağıdakı şəkildə göstərildiyi kimi, dərhal e-poçtda əvvəlcədən təyin edilmiş domeni olan hiperlinklər Internet Explorer-də toplu şəkildə açılacaq:

Qıcıqlandırıcı Outlook korrupsiyasından qurtulun

Outlook səhvlərə və korrupsiyaya həssas olsa da, əslində bütün risklərə diqqət yetirdiyiniz müddətcə onlardan asanlıqla xilas ola bilərsiniz. Məsələn, mütəmadi olaraq Outlook üçün məlumatların ehtiyat nüsxəsini çıxartmalısınız. Bundan əlavə, tərkibində viruslar ola biləcək şübhəli e-poçtlara diqqət yetirməlisiniz. Nəhayət, ən azı bir hazırlasanız yaxşı olar Outlook təmiri kimi kommunal DataNumen Outlook Repair. O, Outlook-un korlanması halında sizə kömək etməyə qadirdir.

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 satqın SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com