Regra do Outlook que responde a um email no corpo em vez do remetente

Question

Eu estou querendo saber se é possível configurar uma regra no Outlook que responda a um e-mail no corpo, em vez de responder ao remetente real.

Recebemos e-mails em um site para pessoas que desejam se inscrever em nosso banco de dados, mas todos os e-mails vêm do mesmo endereço de e-mail - resposta automática (a empresa que cuida do site) e os detalhes das pessoas que estão solicitando a assinatura , incluindo o email, estão no corpo do texto.

Eu queria saber se há uma opção para selecionar para qual email a resposta deve ir?

Estou usando o Outlook 2010

Obrigado por qualquer ajuda, Sarah

    

Answer 1

Seu e-mail é claro, mas não tem detalhes, como em que o e-mail está. Sim, no corpo, mas isso não ajuda muito, como tal, criei uma demo que deve ser fácil de seguir:

Vamos supor que o email que recebo esteja no seguinte formato:

Dear Sir,

We received the following detail

Email: myEmail@domain Phone: 12345

We will be in touch

Signed off

O código VBa a seguir encontrará o endereço de e-mail e abrirá um novo e-mail com esse endereço no campo Para

Sub MailItemContent2()
    Dim olItem As Outlook.MailItem
    Dim sText As String
    Dim sEmail As String
    Dim emailWords() As String
    Set olItem = ActiveExplorer.Selection.Item(1)
    sText = Replace(olItem.Body, vbCrLf, " ")
    emailWords = Split(sText, " ")
    Dim i As Integer
    Dim emailIndex As Integer
    emailIndex = -99
    isNext = False
    For i = 0 To UBound(emailWords)

        If (emailIndex = i) Then
           sEmail = Split(emailWords(i), Chr(34))(2)
           Exit For
        End If

        If emailWords(i) = "Email:" Then
            emailIndex = i + 2
        End If

    Next i

    Set objMsg = Application.CreateItem(olMailItem)

 With objMsg
  .To = sEmail
  '.CC = "[email protected]"
  '.BCC = "[email protected]"
  '.Subject = "The subject"
  '.Categories = "Test"
  '.VotingOptions = "Yes;No;Maybe;"
  '.BodyFormat = olFormatPlain
  '.Importance = olImportanceHigh
  '.Sensitivity = olConfidential


  .Display
End With

Set objMsg = Nothing        

End Sub