Sub readBody(MyMail As Outlook.MailItem)
Dim bool As Boolean
bool = False
Dim LArray() As String
LArray = Split(MyMail.Body, vbCrLf)
For Each element In LArray
If Len(element) = 0 Then
ElseIf element = "========Unique string===========" Then
bool = True
ElseIf element = "==============================" Then
bool = False
ElseIf bool = True Then
Debug.Print element
ElseIf InStr(1, element, "added =", 1) Then
Debug.Print Mid(element, 9, InStr(8, element, ",", 1) - 9)
End If
Next
End Sub