Discussion :

[TarSou]

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.

[halaster08]

Bonjour, tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 )