☰

Regra do Outlook que responde a um e-mail no corpo e não no remetente

tag-icon • tag-icon email microsoft-outlook-2010 rules
Regra do Outlook que responde a um e-mail no corpo e não no remetente

Gostaria de 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 através de um site para pessoas que desejam se inscrever em nosso banco de dados, porém todos os e-mails vêm do mesmo endereço de e-mail - resposta automática (a empresa que cuida do site) e os dados das pessoas que solicitam a inscrição, incluindo seus e-mails estão todos no corpo do texto.

Gostaria de saber se existe uma opção para selecionar para qual e-mail a resposta deve ir?

Estou usando o Outlook 2010

Obrigado por qualquer ajuda, Sara

Responder1

Seu e-mail é claro, mas falta detalhes, comoondeo e-mail é. Sim, no corpo, mas isso realmente não ajuda, por isso criei um modelo de demonstração que deve ser fácil de seguir:

Vamos supor que o e-mail que recebo esteja no seguinte formato:

Caro senhor,

Recebemos o seguinte detalhe

E-mail: myEmail@domain Telefone: 12345

Nós vamos entrar em contato

Desconectado

O seguinte código VBa encontrará o endereço de e-mail e abrirá um novo e-mail com este 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

informação relacionada