.BodyFormat = 2
.Body = "Bonjour" & vbNewLine & "Ci-joint Bon de commande PHF" & vbNewLine & "Cordialement" & vbNewLine & "<a href=""mailto:test@sfr.fr""> transfert pour accord </a>"
.HTMLBody = "<body><html>" & Replace(.Body, vbNewLine, "<BR>") & "</html></body>"