macro VBA para substituir todas as ocorrências de regex X pela cadeia Y no Outlook 2010

Question

Eu quero invocar alguma macro que resulta no rascunho do e-mail atualmente ativo sendo carregado para uma variável e, em seguida, substituir cada instância de uma determinada regex por alguma string.

Estou particularmente preso na primeira linha abaixo. Não consigo encontrar nenhum tutorial simples que comece perto desse passo (todos parecem começar muito cedo ou muito mais tarde).

PseudoCode:

myMessage = active message
someRegex = \d\d[:,]\d\d
someString = "(Time Entry)"
myMessage.HTMLBody = Replace(myMessage.HTMLBody, someRegex, someCharacter)

    

Answer 1

Para obter a mensagem atual aberta, use o seguinte código:

Set myMessage = ActiveInspector.CurrentItem