Script VBA para analisar o hiperlink do e-mail e enviar como nova mensagem

Question

Eu tenho um script para uma regra do Outlook que retira o corpo do e-mail da mensagem e encaminha esse novo e-mail para um número de telefone celular com o assunto intacto. O script do VBA é o seguinte:

Public Sub SMS(msg As MailItem)

  Dim olMailFwd As MailItem

  Set olMailFwd = msg.Forward

  With olMailFwd
      .HTMLBody = ""
      .Subject = msg.Subject
      .To = "[email protected]" 'enter phone number e-mail address here
  End With

  olMailFwd.Send

  Set olMailFwd = Nothing

End Sub

Gostaria de modificar esse script para analisar um hiperlink da mensagem. Um tipo de email que será encaminhado por esse script terá o hiperlink escrito (por exemplo, link ). No entanto, um segundo tipo de e-mail para o qual gostaria de se inscrever tem o hiperlink incorporado em um bloco de texto (ou seja, google ).

Eu esperava poder obter alguma ajuda para modificar meu script existente, já que não tenho muita experiência com o VBA. A maior parte do que fiz no passado usou exemplos pré-existentes e não consegui encontrar muito para usar como guia para isso.