Converter Texto Simples em Hiperlink no Outlook [duplicado]

2

Estou montando um POC para minha empresa em relação a algumas ferramentas de monitoramento que usamos. Como parte do meu projeto, preciso converter partes de um email de texto simples enviado para mim em um hiperlink (não consigo enviar os emails em HTML a partir da própria ferramenta).

Não tenho quase nenhuma experiência com o VB, mas é isso que eu costurei lendo vários outros posts. Eu percebo que não é funcional de todo, mas eu pensei que poderia ser algo de uma linha de base para os outros ter uma idéia melhor do que estou tentando realizar e dar feedback. Essencialmente, estou tentando pesquisar uma string no e-mail e convertê-la em um hiperlink mais conciso que aponta para a mesma string que a URL.

Preciso de ajuda para limpar o que tenho se você tiver alguma indicação.

Option Explicit

Sub InsertHyperLink(MyMail As MailItem)
Dim body As String, re As Object, match As Variant

body = MyMail.body
Set re = CreateObject("vbscript.regexp")
re.Pattern = "^https\..*Operation>$"

For Each match In re.Execute(body)
    body = Replace(body, match.Value, "<a href=""" & Right(match.Value) & """>Open Link</a>", 1, -1, vbTextCompare)
Next

MyMail.body = body
MyMail.Save
End Sub
    
por worseone 23.08.2013 / 22:37

1 resposta

-1

Eu tenho uma resposta, mas é um pouco prolixa, tenho certeza de que há uma maneira mais fácil, mas dessa maneira funciona:

Se você tiver uma palavra escrita e puder fazer o hiperlink no trabalho e depois alterar a fonte, o tamanho etc., você pode copiá-los do Word para o Outlook e manterá o hiperlink. : D

    
por 24.08.2013 / 11:44