Envoi de mail par Access via Outlook

**SpiderKarim** · 27/09/2006, 14h20

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:

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

ce code fonctionne très bien mais envoie des mails sous format texte.
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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.body = "<HTML><strong>Salut</strong><BR>C'est moi.</HTML>"

mais au lieu de m'envoyer un mail bien mis en page il m'envoie le code HTML.

avez-vous une solution à mon problème ou des conseils à me donner?
je vous remercie d'avance.

**Lou Pitchoun** · 27/09/2006, 14h54

Bonjour,

avez-vous une solution à mon problème ou des conseils à me donner?

Change ton titre et enlève URGENT : il n'y a rien d'urgent : que des choses en retard.
J'ai mis les balises codes à ta place. merci d'y penser à l'avenir.
Ensuite merci de faire une recherche dans les sources... la solution n'y est peut être pas mais ça peut aider.
Et un petit rappel des règles si tu ne les as pas lues

**SpiderKarim** · 27/09/2006, 15h02

Envoyé par Kikof

Bonjour,

Change ton titre et enlève URGENT : il n'y a rien d'urgent : que des choses en retard.
J'ai mis les balises codes à ta place. merci d'y penser à l'avenir.
Ensuite merci de faire une recherche dans les sources... la solution n'y est peut être pas mais ça peut aider.
Et un petit rappel des règles si tu ne les as pas lues

oui msieur

j'ai pas mis les balises parce que c'est la première fois que je poste. j'avais mis le code en bleu de tte facon donc l'intention y été.
c'était urgent pour moi d'avoir une solution dans l'heure.

**SpiderKarim** · 27/09/2006, 15h05

au fait j'ai trouvé la solution:
une fois qu'on force le mail à être sous le format HTML, il faut remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.body = "Salut c'est moi."

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.HTMLbody = "Salut c'est moi."

ca a l'air simple mais c'est pas évident à deviner tt seul

MON DIEU!!! j'ai failli oublié les balises encore

**Lou Pitchoun** · 27/09/2006, 15h13

Envoyé par SpiderKarim

ca a l'air simple mais c'est pas évident à deviner tt seul

J'ai jamais dit le contraire

Merci pour le respect des règles.

**SpiderKarim** · 27/09/2006, 16h21

OULAAAAAAAAAAAAAAAA

G oublié de fermer la connexion à la base de donnée et ya personne pour me prévenir!!!
dans l'exemple que j'ai traité, surtout ne pas oublier à la fin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
rs.Close    'fermeture de la connexion
cn.Close
Set cn = Nothing

si je pose la question, que j'y réponds et qu'en plus je détecte mes erreurs ja vais finir par me modérer moi-même si ca continue

euh..... le prenez pas mal Monsieur Kikof

Envoi de mail par Access via Outlook

Access

Discussions similaires

Partager

Partager