Определить конец нового сообщения в теле сообщения электронной почты
Когда сообщение получает ответ или пересылается, предыдущий поток добавляется к вашему новому письму, помещая перед ним то есть ---- оригинальное сообщение.
Outlook делает то же самое с текстовыми сообщениями, но с HTML-письмами показывает строку, сопровождаемую From: ..
Так как outlook показывает грань между этими сообщениями, я верюМожно вычесть эти сообщения, используя VBA. Но как?
Цель: когда пользователь отправляет письмо (Application_ItemSend), я хочу отсканировать сообщение на наличие определенных слов. Но я неМеня не волнует, встречается ли это в предыдущем сообщении, я хочу сканировать только что напечатанное сообщение.
Пример ниже будет работать при ответе на электронную почту в outlook, когдаS в тексте (и перспективы на английском языке!). Но это не будет работать при отправке электронного письма в формате HTML.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim EndOfMsg As Integer
Dim myMsg as String
EndOfMsg = InStr(Item.Body, "-----Original Message-----")
If EndOfMsg = 0 Then
myMsg = Item.Body
Else
myMsg = Left(Item.Body, EndOfMsg)
End If
MsgBox myMsg
End Sub
Так что мне нужно немноголексема» разделить на, исправить .. Но что это за токен? Все, что есть между myMsg и более старым msg 'с двойнойvbCrLf
, Так же, как когда я ввожу новую строку в моем сообщении ... нет ничего уникального!