Création
d'entreprise
Posez votre question Signaler

Macro excel envoi email avec piéce jointe [Résolu]

beye 6Messages postés 15 mai 2006Date d'inscription - Dernière réponse le 17 déc. 2011 à 14:20
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)
Lire la suite 

Macro excel envoi email avec piéce jointe »

Suggestions
41 réponses
Réponse
+36
moins plus
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.
debutante-excel- 8 mars 2008 à 23:01
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 +++++++++++++++++
Oli067- 30 juin 2008 à 20:20
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
miange - 17 déc. 2011 à 14:20
bonjour,
a partir d'un tableau excel qui liste la date de péremption des visites médicale de mon équipe de techniciens
je souhaite qu'un moi avant la date de péremption, je reçoive un mail m'alertant sans avoir besoin que le fichier excel soit toujours ouvert.

y a t-il une solution
P.S. je ne suis pas du tout une expert en la matière :)
Ajouter un commentaire
Réponse
+12
moins plus
Comment fait on pour envoyer une feuille ou classeur par mail sans destinataires et pouvoir le remplir apres?
merci..
Ajouter un commentaire
Réponse
+8
moins plus
Sub SendMail()
' Copy the sheet(1)
ThisWorkbook.Sheets(1).Copy

' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("toto@ss.ch", "xxx@sss.ch"), Subject:="xxxxxxxxxxxxs" & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value
Ajouter un commentaire
Réponse
+8
moins plus
Merci pour cette macro :) Marche nickel
Ajouter un commentaire
Réponse
+7
moins plus
Bonjour,
j'ai cree une macro pour l'envoi d'un mail automatiquement en piece jointe....
mais je n'arrive pas a mettre en corp de message un petit mot explicatif genre "ci joint la feuille bidule de tel jour"...
J'ai essaye avec message:="..." mais cela ne fonctionne pas...
je suis en train de regarder pour mettre le mot de presentation sur un onglet secondaire via une insertion word...mais comment faire pour mettre le contenu de cet onglet en corp de message et mon deuxieme onglet en piece jointe?
je suis sous XP pro et excel..2002.

merci
Ajouter un commentaire
Réponse
+6
moins plus
Bonjour,

J'aimerais que cette macro ait cherche le email dans une cellule, l'objet dans une autre cellule et le texte du email dans une autre cellule.

Comment puis-je faire?

Email: A1
Objet: A2
Texte : A3
Ajouter un commentaire
Réponse
+5
moins plus
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+
don.kito - 4 nov. 2008 à 11:48
Bonjour,

pour un envoi à plusieurs destinataires, si j'utilise "Concatener(A2;";";A3;etc)", pouvez-vous me dire quelle synthaxe EXACTE je dois utiliser svp?

J'ai constament une erreur d'éxécution 1004
Ajouter un commentaire
Réponse
+5
moins plus
Et comment faire pour envoyer un mail sous Lotus Notes ?
Ajouter un commentaire
Réponse
+4
moins plus
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
Yvan - 10 juil. 2007 à 11:23
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
mxtess - 15 oct. 2010 à 17:38
Idris?
Ajouter un commentaire
Réponse
+4
moins plus
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 !


merciConfiguration: Windows XP Internet Explorer 7.0
Ajouter un commentaire
Réponse
+4
moins plus
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?
Ajouter un commentaire
Réponse
+4
moins plus
bonjour.
j ai besoin de savoir comment je peut envoyé chaque page excel un destinataire différend.
Ajouter un commentaire
Réponse
+2
moins plus
fonctionnera elle sous open office
Ajouter un commentaire
Réponse
+2
moins plus
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
Ajouter un commentaire
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+1
moins plus
est ce que ta essayé une boucle?
Ajouter un commentaire
Réponse
+0
moins plus
Mer ci beaucoup de votre aide, la macro marche trés bien .

beye
Ajouter un commentaire
Réponse
+0
moins plus
Merci Armojax de votre aide, la macro marche bien

beye
Ajouter un commentaire
Réponse
+0
moins plus
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 ?
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Ce document intitulé « macro excel envoi email avec piéce jointe » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?
macro excel envoi email avec piéce jointe - page 2