Discussion :

[skillipo]

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
Public Sub Simple_Send()
 Dim Mba As Database, TabTempo As DAO.Recordset, NumId As Variant

 
 'Dim MAX_NUM As Integer 'Id de la table LegalEntity
     Set Mba = CurrentDb()
    Set TabTempo = Mba.OpenRecordset(" SELECT * FROM  [Consolidation Req]")
        
 
   Do Until TabTempo.EOF
   DoCmd.SetWarnings False
   
'Requete SQL pour recupere les lignes qui m'interesse  une par une 

    Sql1 = "SELECT * FROM TabTempo WHERE LegalEntity= True AND [e-mail Sent]= True"
    DoCmd.RunSQL Sql1

'Appel de la function SendNotesMail

  SendNotesMail(  ......,........,.......,......)
    
    
    
    TabTempo.MoveNext
    Loop
 
End Sub

Bonjour ,

voici mon code , je voudrais savoir si c'est possible de mettre en parametre de la function "SendNotesMail" des champs que je recupere de ma requete SQL1 du style :

SendNotesMail(select name from Sql1, select Adresse from sql1,.......) .

Merci d'avance .

[Jean-Philippe André]

bonjour,
le passage de paramètre sera un peu plus complexe selon ce que tu souhaites faire. Tu dois mettre les résultats de la requête dans un recordset
S'il s'agit d'un mail à chaque personne indépendamment tu peux faire un

Code :

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

1
2
3
4
5
6
7
8
 
Dim RS as DAO.Recordset
'...
Set RS = Mba.OpenRecordset(SQL1)
Do Until RS.EOF
SendNotesMail(RS!Name, RS!Adresse,.......) 
RS.MoveNext
Loop

Je ne connais pas la structure des paramètres à passer dans SendNotesMail, mais si tu veux faire un seul mail avec plein de destinataire, le code serait alors plutôt du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim RS as DAO.Recordset
dim listenoms as string
dim listeadresses as string
'...
Set RS = Mba.OpenRecordset(SQL1)
listenoms=""
listeadresses=""
Do Until RS.EOF
listenoms= listenoms & "," & RS!Nom
listeadresses=listeadresses & "," & RS!Adresse
RS.MoveNext
Loop
SendNotesMail(listenoms, listeadresses,.......)

en espérant que ca pourra te servir.

[skillipo]

Bonjour ,

les parametres que je voudrais passer dans ma function d'envoi de mail , c'est ce les champs qui appartienne a chaque ligne de ma tabTempo ; c'est pour cela que je voulais savoir si je peux faire des requetes sur la ligne .

Merci