Envoi de mail automatique depuis Excel + ajout condition temporelle
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 :
Code:
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 |
Je vous remercie d'avance
Bonne soirée
