Bonjour,
Le problème auquel je suis confronté et semble-t-il un problème récurrent sur ce forums.. Cependant, en balayant l'ensemble des sujets, je n'arrive pas à le résoudre.
J'ai crée une macro permettant d'envoyer un mail "pré-fabriqué" à un destinataire défini. Il suffit alors de cliquer sur la case correspondante ( ou plutôt un bouton d'action et le mail s'envoie automatiquement).
Maintenant, je souhaiterai que le mail ne s'envoie pas dans la seconde qui suit mais dès que nous sommes a 10 jours d'une date jalon. Pour cela, dans mon tableur, j'ai rajouté une colonne qui me calcule le nombre de jour entre la date jalon et la date d'aujourd'hui. L'idée est que le mail ne s'envoie donc pas au moment où on clique sur le bouton, mais dès que l'on a 10 jours d'écart ...
Je suppose que je dois rajouter une boucle de condition , mais je n'y arrive pas.
De plus, si je clique sur le bouton le 5 mai, et que je ne ré-ouvre pas mon classeur, est-il possible au moins que le mail s'envoie directement , le 25 mai par exemple ?
Je vous montre ci-dessous ma macro actuelle :
Je vous remercie d'avance
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 Sub CdTmassifsLac() ' CdTmassifsLac Macro ' Envoi de mail automatique au conducteur de travaux Massifs lac Dim ol As New Outlook.Application Dim olmail As MailItem Dim CurrFile As String Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail .To = Range("aa3").Value .Subject = Range("al2").Value .Body = Range("al3").Value .Send End With End Sub
Bonne soirée
Partager