Скрипт 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