Envoi de mail automatique via excel [Fermé]

Signaler
Messages postés
176
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
21 mai 2014
-
Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020
-
Bonjour,


Je souhaiterais envoyer un mail en appuyant sur un bouton sous excel selon un tableau que je remplirais :

exemple

colonne A : destinataire
colonne B : Cci
colonne C : sujet du mail

chaque message aurait le meme corps de texte prédéfinis

avec une copie des lignes E, F, G, H (garder les lignes de titres)

sachant que plusieurs lignes peuvent concerner le meme destinataire, le top ce serait que chaque destinataire recoivent qu'un mail et pas un par ligne...

est ce que quelque'un sais si c'est possible?

merci d'avance
Johanna


7 réponses

Messages postés
176
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
21 mai 2014
27
Merci pour ces infos

je vais essayer mais, j'ai pas accès a faqword :(
15
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56974 internautes nous ont dit merci ce mois-ci

Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020
9 609
Pourquoi tu n'as pas accès à Faqword ?.... Ce n'est pas un site subversif !!! :D
Messages postés
176
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
21 mai 2014
27
c la politique de filtrage :(
Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020
9 609
Elle est bizarre votre politique de filtrage. Ce site ne contient que des trucs sur Word...
Je te recopie la page :

Voici une macro qui fonctionne avec Outlook. Créer la macro et l'affecter à un bouton sur la barre d'outils :



Sub envoimail()
'
' envoie un mail avec la pièce jointe
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = " mondestinataire@adresse.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub




--------------------------------------------------------------------------------

On peut ajouter des variables à la place des constantes. Par exemple, si le destinataire varie, on ajoutera une inputbox en début de macro afin que l'utilisateur saisisse l'adresse du destinataire :

destinataire = InputBox("adresse du destinataire")


et à la place de l'adresse du destinataire en dur, on mettra :

monItem.To = destinataire
Messages postés
1
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
23 avril 2015
>
Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020

Bonjour
Je viens d'essayer ta MACRO mais j'ai un message d'erreur sur 'mondoc.Add ActiveDocument' voici le message : Erreur d'exécution '424 Objet requis
Merci de ton aide
Carole
carole.catorc@renolit.com
Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020
9 609
Bonjour,

Quel est le logiciel de messagerie utilisé ?

m@rina
Messages postés
176
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
21 mai 2014
27
je suis sous outlook
Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020
9 609
Bonjour Johanna,

Avec Outlook c'est faisable assez facilement, du fait qu'il s'agit d'une appli de la suite Office.

Il faut créer une macro en pratiquant l'automation, c'est à dire ( après avoir créer ses variables,) en créant un objet Outlook, et en pilotant Outlook depuis Excel.

Tu peux déjà t'inspirer de celle ci que j'ai écrite pour Word, mais c'est le même principe que pour Excel :

http://faqword.com/index.php/word/faq-word/vba-solutions/463-comment-creer-un-bouton-qui-envoie-le-fichier-en-cours

Pour que chaque destinataire reçoive son propre mail, il faut que les destinataires soient listés dans ton classeur. Et ensuite tu fais une boucle sur la range qui contient les destinataires.

m@rina

Messages postés
176
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
21 mai 2014
27
bonjour,

je ne suis vraiment pas assez qualifié en vba pour modifier la macro... j'y comprend rien :(

quel code je doit modifier pour le passé de word a excel?
et comment je dois disposer mes informations pour qu'il trouve les bonne données au bon endroit?

merci d'avance pour votre aide
Bonjour,

J'arrive par hazar sur ce sujet qui m'a bien aidé dans ma compréhension de l'envoi de mail via Excel, so merci à ceux qui y ont participé.

Je souhaiterais en fait ajouter une simple condition à cette macro, à savoir envoyer un mail si et seulement si la date du jour est égale à une date dans une colonne de mon tableau.

Savez-vous ou je dois insérer le code ? Voire quel serait le code ? :)

Merci beaucoup par avance
Messages postés
1
Date d'inscription
dimanche 28 avril 2013
Statut
Membre
Dernière intervention
28 avril 2013

Bonjour a tous,

Est ce que cela peut également fonctionner avec Lotus ?
Messages postés
16373
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
9 août 2020
9 609
Bonjour,

Le VBA Microsoft ne connaît pas le langage d'IBM... Donc, il ne peut pas piloter un objet Lotus.

m@rina