Bonjour,
je fais un envoi mail par cdo, tout est ok.
je voudrais maintenant récupérer la valeur du champ Prénom de la requête et l'intégrer après Bonjour du sMessage.(HTMLBody)
champs de la requête:
email Nom Prénom
J'ai essayé des tas de trucs différents,mais mes neurones patinent.(Help!!)
Je n'arrive pas à intégrer la valeur après Bonjour.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim PRENOM As String Set PRENOM=rst.fields("Prénom")
D'avance merci.
Voici mon code.
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
41
42
43 Dim Db As DAO.Database Dim rst As DAO.Recordset Dim qry As DAO.QueryDef Dim NbEnreg As Integer Dim MaVariableTo As String '-> Ajout du type de la variable Dim MaVariableBCC As String 'Ouverture de la requête Set Db = CurrentDb Set qry = CurrentDb.QueryDefs("Anniv") 'Ma requete Set rst = qry.OpenRecordset MaVariableBCC = "xxxxx@free.fr" '-> Permet de mettre la première adresse de la liste de diffusion MaVariableTo = "xxxxxxx@free.fr" ' contrôle s'il y a des enregistrements dans le Recordset If rst.RecordCount <> 0 Then ' placement sur le dernier enregistrements, obligé si on veux récupérer le Nombre de Record rst.MoveLast ' nombre d'enregistrements MsgBox rst.RecordCount ' replace le curseur sur le premier enregistrement rst.MoveFirst ' boucle tant que l'on n'arrive pas à la fin des enregistrements While Not (rst.EOF) If rst.Fields("eMAIL") <> "" Then MaVariableBCC = MaVariableBCC & ";" & rst.Fields("eMAIL") ' le champ rst.MoveNext Else rst.MoveNext End If Wend End If strSMTP = "smtp.free.fr" sMessage = "<html>Bonjour <br><br> <img src=""cid:anniv.jpg""><br></html>" sImageFile = "c:\LicenciesTSB\images\anniv.jpg" SendMail "jxxx@free.fr", MaVariableTo, MaVariableBCC, "Anniv", sMessage, sImageFile, strSMTP End Sub
Partager