[AC-2016] Comment changer format mail

Bonjour,

Voici un exemple d'envoi d'Email soit en texte simple soit en HTML.
Code:
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