Récupérer la valeur d'un champ d'une requête

**ctsblv** · 23/04/2020, 18h38

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!!)

Code :

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

1
2
Dim PRENOM As String
Set PRENOM=rst.fields("Prénom")

Je n'arrive pas à intégrer la valeur après Bonjour.

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

**tee_grandbois** · 23/04/2020, 20h40

bonsoir,

Set PRENOM=rst.fields("Prénom")

Set, c'est pour affecter une valeur à une variable objet (Recordset, formulaire ...)
pour les autres types de variable, c'est juste mavariable = mavaleur
pour ta variable sMessage, il faut intercaler la variable Prénom en découpant sMessage en 2:

Code :

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

    sMessage = "<html>Bonjour " & rst.fields("Prénom") & "<br><br> <img src=""cid:anniv.jpg""><br></html>"

**ctsblv** · 24/04/2020, 13h32

Bonjour TEE

J'avais oublié un & dans sMessage.
tout est ok
Merci !!!!

Récupérer la valeur d'un champ d'une requête [AC-2010]

VBA Access

Discussions similaires

Partager

Partager