Mail avec body + saut de ligne.

[rjcb]

Re salut!

J'envoi des mail via excel avec un body:

With message
.Subject = Feuil2.Range("D2").Value & S
'.body = Feuil2.Range("D5").Value & vbCr & vbCr
.body = Feuil2.Range("D5").Value & vbCr & vbCr

Par contre comment faire pour que le body soit sur plusieurs ligne du genre:

Bonjour,


Comment allez vous ...

Salut

J'ai essayer ceci mais cela ne fonctionne pas ./

.body = Feuil2.Range("D5").Value & vbCr & vbCr
.body = Feuil2.Range("D5").Value & vbCr & vbCr

Merci

 

[Pierrot93]

Re : Mail avec body + saut de ligne.

Bonjour Rjcb

comprends pas tout, tu copies 2 fois la cellule D5, la 2ème ligne écrase la 1ère !!! essaye peut être de remplacer VbCr (saut de paragraphe) par VbLf (saut de ligne)

bon après midi
@+

 

[Spitnolan08]

Re : Mail avec body + saut de ligne.

Bonjour Rjcb, Pierrot93,

ou peut être un truc du style :

Dim Text(1 to 5) as string
With message
For i = 1 to 5
     Texte(i)= Feuil2.cells(4+i,"D").Value
     .body = .body & vBLf & Text(i)
Next
end with

A tester...

Cordialement