Ваша электронная почта ясна, но в ней отсутствуют детали, например, где находится электронная почта. Да, в теле, но это не очень помогает, поэтому я создал демонстрационный макет, за которым должно быть достаточно легко следить:
Давайте предположим, что полученное письмо имеет следующий формат:
Уважаемый господин,
Мы получили следующую деталь
Электронная почта: 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