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

Messages postés
6
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
4 juillet 2006
- - Dernière réponse :  Francis - 12 déc. 2017 à 07:52
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)
Afficher la suite 

20/33 réponses

Meilleure réponse
Messages postés
1857
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
20 septembre 2019
1263
67
Merci
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.

Dire « Merci » 67

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

CCM 70073 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?
aldochv
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,
34
Merci
Comment fait on pour envoyer une feuille ou classeur par mail sans destinataires et pouvoir le remplir apres?
merci..
25
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
21
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
19
Merci
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
14
Merci
Merci pour cette macro :) Marche nickel
Messages postés
35
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
15 mai 2017
13
13
Merci
Et comment faire pour envoyer un mail sous Lotus Notes ?
11
Merci
bonjour.
j ai besoin de savoir comment je peut envoyé chaque page excel un destinataire différend.
10
Merci
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
62
Date d'inscription
mercredi 25 avril 2007
Statut
Membre
Dernière intervention
27 avril 2009
10
10
Merci
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?
8
Merci
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
6
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
6
Merci
est ce que ta essayé une boucle?
5
Merci
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
5
Merci
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
5
Merci
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
244
4
Merci
fonctionnera elle sous open office
4
Merci
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
2
2
Merci
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
2
0
Merci
Mer ci beaucoup de votre aide, la macro marche trés bien .

beye