Discussion :

[lolo_bob2]

Bonjour à tous

j'ai ce 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
 
Sub SendMailAutomation()
 
Dim Ol_App As New Outlook.Application
 
Dim Ol_Item As Outlook.MailItem
 
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
 
 
With Ol_Item
 
.To = "destinataire@domaine.fr"
 
.subject = "L'objet du message"
 
.Body = "Le corps du message"
 
.Attachments.Add "F:Mes Documents\fichier.jpg"
 
.Save
 
.send
 
End With
 
 
 
Set Ol_Item = Nothing
 
Set Ol_App = Nothing
 
End Sub

Je voudrais que lorsqu'une date précise arrive un mail soit envoyé aux destinataires que j'aurais déterminer

Par exemple si la date du 01/06/05 arrive un mail est envoyé aux déstinataires...

Pouvez vous m'aider à concrétiser ce code pour que cela fonctionne...

Merci beaucoup à tous

A +

[pgz]

Bonjour,

lorsqu'une date précise arrive

Tu peux tester la date du jour à l'ouverture de la base. A voir avec l'objet que tu exécute à l'ouverture. S'il s'agit d'une heure, c'est plus compliqué.

Bon courage

pgz

[pc75]

Bonjour,

Peut-être avec un contrôle Timer.

[lolo_bob2]

Ok

Merci beaucoup pour vos réponses mais je vois pas trop comment les mettre en oeuvre pouvez vous m'expliquez un peu plus s'il vous plait

Merci

A+

[pgz]

Bonjour,

Ca dépend de l'objet que tu exécutes à l'ouverture.
Supposons que l'ouverture de ta base lance un formulaire appelé frmMenu. Tu peux alors mettre un code sur l'évènement 'sur ouverture' de ce form. Ce code peut appeler une procédure qui regarde quelle est la date du jour, et s'il y a des messages à envoyer à cette date.

Dans tous les cas il faudra écrire cette procédure et trouver ensuite le moyen approprié de l'appeler.

Bon courage,

pgz

[lolo_bob2]

ok

merci beaucoup pour l'explication je vais essayer d'écrire une procédure...

A+