2

Мне интересно, возможно ли настроить правило в outlook, которое отвечает на электронное письмо в теле, а не отвечает фактическому отправителю.

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

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

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

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

1 ответ1

2

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

Давайте предположим, что полученное письмо имеет следующий формат:

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

Мы получили следующую деталь

Электронная почта: 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 = "name@domain.com"
  '.BCC = "name@domain.com"
  '.Subject = "The subject"
  '.Categories = "Test"
  '.VotingOptions = "Yes;No;Maybe;"
  '.BodyFormat = olFormatPlain
  '.Importance = olImportanceHigh
  '.Sensitivity = olConfidential


  .Display
End With

Set objMsg = Nothing        

End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .