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
47
48
49
50
51
52
53
54
55
| Sub liensDansCorpsDuMessage_CDO()
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>Une autre année vient de se terminer. Nous aimerions vous inviter à prendre connaissance des informations contenues dans ce fichier, de les corriger au besoin et de nous retourner le fichier afin de préparer vos déclarations d'impôt 2012. "
'strHTML = strHTML & "<A href='http://www.developpez.com'>Cliquez ici.</A>"
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & "<BR>"
strHTML = strHTML & "Lemieux Cantin S.E.N.C.R.L." & "<BR>"
strHTML = strHTML & "Comptables Agréés/Chartered Accountants" & "<BR>"
strHTML = strHTML & "" & "<BR>"
strHTML = strHTML & "8822 BOUL. LANGELIER, BUREAU 210" & "<BR>"
strHTML = strHTML & "ST-LÉONARD (Québec) H1P 3H2" & "<BR>"
strHTML = strHTML & "Téléphone: 514-322-3870 Fax : 514-322-1012" & "<BR>"
strHTML = strHTML & "---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------" & "<BR>"
strHTML = strHTML & "Politique de confidentialité" & "<BR>"
strHTML = strHTML & "Ce message peut renfermer des renseignements confidentiels, il est réservé à l'usage de l'individu ou de l'entreprise à qui il est adressé. Si vous n'êtes pas le destinataire de ce message (ou la personne chargée de le transmettre au destinataire), veuillez supprimer ce message y compris toute pièce jointe et en aviser l'expéditeur par " & "<BR>"
strHTML = strHTML & "courriel." & "<BR>"
strHTML = strHTML & "" & "<BR>"
strHTML = strHTML & "Confidentiality policy" & "<BR>"
strHTML = strHTML & "This e-mail and its contents are confidential and intended only for the individual or entity above named. If you are not the addressee indicated in this message (or responsible for delivery of the message to such person), you should destroy this e-mail and its contents and kindly notify the sender by reply e-mail." & "<BR>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sbs2008"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.240"
.Update
End With
With iMsg
Set .Configuration = iConf
'.To = "rmonette@lemieuxcantin.qc.ca" 'Renvoie une erreur si l'adresse est non valide
.To = "bertrandmonette@sympatico.ca" 'Renvoie une erreur si l'adresse est non valide
.From = "rmonette@lemieuxcantin.qc.ca"
.Subject = "Saison des impôts 2013"
.HTMLBody = strHTML
.Send
End With
End Sub |
