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)
Afficher la suite

33 réponses

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

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

CCM 57608 internautes nous ont dit merci ce mois-ci

Afficher les 9 commentaires
Signaler

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 :)
Signaler
> miange
Avez-vous trouver la solution MIANGE?
Signaler
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?
Signaler

puis j'avoir ton adresse mail pour te soliciter
Signaler

Merci pour le code,
Réponse 2 / 33

Comment fait on pour envoyer une feuille ou classeur par mail sans destinataires et pouvoir le remplir apres?
merci..
Réponse 3 / 33

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
Réponse 4 / 33

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
Réponse 5 / 33

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
Réponse 6 / 33

Merci pour cette macro :) Marche nickel
Réponse 7 / 33
Messages postés
34
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 ?
Réponse 8 / 33

bonjour.
j ai besoin de savoir comment je peut envoyé chaque page excel un destinataire différend.
Réponse 9 / 33

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+
Signaler

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
Réponse 10 / 33
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?
Réponse 11 / 33

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
Réponse 12 / 33

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
Signaler

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éponse 13 / 33

est ce que ta essayé une boucle?
Réponse 14 / 33

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éponse 15 / 33

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
Réponse 16 / 33
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
Réponse 17 / 33
Messages postés
1561
Date d'inscription
jeudi 19 juillet 2007
Statut
Membre
Dernière intervention
30 avril 2019
 255
fonctionnera elle sous open office
Réponse 18 / 33

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éponse 19 / 33
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
Réponse 20 / 33
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
Posez votre question
1 2