Récupération du corps d'un mail ligne par ligne ?

[Zebulon777]

Bonjour à tous,

J'ai une macro Outlook qui tourne en permanence.
Cette macro doit étudier les mails arrivant puis les décoder afin des les traiter.
J'arrive bien à récupérer le coprs du mail, mais ensuite je n'arrive pas à récupérer ligne par ligne.

En fait, le corps du mail est composé de plusieurs lignes qui se terminent par un CRLF et il faudrait donc que j'arrive à extraire ce corps ligne par ligne.

Voila, j'espère avoir été suffisemment clair.

Merci d'avance pour votre aide.

Zeb'

[Laurent CUENET]

Bonjour,

Je pense qu'en utilisant Une boucle et la fonction InStr([start],string(objetdetonmail),VbCrLf) tu devrais t'en sortir.

A bientôt,

[Zebulon777]

Bonjour et merci pour la réponse, mais c'est sur le coprs du message et non sur l'objet.

Mais il n'y aurait pas d'exemple plus précis ?

C'est un peu (beaucoup ?) flou pour moi.

[Laurent CUENET]

Bonjour,

J'espère que cela pourra t'aider c'est une fonction qui traite des numéro de tél pour supprimer les caractères différents des chiffres.(exemple +, [espace], paranthèse

 
Function NetTel(numero)
 
Dim itemstring As String
itemstring = "0123456789"
 
    l = Len(numero)
    t = 1
    NumeroV = ""
    While t <= l
        n = Mid(numero, t, 1)
        p = InStr(itemstring, n)
        If p <> 0 Then
            NumeroV = NumeroV & n
        End If
        t = t + 1
    Wend
    
    NetTel = NumeroV
    
End Function

En esparant que cela t'aidera

A bientôt

[Oliv-]

Salut à tous,
Voici un autre exemple qui cherche une adresse Email dans le Corps du Mail.
http://www.developpez.net/forums/sho...d.php?t=503466

[Zebulon777]

Merci à tous pour votre aide.
Au final, il suffit de comprendre que le corps n'est qu'une simple variable et j'ai donc utiliser la fonction Split et tout fonctionne très bien.
Merci encore.