Outlook elektron pochtangizda ma'lum bir domenga ega bo'lgan barcha giperhavolalarni qanday ommaviy ochish kerak

Ko'p havolalarni o'z ichiga olgan Outlook elektron pochta xabarini ko'rayotganda, ba'zida siz faqat ma'lum bir domen bilan giperhavolalarni tezda ochishni xohlashingiz mumkin. Bu yerda biz bunday giperhavolalarni ommaviy ravishda ochish usulini baham ko'ramiz.

Bitta elektron pochtada bir nechta giperhavolalar mavjud bo'lsa, siz ularning hammasini emas, balki ba'zilarini tekshirishga umid qilishingiz mumkin. Masalan, siz faqat ma'lum bir domen bilan giperhavolalarni ommaviy ravishda ochishni xohlaysiz. Umuman olganda, ularni ochish uchun siz birma-bir bosishingiz kerak. Bu juda muammoli. Shuning uchun, quyida biz sizga qulayroq usulni o'rgatamiz.

Elektron pochtada ma'lum bir domenga ega bo'lgan barcha giperhavolalarni ommaviy ochish

1. Sifatida uchuntart, “ga muvofiq Outlook VBA muharririga kiring.Outlook-da VBA kodini qanday ishlatish kerak".
2. Keyinchalik, "Microsoft Visual Basic for Applications" oynasida "MS Word Object Lib" ga havolani yoqing.rary" ga havola bilanOb'ektni qanday qo'shish kerakrary VBA-da havola".
3. Keyin, foydalanilmagan modul yoki loyihaga quyidagi VBA kodini nusxalang.

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. Keyinchalik, ushbu makrosni Tez kirish asboblar paneli yoki lentaga qo'shing.
5. Nihoyat, sinab ko'rish uchun quyidagi amallarni bajaring.

• Birinchidan, Outlook elektron pochta manzilini tanlang yoki oching.
• Keyin makro tugmasini bosing.
• Elektron pochtada oldindan belgilangan domenga ega giperhavolalar darhol quyidagi rasmda ko'rsatilganidek, Internet Explorer-da ochiladi:

G'azablantiruvchi Outlook korruptsiyasidan xalos bo'ling

Outlook xatolar va buzilishlarga moyil bo'lsa-da, aslida, agar siz barcha xavf-xatarlarga e'tibor qaratsangiz, ulardan osongina qochishingiz mumkin. Masalan, siz muntazam ravishda Outlook uchun ma'lumotlarning zaxira nusxasini yaratishingiz kerak. Bundan tashqari, siz viruslar bo'lishi mumkin bo'lgan shubhali elektron pochta xabarlaridan ehtiyot bo'lishingiz kerak. Nihoyat, lekin eng muhimi, siz yaxshiroq tayyorlagan bo'lardingiz Outlook-ni ta'mirlash kabi yordamchi dastur DataNumen Outlook Repair. U Outlook buzilgan taqdirda sizga yordam berishga qodir.

Muallif kirish:

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