Mail automatique vers Outlook

[nico9z]

Bonjour,

Je souhaiterais envoyer un mail via Outlook depuis Excel. Le principe serait que le mail soit envoyé 30 jours avant la date d'échéance du contrat.

Mon tableau se présente de la façon suivante :
Colonne F : date du contrat
Colonne A : Nom de la personne qui devrait figurer en objet du mail
Colonne C : Mail du contact

Je suis novice sur les Macros et j'aurais vraiment besoin d'aide.

Merci d'avance !!

 

[apamemkes]

Re : Mail automatique vers Outlook

Bonjour le Forum

Avec un fichier exemple s'est plus simple.

Merci

 

[nico9z]

Re : Mail automatique vers Outlook

Désolé, Voici le fichier

 

[apamemkes]

Re : Mail automatique vers Outlook

Rebonjour,

Voici un fichier a tester

la macro est dans le module 2

Cdl

 

[nico9z]

Re : Mail automatique vers Outlook

Merci je vais tester !

 

[nico9z]

Re : Mail automatique vers Outlook

Bonjour,

J'ai un problème avec ce code :

If CLng(Cell.Offset(0, 0)) - 30 <= CLng(Date) Then

 

[nico9z]

Re : Mail automatique vers Outlook

Le mail s'envoie pour ma première ligne dont la date d'échéance est à - de 30 jours et pour le reste de mes lignes j'ai un bug sur le code de mon message précédent.

Merci de votre aide

 

[nico9z]

Re : Mail automatique vers Outlook

J'ai trouvé la solution. Il y avait des colonnes sans date ce qui empêchait la macro de se dérouler correctement. Par contre si je défini une adresse mail en colonne C, l'envoie ne se faire pas. Pour faire un envoie de mail je passe par MonMessage.To = "toto@toto.fr".

Est-il possible que l'envoie se fasse via l'adresse mail de la colonne C ?

Merci d'avance

 

[apamemkes]

Re : Mail automatique vers Outlook

bonjour,

L'adresse est sélectionné par la variable "maill = Cell.Offset(0, -3)" dans la colonne c qui encrementé
"MonMessage.To = maill"

Cordialement

 

[nico9z]

Re : Mail automatique vers Outlook

Oui c'est ce que j'ai mais ceci ne marche pas, j'ai le message "Erreur de compilation"

 

[apamemkes]

Re : Mail automatique vers Outlook

bonjour,

est ce que la bibliothèque "Microsoft outlock" est activé.sinon, tu vas dans Outils -> Références, est coche "micrsoft outlock xxx objet library"

 

[nico9z]

Re : Mail automatique vers Outlook

Bonjour,

Oui c'est bien activé. Car quand dans "MonMessage.To = maill", je remplace mail par toto@toto.fr le mail s'envoie bien.

 

[apamemkes]

Re : Mail automatique vers Outlook

Bonjour,

Je n’arrive pas à reproduire l’erreur. Chaque cellule à bien une adresse?
Cette macro fonctionne sur plusieurs de mes fichiers sans problème.

 

[nico9z]

Re : Mail automatique vers Outlook

Bonjour,

Oui chaque cellule a une adresse mail