Bonjour,
J'ai un formulaire F_rappel120jours attaché à une requête R_Rappel120jours qui affiche tous les enregistrements dont la date d'échéance est inférieure à 120 jours.
La durée restant est calculée à l'ouverture du formulaire qui exécute la requête: Reste: [JourDeLaFormation]-Maintenant()
Je voudrais lors de l'ouverture du formulaire envoyer automatiquement des Emails en fonction de la valeur de [Reste] pour cela j'ai écrit le code ci-dessous qui doit sans doute comporter des erreurs mais que surtout je ne sais pas où mettre.
Comme il s'agit d’évaluer la valeur [Reste] pour chaque enregistrement affiché je suppose qu'il faut faire un module indépendant mais alors je ne sais pas comment le rattacher à l'événement "ouverture" de mon formulaire, sinon où et comment l'inclure directement dans le code du formulaire pour obtenir l'effet escompter?
Merci d'avance de votre aide. je ne saurais jamais assez remercier les personnes répondant sur ce forum de leurs aide précieuse pour des utilisateurs et programmeurs Access occasionnels comme moi, c'est très appréciable... est apprécié!! :-)
Voici mon code que j'ai pour le moment mis dans un module... Dont je ne sais trop quoi faire pour l'instant! :
Option Compare Database
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 Sub SendAlert() Dim SendAlert As Object Set SendAlert = CreateObject("SendAlert") Select Case Reste Case 118 To 120 With SendAlert .To = Me.Mail.Value .From = Me.RespForm.Value .CC = Me.Hierarchie.Value .Subject = "Expiration d'une habilitation périodique" .Body = "Une de vos habilitations périodiques expirera dans moins de 3 mois veuillez prendre contact avec votre hiérarchie et le service formation pour programmer une session de recyclage. ceci est un message automatique merci de ne pas y répondre." .Send End With Case 5 To 10 With SendAlert .To = Me.Mail.Value .From = Me.RespForm.Value .CC = Me.Hierarchie.Value .Subject = "Expiration d'une habilitation périodique, second rappel" .Body = "Une de vos habilitations périodiques expirera dans moins de 10 jours veuillez prendre contact avec votre hiérarchie et le service formation pour programmer une session de recyclage. si le recyclage a déjà été fait merci de ne pas tenir compte de ce message généré automatiquement." .Send End With End Select Set SendAlert = Nothing End Sub
Partager