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

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

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

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

wam202 · Answer

Et comment faire pour envoyer un mail sous Lotus Notes ?

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?

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

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

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

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.

Macro excel envoi email avec piéce jointe

33 réponses

Discussions similaires