Скрипт VBA для анализа гиперссылки из электронной почты и отправки в качестве нового сообщения

Question

У меня есть сценарий для правила 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. Большая часть того, что я делал в прошлом, использовала уже существующие примеры, и я не смог найти что-то, что можно было бы использовать в качестве руководства для этого.