Envoi un corps message en utilisant des variables

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.

Bonjour, tu peux essayer

Code:

---

1 2	Call stream.WriteText("Bonjour," & chr(10) & "Votre appareil "& cells(i,1) & "expire dans " &cells(i,2) & "jours.")

---

Avec le numero d'appreil dans la colonne A et le nombre de jours restant dans la colonne B, et i comme variable de boucle

Bonjour,

ce qui est urgent nécessite encore plus d'être précautionneux dans l'exposé du problème.

Déjà là, on n'a même pas la procédure et les fonctions que tu utilises, on a juste une ligne de code qui est aussi mystérieuse que le caractère féminin (me jetez pas des tomates :aie:)