☰

Regla de Outlook que responde a un correo electrónico en el cuerpo en lugar del remitente

tag-icon • tag-icon email microsoft-outlook-2010 rules
Regla de Outlook que responde a un correo electrónico en el cuerpo en lugar del remitente

Me pregunto si es posible configurar una regla en Outlook que responda a un correo electrónico en el cuerpo en lugar de responder al remitente real.

Recibimos correos electrónicos a través de un sitio web para personas que desean registrarse en nuestra base de datos; sin embargo, todos los correos electrónicos provienen de la misma dirección de correo electrónico: respuesta automática (la empresa que administra el sitio web) y los detalles de las personas que solicitan registrarse, incluidos sus correos electrónicos están todos en el cuerpo del texto.

Me preguntaba si hay una opción para seleccionar a qué correo electrónico debe enviarse la respuesta.

Estoy usando Outlook 2010

Gracias por cualquier ayuda, Sara.

Respuesta1

Su correo electrónico es claro pero carece de detalles, comodóndeel correo electrónico es. Sí, en el cuerpo, pero eso realmente no ayuda, por lo que he creado una maqueta de demostración que debería ser bastante fácil de seguir:

Supongamos que el correo electrónico que recibo tiene el siguiente formato:

Estimado señor,

Recibimos el siguiente detalle

Correo electrónico: micorreo electrónico@dominio Teléfono: 12345

Estaremos en contacto

Firmado

El siguiente código VBa encontrará la dirección de correo electrónico y abrirá un nuevo correo electrónico con esta dirección en el 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

información relacionada