☰

Outlook-Regel, die auf eine E-Mail im Textkörper und nicht beim Absender antwortet

tag-icon • tag-icon email microsoft-outlook-2010 rules
Outlook-Regel, die auf eine E-Mail im Textkörper und nicht beim Absender antwortet

Ich frage mich, ob es möglich ist, in Outlook eine Regel einzurichten, die auf eine E-Mail im Textkörper reagiert, anstatt dem tatsächlichen Absender zu antworten.

Wir erhalten E-Mails über eine Website von Personen, die sich in unserer Datenbank anmelden möchten. Alle E-Mails kommen jedoch von derselben E-Mail-Adresse – automatische Antwort (das Unternehmen, das die Website verwaltet) und die Details der Personen, die sich anmelden möchten, einschließlich ihrer E-Mail-Adresse, stehen alle im Textkörper.

Ich habe mich gefragt, ob es eine Option gibt, auszuwählen, an welche E-Mail die Antwort gesendet werden soll?

Ich verwende Outlook 2010

Vielen Dank für jede Hilfe, Sarah

Antwort1

Ihre E-Mail ist klar, enthält aber nicht viele Details, wie zum BeispielWodie E-Mail ist. Ja, im Text, aber das hilft nicht wirklich, deshalb habe ich ein Demo-Modell erstellt, das leicht zu befolgen sein sollte:

Nehmen wir an, die E-Mail, die ich erhalte, hat das folgende Format:

Lieber Herr,

Wir haben folgende Einzelheiten erhalten

E-Mail: myEmail@domain Telefon: 12345

Wir werden in Verbindung bleiben

Abgemeldet

Der folgende VBa-Code findet die E-Mail-Adresse und öffnet eine neue E-Mail mit dieser Adresse im Feld „An“

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

verwandte Informationen