1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| set Mail=CreateObject("CDO.Message")
with Mail
.From="toto@hotmail.fr"
.To="titi@hotmail.fr"
.Subject="bonjour"
.TextBody="bonjour "
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
.Configuration.Fields.Item .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
.Configuration.Fields.Update
On error resume next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
msgbox "le mail n'a pas pu être envoyé"
Else
msgbox "mail bien envoyé"
End If
On Error GoTo 0
End with |
Partager