Posez votre question Forum Programmation

Statut : Résolu

Macro excel envoi email avec piéce jointe

beye, le mardi 30 mai 2006 à 10:40:30

Bonjour , je suis nouveau stagiaire . Ma question est comment faire pour creer une macro excel qui permet d'envoyer automatiquement un mail (via outlook) avec classeur excel joint. La macro doit ouvrir la feuille excel à mettre à jour (adr de la personne ainsi que differents renseignements)

Répondre à beye Signaler ce message aux modérateurs Aller au dernier message

27 réponses 12

2Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

Armojax, le mardi 30 mai 2006 à 17:32:56

Bonjour beye,

Tu peux utiliser sendmail. Exemple ci-dessous :

Sub EnvoiMail()
  Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub

Cette macro envoie, via le navigateur par défaut, un mail au destinataire dont l'adresse est ici tartem.pion@mimi.com. Le sujet est indiqué dans Subject. On peut mettre ReturnReceipt à True pour demander un accusé de réception (facultatif).

En pièce jointe, c'est le classeur précisé devant Sendmail qui est envoyé.
Ça peut être le classeur contenant la macro (ThisWorkbook), ou le classeur actif (ActiveWorkbook), etc.

Répondre à Armojax

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Padawan, le vendredi 6 octobre 2006 à 09:01:40

Bonjour,

elle est très bien cette macro mais comment ca marche avec Word SVP?? J'ai essayer de mettre "ThisDocument" à la place de Workbooks mais ca marche pas. merci d'avance...

Répondre à Padawan

2Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

Gérard, le dimanche 18 février 2007 à 07:47:23

Bonjour,
Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True

je m'addresse à Amorjax.
Ce que je souhaite faire est très proche de ce que tu proposes. Mais je voudrais envoyer, non pas le classeur entier, mais une feuille à un destinataire, puis une autre (du même classeur) à un autre destinataire... Chaque feuille les concernant personnellement. et je souhaite que ce soit en piece jointe pour qu'ils puissent corriger les données et me les revoyer.
Peux-tu m'indiquer une solution.

Répondre à Gérard

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

debutante-excel, le samedi 8 mars 2008 à 23:01:34

Bonjour Armojax,

voilà j'ai utilisé ce que tu conseillles

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

j'aimerai savoir comment je peux faire si je veux écrire dans le corps du mail

je cherche comment le corps du message dans le mail .

par exemple comme Subject:= pour l'objet du mail

ou es ce que je peux trouver ca ????

merci de votre aide.

a +++++++++++++++++

Répondre à debutante-excel

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Oli067, le lundi 30 juin 2008 à 20:20:08

Bonsoir

Est ce que vous aurez une macro pour en Cci
Ci dessous ma macro

Sub EnvoiMail()
Workbooks("Formulaire1.xls").SendMail Recipients:="james.bond@orange.fr,claudia.model@orange.fr", _
Subject:="Bestellung", _
ReturnReceipt à True
End Sub
Merci de votre aide

Cordialement

Répondre à Oli067

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

beye, le mercredi 31 mai 2006 à 12:37:50

Mer ci beaucoup de votre aide, la macro marche trés bien .

beye

Répondre à beye

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

beye, le mercredi 31 mai 2006 à 12:42:28

Merci Armojax de votre aide, la macro marche bien

beye

Répondre à beye

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Idris, le mardi 9 janvier 2007 à 13:47:02

Bonjour,

La macro marche a merveille merci.

Y-a-t-il un moyen de la rendre compatible avec Mozilla Thunderbird?

Meci pour vos reponses,

Idris

Répondre à Idris

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Yvan, le mardi 10 juillet 2007 à 11:23:16

Idris, la macro fonctionne avec thunderbird (avec les dernière mises à jour), windows version 2000, et Excel version 2000.
Par contre j'ai des difficulté à la faire fonctionner sous XP! Est ce que quelqu'un saurait me dépanner ?
Merci
Yvan

Répondre à Yvan

2Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

Doudou95, le mercredi 1 août 2007 à 00:38:12

fonctionnera elle sous open office

Répondre à Doudou95

1Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

chinel, le vendredi 31 août 2007 à 10:37:14

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

ok cela marche mais je voudrais choisir mon destinataire et mettre une feuille pas de classeur !

merci

Configuration: Windows XP
Internet Explorer 7.0

Répondre à chinel

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

éléphant, le jeudi 20 septembre 2007 à 14:21:16

cela marche super bien

peut-on néanmoins éviter l'apparition du message de confirmation d'envoi par e-mail afin que la procédure s'effectue automatiquement à l'ouverture du fichier excel ?

