Envoi de mail automatique via excel
Qhes
Messages postés
180
Statut
Membre
-
m@rina Messages postés 27741 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27741 Date d'inscription Statut Modérateur Dernière intervention -
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
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
-
Merci pour ces infos
je vais essayer mais, j'ai pas accès a faqword :(-
-
-
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
-
-
-
Bonjour,
Quel est le logiciel de messagerie utilisé ?
m@rina -
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 :
https://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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
Bonjour a tous,
Est ce que cela peut également fonctionner avec Lotus ?
