XL 2013 comment créer une alert et envoie mail

Big66677

XLDnaute Occasionnel
bonjour
ont ne pourra pas dire que je n'est pas chercher.
donc voila.

une date d’envoi d'une commande. le 30 decendre pour exemple
une cellule indique le nombre de jour de délais d’exécution 30 jours mais peut varier
si la date de départ et dépasse alors alerte puis envoie mail.

A1 30 descendre 2020 A2 30 jours de délais A3 alerte envoie mail 1persone A4 envois mail 2éme personne

merci
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

En attendant le réveillon
(pour exemple et à titre illustratif)
A tester sur un classeur vierge)
VB:
Sub Alerte_A_Mail_Hibou()
[A1] = CDate(DateSerial(2020, 10, 10)) 'juste pour test
If Date - [A1] >= 30 Then
With CreateObject("Outlook.Application").CreateItem(0)
    mBody = "<html><body>Bonjour, <br><br>" & vbNewLine
    mBody = mBody & "Ceci est une <b><span style='color:red'>ALERTE ROUGE</span></b><br><br>"
    mBody = mBody & "Veuillez consulter <a href=""https://www.404-error.com/"">l'annuaire</a></p>"
    mBody = mBody & "</body></html>"
    .Subject = "Achtung, Baby!"
    .To = "toto@domain.fr"
    .HTMLBody = mBody
    .Display
    '.Send
End With
End If
End Sub
 

Big66677

XLDnaute Occasionnel
merci
1000excuses pour le mois.
merci pour le code.
mon client de messagerie est bien Outlook.

------------------------------------------
sinon pour l'orthographe je suis un avant-gardiste-libertaire donc non violent.
le principe et de faire au mieux avec cette langue maternel (pourtant)

-------------------------------------------
 

Statistiques des forums

Discussions
315 080
Messages
2 116 004
Membres
112 636
dernier inscrit
fred 1969