Répondre à éléphant

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

seve, le mardi 30 octobre 2007 à 19:55:59

Bonjour,

je souhaite exporter le résultat d'une requête Access (liste d'adresses mail) sur messagerie par le biais d'une macro. Pouvez-vous m'indiquer la meilleure formulation ?

merci
Seve

Répondre à seve

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

domino40, le samedi 22 décembre 2007 à 09:02:57

Bonjour j'ai exactement le même besoin.
C'est à dire plustot que l'adresse soit écrite en dur dans la macro, je voudrai que la macro aille chercher l'adresse mail dans une cellule d'excel

Merci pour votre réponse.

Pour info j'ai tenté ceci :

Sub EnvoiMail()
Workbooks("F:\Epave\BTGAN.xls").SendMail Recipients:="vhualberi@wanadoo.fr; s_raaclermontrrpv@free.fr", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

Répondre à domino40

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Oresias, le vendredi 11 janvier 2008 à 14:27:51

Salut,
Tu as pensé à remplacer "vhualberi@wanadoo.fr; s_raaclermontrrpv@free.fr" par

Range("Feuil1!A1").value

Cette cellule contiendrait la liste des destinataires. Si tu as mis une adresse e-mail par cellule, tu écris dans la cellule de la Feuil1!A1 de mon exemple:

=Concatener(A2;";";A3;etc)

Les cellules A2 et A3 contenant les e-mails correspondants.

Tu peux même remplacer "F:\Epave\BTGAN.xls" par un renvoi à une cellule si tu veux personnaliser le fichier appellé.

A+

Répondre à Oresias

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

landmaestro, le dimanche 27 janvier 2008 à 20:51:13

Hello,

ma question dans la même "famille =Concatener(A2;";";A3;etc)",
j'ai une liste d'email dans la colonne A (523 emails),
comment dois-je faire pour que la formule "concatene" les cellules A1 a A523?

ligne par ligne j'y arrive mais ça prends un temps fou et j'arrive pas à copier la cellule pour qu'elle fasse +1 à chaque fois.

Bref, suis complétement paume,

AU SECOURS :)

merci d'avance

Répondre à landmaestro

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

fhadek, le jeudi 14 février 2008 à 01:55:31

est ce que ta essayé une boucle?

Répondre à fhadek

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Raton, le vendredi 14 mars 2008 à 13:42:21

Pourquoi lorsque je veux exécuter, j'ai une alerte
Erreu d'éxécution '9':
L'indice n'appartient pas à la sélection

Répondre à Raton

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

debutant, le lundi 17 mars 2008 à 10:52:58

Bonjour,

j'ai essayé votre macro qui marche à merveille.merci.

Seulement peux t-on rajouter d'une part des destinataires en copie et en copie caché et d'autre part peut on rajouter un corps au mail?

Merci de votre aide.

Cdlt

Le Débutant.

Répondre à debutant

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

wam202, le mercredi 19 mars 2008 à 11:02:18

Et comment faire pour envoyer un mail sous Lotus Notes ?

Répondre à wam202

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

maf67000, le mercredi 19 mars 2008 à 16:56:59

Bonjour,

Une macro un peu modifiée,

Private Sub bouton_ENVOYER_Click()
ActiveWorkbook.SendMail Recipients:="test@test", _
Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value, _
ReturnReceipt:=True
End Sub

tirée des infos du forum fonctionne bien mais je voudrais éviter le message : "un programme tente d'envoyer automatiquement un message ..." ?

Quelqu'un peut-il m'aider ? D'avance merci.

Répondre à maf67000

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Tonio, le mercredi 26 mars 2008 à 09:26:43

Essaye ça : Application.DisplayAlerts = False
A insérer au début de ta macro

Répondre à Tonio

1Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

maf67000, le vendredi 28 mars 2008 à 18:45:45

Merci Tonio,

Mais il n'y a pas de différence, j'ai toujours le message

Private Sub bouton_ENVOYER_Click()
Application.DisplayAlerts = False
ActiveWorkbook.SendMail Recipients:="test@test", _
Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value, _
ReturnReceipt:=True
End Sub

si je mets la ligne avant j'ai un erreure

As-tu un remède ?

merci d'avance pour ton aide

Marc

Répondre à maf67000

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

lulu, le mardi 8 avril 2008 à 16:51:09

Bonjour

Je cherche a créer une cellule qui, en cliquant dessus, permet d'envoyer automatiquement un email à un destinataire avec en piece jointe l'onglet excel dans lequel se trouve cette même cellule.

