Как автоматически открывать все встроенные гиперссылки при чтении определенных писем в Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Некоторые пользователи хотят, чтобы Outlook мог автоматически открывать гиперссылки, вставленные в тело электронной почты, когда они открывают и читают определенные электронные письма. Теперь, в этой статье, мы поделимся методом, который может легко реализовать это.

Открывая и читая определенные электронные письма, например жизненно важные электронные письма от вашего начальника, если электронные письма содержат несколько гиперссылок, вы обязательно откроете эти ссылки. По сравнению с открытием встроенных гиперссылок вручную, автоматическое открытие их в Outlook, безусловно, будет намного удобнее. Здесь мы подробно научим вас, как этого добиться.

Автоматически открывать все встроенные гиперссылки при чтении определенных писем

Автоматически открывать все встроенные гиперссылки при чтении определенных писем

  1. К starт с, запустите приложение 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

Код VBA - автоматическое открытие всех встроенных гиперссылок при чтении определенных электронных писем

  1. После этого вы должны подписать этот макрос. Нажмите «Инструменты»> «Цифровая подпись», чтобы выполнить это.
  2. Затем выйдите из текущего окна и измените настройки макроса Outlook.
  3. В конечном счете, вам нужно restarОткройте Outlook, чтобы включить новый проект VBA.
  4. С тех пор каждый раз, когда вы дважды щелкаете по определенным электронным письмам, чтобы прочитать их в своем собственном окне сообщений, Outlook автоматически распознает гиперссылки в теле письма и сразу же открывает их в Internet Explorer.

Никогда не обходить ошибки Outlook

Возможно, вы сталкивались с различными ошибками Outlook. Хотя устранить проблемы с Outlook сложно, игнорировать их тоже нельзя. Накопившиеся ошибки могут привести к серьезным сбоям в работе Outlook, например к повреждению PST. Следовательно, вам лучше подготовить грозный внешний Исправление Outlook полезность, как DataNumen Outlook Repair. Это может свести к минимуму повреждение, тем самым извлекая максимум данных PST без суеты.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.