If Left(OLmail.Subject, 2) = "TR" Then 'mail transféré on récupère le nom de l'émetteur précédent
MaString = OLmail.Body
I = InStr(1, MaString, vbCrLf & "De" & Chr(160) & ": ")
MaString = Mid(MaString, I + 7, Len(MaString) - I - 6)
j = InStr(1, MaString, vbCrLf & "Envoyé" & Chr(160) & ": ")
If j = 0 Then GoTo suit
MaString = Left(MaString, j - 1)
AdressMail = Trim(MaString)