Je pense que je ne suis pas loin du sujet dont vous discutez mais pourriez-vous indiquer la procedure a suivre pour copier coller vos macros ? Je suis novice, merci.

Répondre à lulu

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

dante20007, le mardi 8 juillet 2008 à 08:41:44

bonjour,
je souhaiterais non pas envoyer mon classeur par mail, mais enregistrer ce mail en tant que brouillon dans ma boite de messagerie , comment puis-je faire?

Répondre à dante20007

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Daniel, le jeudi 31 juillet 2008 à 13:37:14

Je voudrais envoyer juste une feuille du classeur.
Comment faire?
Le must serai un script qui me permette d'envoyer une liste de mail en rapport avec une colonne dans laquelle j'ai une alerte "relance"

Répondre à Daniel

27 réponses 12 Posez votre question Répondre

Outlook envoie pieces jointes "winmail.dat&qu (Résolu)Lorsque j'envoie des pièces jointes (.doc, .jpeg, et même les .zip) mes correspondant recoivent ces fichiers en "winmail.dat" Cela malgrés des réinstall en passant m^me par des formatage de disque, ça marche quelque temps et hop ça recommence...... www.commentcamarche.net/forum/affich-10001-outlook-envoie-pieces-jointes-winmail-dat-qu

Pas capable d'ouvrir pieces jointes dans hotm (Résolu)Bonjour, quand quelqu'un m'envoie une piece jointe dans mon email je suis pas capable de l'ouvrir. ca marque nero... pouvez vous m'aider svp www.commentcamarche.net/forum/affich-3787875-pas-capable-d-ouvrir-pieces-jointes-dans-hotm

Problème lecture pièces jointes (Résolu)Bonjour, Je suis sous mac OS X.4. Quand on m'envoie certaines pièces jointes, je ne parviens pas à les lire. Un message me dit "aucune application n'a été détectée pour ouvrir la pièce jointe". J'ai essayé d'enregistrer la pièce... www.commentcamarche.net/forum/affich-4542009-probleme-lecture-pieces-jointes

Outlook Express bloque les pièces jointesLors de la consultation d'un email, Outlook (Express) refuse d'ouvrir les fichiers attachés. Il s'agit vraisemblablement d'un problème de configuration de Outlook évitant l'ouverture des pièces jointes pour des raisons de sécurité. Pour y... www.commentcamarche.net/faq/sujet-6768-outlook-express-bloque-les-pieces-jointes

Envoyer de gros fichiers (pièces jointes) par mailLes systèmes de messagerie bloquent généralement les pièces jointes volumineuses, alors comment faire parvenir un fichier lourd (de plusieurs Mo) à son destinataire ? La solution consiste à utiliser un service d'hébergement temporaire de fichiers... www.commentcamarche.net/faq/sujet-2966-envoyer-de-gros-fichiers-pieces-jointes-par-mail

[Outlook Express] Pièces jointes impossibles à envoyerSi Outlook ne peut pas envoyer les pièces jointes ajoutées à votre mail, ceci est probablement dû au fait qu'elles possèdent une taille trop volumineuse. Pour y remédier, la solution consiste à scinder les pièces jointes en plusieurs messages et à... www.commentcamarche.net/faq/sujet-2745-outlook-express-pieces-jointes-impossibles-a-envoyer

Outlook 2007 envoi mail pièce jointe (Résolu)OUTLOOK 2007 - Windows XP Envoie multiple lors de mails avec pièces jointes. Bonjour, j'ai un gros problème avec mon Outlook 2007. Lors d'envoi avec une pièce jointe ... Outlook l'envoie 64 fois... ! Il ne sgit pas d'un virus... www.commentcamarche.net/forum/affich-3114679-outlook-2007-envoi-mail-piece-jointe

Messagerie : envoi de pièce jointe impossible (Résolu)Bonjour, Quelque soit le logiciel de messagerie utilisé (outlook, firefox, thunderbird), je n'arrive pas à envoyer de mails avec des pièces jointes (photos notamment)... alors que j'arrive à en recevoir. Est-ce un pb de paramétrage de ma... www.commentcamarche.net/forum/affich-1341232-messagerie-envoi-de-piece-jointe-impossible

Insertion photo dans outlook express 6 (Résolu)Bonjour, Lorsque j'insére une photo, le poids du message est de 2ko même si la photo pése 400 ko, le destinaire à une jolie petite croix rouge à la place de la photo. Pour l'heure j'envoie en pièce jointe. Si qq'un à une piste de... www.commentcamarche.net/forum/affich-2316352-insertion-photo-dans-outlook-express-6

Toutes les réponses pour « macro excel envoi email avec piéce jointe »