Bonjour les experts,

Apres quelques recherches sur internet j'ai trouvé un code (je l'ai modifié) qui permet d'envoyer des emails pour prévenir un utilisateur d'étalonner son appareil.

Fonction :

Ce code permet de comparer toutes les dates de la colonne E à la date d'aujourd'hui, et si la date de Cells(i, 5) [ i représente le compteur de la boucle for, à chaque fois qu'il incrémente on passe à comparer la date de la cellule suivante] est supérieur à la date d'aujourd'hui il envoie un mail dans l'adresse mail qui se trouve dans la colonne C correspondante (envoyerA = Cells(i, 3).Value).

Message de mail envoyé est :

Call stream.WriteText("Bonjour, <br /> Votre appareil à étalloner dans 2 mois. <br />Merci de mettre à jour les données de fichier excel après l'étalonnage.")

Ma demande est la suivante:

Je voudrais que le message du mail que j'envoie contient (en fonction des variables de la boucle for):

- Numéro de l'appareil (qui se trouvent dans la colonne A)
- Nombre de jours avant expiration

Un message de genre:

"Bonjour,
Votre appareil (.....) expire dans (.....) jours."

C'est urgent. Merci pour votre aide à l'avance.