Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Expediteur@toto.com"
objEmail.To = "Destinataire@toto.com"
objEmail.Subject = "Sujet: Toto a la plage"
objEmail.Textbody = "Texte: Il fait beau, le soleil brille"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"serveur-smtp-exchange"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send