Discussion :

[csilas]

Bonjour a tous,

J'ai besoin d'aides d'experts ^^

Voila mon code :
Dim ChaineDate As Recordset
Set ChaineDate = CurrentDb.OpenRecordset("T_EMail")
ChaineDate.MoveFirst
While Not ChaineDate.EOF
résultat = DateDiff("d", ChaineDate("Date_fin_formation"), Date)
If résultat >= 1 Then 'And mailing = 0
MsgBox résultat & (" / Mails envoyés")
Call LaTotale
'mailing = 1
Else
MsgBox résultat & (" / Aucuns mails à envoyer")
End If
ChaineDate.MoveNext
Wend
Set ChaineDate = Nothing

End Sub

Mon probléme est le suivant :
Mon module LaTotale, globalise le code permettant d'envoyer un ou plusieurs mails. Cependant j'ai besoin de récupérer les adresses mails qui remplissent la condition >=1 [qui se trouvent dans la table T_EMail (T_EMail.EMail)].
Aprés avoir récupérer les adresses mails des personnes qui remplissent la condition, j'ai besoin de les mettres dans une variable pour apres l'implanter dans mon module LaTotale. Pour pouvoir envoyer les mails juste aux personnes concernés (non a toute ma table).
ceci me permettrai également de n'avoir qu'un message de sécurité Outlook au lieu de plusieurs.

J'éspere avoir étais clair. Sinon demandez moi.
Merci.
Cordialement

[csilas]

Personne pour m'aider ?

Pourtant j'y suis presque :

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
 
Private Sub Commande67_Click()
 
 
Dim ChaineDate As Recordset
Set ChaineDate = CurrentDb.OpenRecordset("T_EMail")
    ChaineDate.MoveFirst
    While Not ChaineDate.EOF
        RésultatDate = DateDiff("d", ChaineDate("Date_fin_formation"), Date)
        If RésultatDate >= 1 Then 'And mailing = 0
            MsgBox RésultatDate & (" / Mails envoyés")
 
 
            Dim ChaineEMail As Recordset
            Set ChaineEMail = CurrentDb.OpenRecordset("T_EMail")
                ChaineEMail.MoveFirst
                While Not ChaineEMail.EOF
                    RésultatEMail = ChaineEMail("EMail")
                    MsgBox RésultatEMail
 
                Wend
            Set ChaineEMail = Nothing
 
 
            'Call LaTotale
            'mailing = 1
        Else
            MsgBox RésultatDate & (" / Aucuns mails à envoyer")
        End If
        ChaineDate.MoveNext
    Wend
Set ChaineDate = Nothing
 
End Sub

Mais je suis bloqué. Aprés mon MsgBox RésultatEMail je ne sais pas quoi mettre. Car j'éxecute mon bouton pour voir si mon code marche. Mais arriver au MsgBox RésultatEMail. La fenetre qui s'ouvre (normal ^^) fait bloqué mon programme. Je suis obligé de faire gestionnaire de taches. Pour arreter access et le bug.

Merci
Cordialement.

[csilas]

Personne pour m'aiguiller dans ma démarche??
Ou peut-être je ne suis pas claire??

Merci
cordialement.