Bonjour,

Je souhaiterai envoyer des mails via access comprenant une pièce jointe.
Voici le code que j'utilise (il fonctionne parfaitement sans pièce jointe..)
Pour ce faire j'essaye d'utiliser addttachment.
Mais je ne sais pas vraiment comment procéder (il figure dans le code mais génère un bug)
Une âme charitable le saurait elle ???

Merci à vous

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
37
38
39
40
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strMessageType As String
Dim strTitre As String
Dim strMsg As String
 
' Titre du message
strTitre = "Rappel"
 
' Message type à expédier
' Les signes {...} seront remplacés plus loin par
' les infos Client
strMessageType = "Bonjour {Titre} {Prénom Client} {Nom Client},"
 
 
' Ouverture de la requête
' (seuls les clients ayant un email sont concernés ici)
strSQL = "SELECT * FROM [MAIL]" _
& " WHERE [mail] IS NOT NULL"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
 
' Parcourir la liste des clients
While Not rst.EOF
' Construire un message personnalisé
' (on remplace chaque {...} du message par les champs
' équivalents de la requête
'strMsg = Replace(strMessageType, "{Titre}", rst("Titre"))
'strMsg = Replace(strMsg, "{Nom Client}", rst("Nom Client"))
'strMsg = Replace(strMsg, "{Prénom Client}", rst("Prénom Client"))
.addAttachment "c:\test.txt"
' Expédier le mail
SendMail rst("mail"), strTitre, strMsg, addAttachment, False
 
' Client suivant
rst.MoveNext
Wend
 
' On libère les ressources
rst.Close
Set rst = Nothing