Envoi mail automatique selon limite de validité (Date)

[Sebb06]

Bonjour à vous tous(tes),

J'ai déjà dans le passé créé quelques macro sous VBA, et malgrè plusieurs recherches sur les forums cette fois ci je cale.

Le but, envoyer sur une seule adresse générique (outlook) un mail pour avertir d'une limite de validité dépassé, 90 jours avant cette limite.
Dans une première fonction pour vérifier cette validité, et une seconde pour l'envoi d'un mail.

Mon fichier comprends:
B1: Désignation de la formation
Colonne B : Noms
Colonne D : date d'expiration
Colonne F : limite de validité

Le mail envoyé aurait pour un objet (Limite validité) et dans le corps le nom + désignation de la formation

Merci d'avance pour vos lumières.

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour Sebb et bienvenu sur XLD,

Ton image n'est pas lisible, il faudrait un fichier sans données confidentielles.

A+

Martial

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour Martial, et merci.

j'ai placé mon fichier source en PJ (en ayant au préalable effacé toute's données personnelles).

j'espère qu'il fera plus l'affaire.

Merci.

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Bonsoir Sebb, le forum,

C'est déjà mieux, mais il me faudrait encore quelques infos.

- Que veux tu faire exactement ? Envoyer un mail pour chaque ligne dont la date est la date d'aujourd'hui - 3 mois ? Ou envoyer un mail regroupant toutes les lignes sur le même mail ?
- Que contient la colonne B ? Des noms de formations ? Des noms de formateurs auxquels envoyer les mails ?

A te relire

Martial

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Bonsoir.
En effet, je souhaiterais envoyer un mail pour chaque date arrivant à-90jours.
En B se trouvent les noms des formateurs dont ce nom doit être inscrit dans le corps du mail.
Merci.

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour Sebb, bonjour tout le monde,

Voici ton fichier avec ta macro modifiée, pour les essais j'ai mis Display (pour voir ) et non Send (pour envoyer).
Je ne me sers pas de la colonne F, donc si elle ne te sers à rien d'autre, tu peux supprimer les données.

A+

Martial

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Salut Martial.

je viens de retrouver mon bureau aujourd'hui et teste à l'instant le programme que tu m'as concocté.
Visiblement dès l'ouverture j'ai un problème d'accès: "Erreur de compilation / Projet ou bibliothèque introuvable"
Et si je souhaite faire une modification, j'ai un rejet de DLL manquante. Il s'agirait de la Microsoft Outlook15ObjectLibrary.

Mais c'est surtout que j'ai du mal à voir où tu as placé ta macro (Workbock ou Module?)

Merci.

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Bonjour Sebb, le forum,

Il faut cocher dans les référence "Microsoft Outlook 14.0 Object Library " et décocher toutes les références précédée de MANQUANT.

La macro se trouve dans le Module1, une seule macro suffit, et la colonne F n'est pas nécessaire pour le calcul de la date. Elle peut être supprimée si tu n'en as plus besoin.

A+

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Je viens de décocher la référence manquante "Outlook15.0" et cocher à la place celle 14.0

Le message de rejet "Impossible d'effectuer l'opération requise"....

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Une ligne en jaune pour indiquer l'erreur peut-être ?

As-tu d'autres références MANQUANT ? Si oui, les décocher aussi.

A+

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Je viens de résoudre le problème.

Je reçois bien le mail avec le bon objet, cependant en texte de corps il n'y a que la date de la formation réalisée (colonne C) et non pas les dates d'expiration et noms des stagiaires concernés (colonne D & B).

C'est presque parfait ! lol.

Merci.

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Avec ceci ça doit le faire :

.Body = "Bonjour," & Chr(10) & Cells(i, 3) & Chr(10) & Cells(i, 4) & Chr(10) & Cells(i, 2)

A+

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Top, ça reprends toutes ces infos.
Mais il s'arrête dès la première ligne, sans continuer la vérification sur les lignes suivantes.

Merci.

 

[Sebb06]

Re : Envoi mail automatique selon limite de validité (Date)

Pour être plus explicite, une fenêtre de débogage s'ouvre:
Erreur d'exécution / L'objet a été supprimé ou déplacé.

 

[Yaloo]

Re : Envoi mail automatique selon limite de validité (Date)

Chez moi, ça fonctionne correctement.
Est-ce que Outlook est déjà ouvert ?