Fonction sendmail : prb de retour chariot

Question

j'ai une fonctio qui ce présente comme ça : 
function SendMail (Ref,Lib,Priorite,LibEtat,EMail,LibEnv)
Dim objCDOMail
Dim Sujet,Corps, Retour
Retour=Chr(13)&Chr(10)
Sujet=("Une Demande "&LibEnv &" est arrivée")
Corps=("Réference : " &Ref &" Libellé : " &Lib) 
Response.Write(Corps)
Set objCDOMail=Server.CreateObject("CDONTS.NewMail")
objCDOMail.From="toto"
objCDOMail.To="EMail"
objCDOMail.Subject=Sujet
objCDOMail.Body=Corps
objCDOMail.Send
Set objCDOMail=Nothing
end function

Dna sla variables "Corps" je voudrais faire un retour chariot juste avant "Libellé" mais je n'y arrive pas 
a l'aide!!
Merci beaucoup
Juju

ProcESsuS · Answer

Corps=("Réference : " & Ref & vbCrLf & " Libellé : " &Lib) 

NOTE:
vbCrLf = Retour chariot (Chr(10) + Chr(13))

Fonction sendmail : prb de retour chariot

1 réponse

Discussions similaires