Як пакетно відкрити всі гіперпосилання з певним доменом у вашій електронній пошті Outlook

Під час перегляду повідомлення електронної пошти Outlook, що містить багато гіперпосилань в тілі, іноді вам може знадобитися лише швидко відкрити гіперпосилання з певним доменом. Тут ми поділимось методом масового відкриття таких гіперпосилань.

Зважаючи на кілька гіперпосилань в одному електронному листі, ви можете сподіватися перевірити деякі з них, а не всі. Наприклад, ви лише хотіли б пакетно відкривати гіперпосилання з певним доменом. Загалом, вам потрібно клацнути по одному, щоб відкрити їх. Це дуже клопітно. Отже, далі ми навчимо вас більш зручному способу.

Пакетне відкриття всіх гіперпосилань із певним доменом в електронній пошті

1. Для якtart, зверніться до редактора Outlook VBA відповідно до “Як запустити код VBA у своєму Outlook».
2. Згодом у вікні “Microsoft Visual Basic for Applications” увімкніть посилання на “MS Word Object Library "з посиланням на"Як додати бібліотеку об’єктаrary Довідка у VBA».
3. Потім скопіюйте наступний код VBA у невикористаний модуль або проект.

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. Потім додайте цей макрос на панель швидкого доступу або стрічку.
5. Нарешті, виконайте наступні кроки, щоб спробувати.

• Спочатку виберіть або відкрийте електронну пошту Outlook.
• Потім натисніть кнопку макросу.
• Одразу гіперпосилання із заздалегідь визначеним доменом в електронному листі буде пакетно відкрито в Internet Explorer, як показано на наступному зображенні:

Позбавтеся від подразнюючої корупції в Outlook

Незважаючи на те, що Outlook сприйнятливий до помилок та корупції, насправді, доки ви враховуєте всі ризики, ви можете легко врятуватися від них. Наприклад, вам потрібно регулярно робити резервні копії даних для Outlook. Крім того, слід стежити за підозрілими електронними листами, які можуть містити віруси. І останнє, але не менш важливе, краще підготуйте Ремонт Outlook утиліта, наприклад DataNumen Outlook Repair. Він здатний допомогти вам у випадку пошкодження Outlook.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі корумпований SQL Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com