Eu tenho o seguinte problema:

  • Eu tenho um e-mail que chega na minha caixa de correio
  • esses e-mails contêm uma string específica no corpo
  • o que eu quero fazer é:
    • - & gt; removendo esta corda do corpo
    • - & gt; então envie este corpo para outro endereço de e-mail (enviar, não encaminhar)

O que eu já fiz:

UMA. Criado uma regra que ativa o script em mensagens recebidas que contêm uma determinada string na descrição

Esta é a descrição da regra:

Apply to message
with "Maileater" in the subject
  and on this computer only
run "Project1.ChangeString"

B. Criei o script com as seguintes instruções:

Public Sub ChangeString (MyMail como MailItem)

   Dim body As String
   body = MyMail.body

   body = Replace (body, "=====================================================", " ")
   MyMail.body = body

   MyMail.Save
End Sub

C. Agora quero adicionar no script a instrução para enviar o corpo (ou MyMail.body) para um endereço de e-mail específico (por exemplo, [email protected] com a descrição "Support asked") após a substituição da string.

Isso é possível?

Alguém pode me ajudar com isso, eu ficaria muito grato porque isso vai eliminar muito trabalho manual para mim.

Este é apenas um exemplo de um email, o real irá conter outras substituições e emails para enviar.

Guido Mertens
fonte