Bonjour,
j'ai une table dans une base access où il y a des adresses emails à qui je dois envoyé des fichiers.
voici le code que j'utilise pour envoyer des mails à ces destinataires avec fichiers attachés depuis ma base Access:
ce code fonctionne très bien mais envoie des mails sous format texte.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Dim MonOutlook As Object Dim MonMessage As Object Dim cn As Connection Dim rs As New Recordset Dim destinat As String Dim fich As String Dim email As String Dim suite As String Set cn = New Connection cn.Open "DSN=Base_mails" Dim sql As String sql = "SELECT * FROM Table_mails" rs.ActiveConnection = cn rs.CursorType = adOpenDynamic rs.Open sql, cn, adOpenDynamic, adLockOptimistic rs.MoveFirst Do While Not rs.EOF fich = rs.Fields("fichier") email = rs.Fields("mail") 'ici je prends l'adresse mail du destinataire + le nom du fichier à lui envoyer Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(olMailItem) MonMessage.BodyFormat = olFormatHTML MonMessage.To = email MonMessage.Cc = "bidule@machin.com" MonMessage.Bcc = "chose@machin.com" MonMessage.Subject = "Devine qui c'est?" MonMessage.body = "Salut c'est moi." MonMessage.Attachments.Add "C:\Etats\" & fich & ".pdf" MonMessage.send Set MonOutlook = Nothing Loop
je désire envoyer des mails sous format HTML pour pouvoir mettre du gras, des couleurs, des soulignements........
j'ai donc chargé la bibliothèque Outlook en allant dans le menu Outils/Références, et en cochant la case "Microsoft Outlook 11.0 object library".
ceci m'a permis de rajouter la ligne: ""
Code : Sélectionner tout - Visualiser dans une fenêtre à part MonMessage.BodyFormat = olFormatHTML
et j'ai inseré dans le MonMessage.body des balises HTML :mais au lieu de m'envoyer un mail bien mis en page il m'envoie le code HTML.
Code : Sélectionner tout - Visualiser dans une fenêtre à part MonMessage.body = "<HTML><strong>Salut</strong><BR>C'est moi.</HTML>"
avez-vous une solution à mon problème ou des conseils à me donner?
je vous remercie d'avance.
Partager