VBA скрипт для outlook для автоматического открытия URL из тела сообщения в веб-браузере для всех входящих писем

Я довольно новичок в написании сценариев VBA. На самом деле я пытаюсь написать небольшой VBA-скрипт, который будет проходить через недавно полученное письмо, сканировать тело сообщения и открывать все URL-адреса (я нацеливаю этот скрипт на сообщение, которое всегда содержит один URL-адрес) в веб-браузер, как IE или FF или Chrome. Я пытался искать похожие вопросы в SO и в Google. Я нашел один здесь:Как запустить URL при получении письма о том, как открыть URL, когда приходит электронное письмо. Но он всегда открывает фиксированный URL, а не просматривает тело сообщения и выбирает URL оттуда. Также я нашел это:Использование VB / VBA для поиска сообщений Outlook и извлечения определенных данных в таблицу Excel которые проходят через тело сообщения, чтобы выбрать / найти что-то. В моем сценарии я хочу объединить оба, но я не могу придумать базовый сценарий. Может ли кто-нибудь дать мне советы по их объединению и помочь мне достичь цели по открытию URL-адресов из тела сообщения при получении нового письма в почтовом ящике Outlook. Заранее спасибо.

Ответы на вопрос(2)

Sub LaunchURL(itm As MailItem)

    Dim bodyString As String
    Dim bodyStringSplitLine
    Dim bodyStringSplitWord
    Dim splitLine
    Dim splitWord

    bodyString = itm.Body
    bodyStringSplitLine = Split(bodyString, vbCrLf)

    For Each splitLine In bodyStringSplitLine
        bodyStringSplitWord = Split(splitLine, " ")

        For Each splitWord In bodyStringSplitWord
            If Left(splitWord, 7) = "http://" Then
                Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & " " & splitWord)
            End If
        Next

    Next

    Set itm = Nothing

End Sub

Private Sub test()
    Dim currItem As MailItem
    Set currItem = ActiveInspector.currentItem
    LaunchURL currItem
End Sub

я думаю, что это немного небезопасно, даже если ваше правило только для людей из определенного домена. Это хорошая идея, когда вы проверяете urlstring с созданной вами переменной (например, ссылка только из локальной интрасети).

if splitWord like "my_company_internat_url" then '...

Ваш ответ на вопрос