Discussion :

[Nagoran]

Bonjour,

Je fais une BD Access avec un formulaire ayant 4 champs :

Titre
Description
Responsable (champs liste de choix de courriels)
Date de suivi (champs calendrier)

Je voudrais une fonction qui envoie un courriel à une heure prédéterminée (la nuit) au responsable (avec le titre) si la date de suivi est passée.

Merci beaucoup de votre aide.

Dan

[ONTAYG]

Bonjour,

Pour l'envoi a une heure déterminée il faut soit :

Que ta base soit ouverte avec un formulaire invisible et sa propriété Timer pour interroger l'heure et donc envoyer un mail.
Soit passé par une tâche planifié qui ouvre ta base et déclenche le traitement.

Pour le mail :
https://heureuxoli.developpez.com/publipostage/#LII

ONTAYG

[star]

Bonsoir,

Soit passé par une tâche planifié qui ouvre ta base et déclenche le traitement.

Il te faudra un serveur chargé de l'envoi du mail à l'heure déterminé de la soirée, ou à défaut, un poste de travail dédié à la fonction. Dans ce cas, tu pourras toujours prévoir de l'éteindre par programmation à l'heure dite s'il n'a pas d'autres fonctions particulières.
Très bon DEV
.

[User]

Bonjour,

Pour l'envoi à plusieurs destinataires (envoi massif), il peut-être intéressant de créer une fonction générique écrite dans un module standard :

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
Option Compare Database
 
Public Function EmailsDestinataires(NomTable As String, ChampEmail As String) As String
 
    Dim rst As DAO.Recordset
 
    Set rst = CurrentDb.OpenRecordset(NomTable)
 
    EmailsDestinataires = ""
 
    Do Until rst.EOF
 
        EmailsDestinataires = EmailsDestinataires & rst(ChampEmail) & "; "
 
        rst.MoveNext
 
    Loop
 
    If Len(EmailsDestinataires) > 0 Then
        EmailsDestinataires = Left(EmailsDestinataires, Len(EmailsDestinataires) - 2)
    End If
 
    rst.close
 
End Function

Que l'on peut appeler ensuite comme ceci :

Code :

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

oMail.To = EmailsDestinataires("Destinataires", "Mail")

ou :

Code :

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

oMail.BCC = EmailsDestinataires("Destinataires", "Mail")

oMail désignant un objet MailItem d'outlook.

Comme dans cette discussion :

https://www.developpez.net/forums/d2...destinataires/

Cdlt,