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

Signaler
Messages postés
6
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
4 juillet 2006
-
 Francis -
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)

33 réponses

Messages postés
1842
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
9 juin 2020
1 349
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.
68
Merci

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

CCM 62320 internautes nous ont dit merci ce mois-ci

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 :)
Avez-vous trouver la solution MIANGE?
Messages postés
1
Date d'inscription
mercredi 27 mai 2015
Statut
Membre
Dernière intervention
27 mai 2015
> cedric31
Cedric31 j'ai la meme question que celle à miange, pourrais-tu m'aider?
puis j'avoir ton adresse mail pour te soliciter
Merci pour le code,
Comment fait on pour envoyer une feuille ou classeur par mail sans destinataires et pouvoir le remplir apres?
merci..
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
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
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
Merci pour cette macro :) Marche nickel
Messages postés
36
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
25 mars 2020
13
Et comment faire pour envoyer un mail sous Lotus Notes ?
bonjour.
j ai besoin de savoir comment je peut envoyé chaque page excel un destinataire différend.
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+
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
Messages postés
61
Date d'inscription
mercredi 25 avril 2007
Statut
Membre
Dernière intervention
27 avril 2009
10
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?
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
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
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
est ce que ta essayé une boucle?
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
Bonjour,

Votre macro est super, est-il possible de l'envoyer à plusieurs personnes en cci avec accuser de reception.

A plus et bonne journée
Messages postés
4
Date d'inscription
mercredi 30 septembre 2009
Statut
Membre
Dernière intervention
1 octobre 2009
5
Bonjour à tous,

J'Aimerais savoir comment envoyer un email avec des fichiers jointes automatiquement à plusieurs destinaires à une date précise de chaque mois en langage java.

Merci c'est urgent
Messages postés
1569
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
30 avril 2019
255
fonctionnera elle sous open office
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
Messages postés
6
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
4 juillet 2006
3
Merci Armojax de votre aide, la macro marche bien

beye
Messages postés
6
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
4 juillet 2006
3
Mer ci beaucoup de votre aide, la macro marche trés bien .

beye