1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Function TestSendEmail()
'This function sends the Email through the SMTP gateway (internet mail)
Dim oMail As Object
Dim oMailConfig As Object
Dim strMail As String
Set oMail = CreateObject("CDO.Message")
Set oMailConfig = CreateObject("CDO.Configuration")
oMail.from = "Moi.Meme@acme.com"
oMail.to = "Vous.autres@ecole.edu"
oMail.Subject = "Amusons-nous"
'Voici un exemple simple. Notez le vbCrLf pour aller à la ligne
'strMail = "Bonjour," & vbCrLf & "A l'occasion de mon anniversaire, venez boire un verre d'eau !" & vbCrLf & "à bientôt"
'oMail.Textbody = strMail
'au lieu de ce texte simple, on peut utiliser HTML :
strMail = "<HTML><BODY><body style=""background:#FFFFCC"">"
'le texte :
strMail = strMail & "<BR><span style=""color:#80BFFF"">C'est mon anniversaire."
strMail = strMail & "<BR>Je vous invite à faire la <b>fête</b>"
strMail = strMail & "</BR><font size=""6"">J'ai préparé les zakouskis et le champagne.</font>"
'... et ainsi de suite avec toutes possibilités de HTML
'terminer et fermer les tags
strMail = strMail & "</BODY></HTML>"
oMail.HTMLBody = strMail
oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "HQ-SMTP-T"
oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "FR"
oMail.configuration.Fields.Update
oMail.send
Set oMailConfig = Nothing
Set oMail = Nothing
End Function |
Partager