Як автоматично відкривати всі вбудовані гіперпосилання під час читання певних електронних листів у Outlook

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

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

Автоматичне відкриття всіх вбудованих гіперпосилань під час читання певних електронних листів

1. Для початку запустіть програму Outlook.
2. Увійшовши у вікно Outlook, натисніть сполучення клавіш «Alt + F11».
3. У наступному вікні редактора VBA потрібно ввімкнути об’єкт «Регулярні вирази Microsoft VBScript». Натисніть «Інструменти» та виберіть «Посилання», щоб досягти цього.
4. Далі відкрийте проект «ThisOutlookSession».
5. Потім скопіюйте наведений нижче код VBA в цей проект.

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. Після цього вам слід підписати цей макрос. Натисніть «Інструменти» > «Цифровий підпис», щоб виконати це.
7. Далі вийдіть із поточного вікна та змініть налаштування макросу Outlook.
8. Зрештою, вам потрібно перезавантажити Outlook, щоб увімкнути новий проект VBA.
9. Відтоді щоразу, коли ви двічі клацаєте певні електронні листи, щоб прочитати їх у власному вікні повідомлення, Outlook автоматично розпізнає гіперпосилання в тілі електронної пошти та негайно відкриває їх у Internet Explorer.

Ніколи не обходьте помилки Outlook

Можливо, ви стикалися з різноманітними помилками Outlook. Хоча усунути проблеми Outlook складно, ви також не можете їх нехтувати. Накопичені помилки можуть призвести до серйозних катастроф у Outlook, наприклад до пошкодження PST. Отже, вам краще підготувати грізний зовнішній вигляд Виправлення в Outlook утиліта, типу DataNumen Outlook Repair. Це може мінімізувати пошкодження, тим самим витягуючи максимальну кількість даних PST без зайвих зусиль.

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

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