Сценарій VBA для розбору гіперпосилання з електронної пошти, потім відправити як нове повідомлення

У мене є сценарій для правила Outlook, який видаляє тіло електронної пошти з повідомлення, а потім пересилає цю нову електронну пошту на номер стільникового телефону з предметом недоторканим. Сценарій VBA такий:

Public Sub SMS(msg As MailItem)

  Dim olMailFwd As MailItem

  Set olMailFwd = msg.Forward

  With olMailFwd
      .HTMLBody = ""
      .Subject = msg.Subject
      .To = "5551234567@carrier.com" 'enter phone number e-mail address here
  End With

  olMailFwd.Send

  Set olMailFwd = Nothing

End Sub

Я хотів би змінити цей сценарій для аналізу гіперпосилання з повідомлення. Один тип електронної пошти, який буде надіслано цим сценарієм, має виписане гіперпосилання (тобто. https://www.google.com/ ). Однак другий тип електронної пошти, до якої я хотів би звернутися, має вбудовану в блок тексту гіперпосилання (тобто. Google ).

Я сподівався, що зможу допомогти змінити існуючий скрипт, оскільки у мене немає багато досвіду VBA. Більшість того, що я робила в минулому, використовувала вже існуючі приклади, і мені не вдалося знайти багато чого для використання в якості керівництва для цього.

microsoft-outlook vba

— majunga
джерело

Отже, вам потрібно проаналізувати гіперпосилання нашого вихідного (отриманого) повідомлення і ... зробити те, що з цим гіперпосиланням?

— thims

Електронна пошта - це багато тексту, і в цьому тексті є гіперпосилання. Я хотів би видалити все, крім гіперпосилання. Отже, зробіть аналіз гіперпосилання, а потім відправте лише гіперпосилання як тіло, з оригінальною темою.

— majunga