☰

Правило Outlook, которое отвечает на электронное письмо в тексте, а не отправителю

tag-icon • tag-icon email microsoft-outlook-2010 rules
Правило Outlook, которое отвечает на электронное письмо в тексте, а не отправителю

Мне интересно, можно ли настроить правило в Outlook, которое будет отвечать на текст письма, а не фактическому отправителю.

Мы получаем электронные письма через веб-сайт от людей, желающих зарегистрироваться в нашей базе данных, однако все электронные письма приходят с одного и того же адреса электронной почты — автоматический ответ (компании, которая обслуживает веб-сайт), а данные людей, запрашивающих регистрацию, включая их адреса электронной почты, находятся в тексте.

Мне интересно, есть ли возможность выбрать, на какой адрес электронной почты следует отправить ответ?

Я использую Outlook 2010.

Спасибо за любую помощь, Сара.

решение1

Ваше электронное письмо понятно, но в нем отсутствуют подробности, например:гдеэлектронная почта. Да, в теле письма, но это не особо помогает, поэтому я создал демонстрационный макет, который должен быть достаточно простым для понимания:

Предположим, что я получаю электронное письмо в следующем формате:

Уважаемый господин,

Мы получили следующую информацию

Электронная почта: myEmail@domain Телефон: 12345

Будем на связи

Отписанный

Следующий код VBa найдет адрес электронной почты и откроет новое письмо с этим адресом в поле «Кому».

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

Связанный контент