macro excel envoi email avec piéce jointe Résolu/Fermé

Question

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)

Armojax · Accepted Answer

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 SubCette 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.

beye · Answer

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

beye · Answer

Merci Armojax de votre aide, la macro marche bienbeye

Idris · Answer

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

Doudou95 · Answer

fonctionnera elle sous open office

chinel · Answer

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

éléphant · Answer

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 ?

seve · Answer

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

domino40 · Answer

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

Oresias · Answer

Salut,
Tu as pensé à remplacer "vhualberi@wanadoo.fr; s_raaclermontrrpv@free.fr" parRange("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+

landmaestro · Answer

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

fhadek · Answer

est ce que ta essayé une boucle?

Raton · Answer

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

debutant · Answer

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.

wam202 · Answer

Et comment faire pour envoyer un mail sous Lotus Notes ?

maf67000 · Answer

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.

lulu · Answer

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.

dante20007 · Answer

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?

Daniel · Answer

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"

xx · Answer

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

eric3365 · Answer

Bonjour à tous,

Une question je souhaiterais que lorsque une des cellules m'indique "a reconduire" un mail me soit envoyé. je ne parviens pas à bien comprendre le fonctionnement de la macro pourrait-on m'aider.
Merci par avance

Oli067 · Answer

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

SuzieMam · Answer

Bonjour à tous,

J'aurai besoin de votre aide. Car je ne comprends pas bien comment faire fonctionner la macro que vous expliquez dans cette rubrique. 
J'aurais à faire un mailing pour l'invitation à une formation. J'ai plusieurs fichiers :

- un fichier excel avec les noms des clients avec leur adresse mails qui se trouve dans la colonne F2:F160. 
- un autre fichier en Word qui est un courrier d'invitation 
- un autre fichier en PDF qui est le formulaire d'inscription pour cette formation.

J'aimerais donc envoyer à tous les destinataires de la colonne F2:F160 un mail avec le courrier ouvert dans le corps du  mail (comme si j'avais écrit le courrier dans le mail) puis la pièce jointe en PDF qui est le fichier d'inscription.

J'espère que ma question est assez claire et je vous remercie pour votre aide.

SuzieMam

amigo · Answer

Merci pour cette macro :) Marche nickel

Valou · Answer

Comment fait on pour envoyer une feuille ou classeur par mail sans destinataires et pouvoir le remplir apres?
merci..

imaghza · Answer

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

ioreg · Answer

Merci ca marche nikel!

ioreg · Answer

Merci ca marche nikel!

chris · Answer

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

jeanmarc · Answer

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

simo · Answer

bonjour.
j ai besoin de savoir comment je peut envoyé  chaque page  excel un destinataire différend.

dirsang · Answer

Bonjour,

J'ai une feuille exel ou dans la première colonne j'ai mes adresses mail, et dans la deuxième un mot de passe.

J'aimerais mettre en place un script qui me permettrait d'envoyer le mot de passe de la case 2de la ligne 1 à l'adresse email se trouvant dans la case 1 de cette même ligne, et celà en boucle, du début de ma feuille jusqu'à la fin.

Merci d'avance pour ceux qui auront le temps de se pencher sur ma question.

ptipages · Answer

Bonjour tous le monde,

Je ne comprend pas vraiment comment la macro fonctionne...ou sont ecris les conditions dans lesquelles on veux envoyer le mail?

Par exemple si je veux que le mail sois envoyé deux semaine avant la date de peremtion?

Merci d'avance

ptipages

Macro excel envoi email avec piéce jointe

33 réponses

Discussions similaires