High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Macro excel envoi email avec piéce jointe

Dernière réponse le 30 sep 2009 à 11:53:29 beye, le 30 mai 2006 à 10:40:30 
 Signaler ce message aux modérateurs

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)

Meilleures réponses pour « macro excel envoi email avec piéce jointe » dans :
Envoyer de gros fichiers (pièces jointes) par mail VoirLes systèmes de messagerie bloquent généralement les pièces jointes volumineuses, alors comment faire parvenir un fichier lourd (de plusieurs Mo) à son destinataire ? La solution consiste à utiliser un service d'hébergement temporaire de fichiers...
[Langages] Envoyer un mail avec pièce jointe VoirLes mails, tout comme les pages web, sont livrés avec des en-têtes (headers en anglais). Ces en-têtes servent à donner quelques détails nécessaires comme l'adresse du destinataire, celle de l'envoyeur, la date de l'envoi, le sujet du mail etc. Elles...
[Outlook Express] Pièces jointes impossibles à envoyer VoirSi Outlook Express ne peut pas envoyer les pièces jointes ajoutées à votre mail, ceci est probablement dû au fait qu'elles possèdent une taille trop volumineuse. Pour y remédier, la solution consiste à scinder les pièces jointes en plusieurs...
Posez votre question Répondre

1

Armojax, le 30 mai 2006 à 17:32:56
  • +7

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.

   
Répondre à Armojax

4

Padawan, le 6 oct 2006 à 09:01:40

Bonjour,

elle est très bien cette macro mais comment ca marche avec Word SVP?? J'ai essayer de mettre "ThisDocument" à la place de Workbooks mais ca marche pas. merci d'avance...

   
Répondre à Padawan

6

Gérard, le 18 fév 2007 à 07:47:23
  • +2

Bonjour,
Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True

je m'addresse à Amorjax.
Ce que je souhaite faire est très proche de ce que tu proposes. Mais je voudrais envoyer, non pas le classeur entier, mais une feuille à un destinataire, puis une autre (du même classeur) à un autre destinataire... Chaque feuille les concernant personnellement. et je souhaite que ce soit en piece jointe pour qu'ils puissent corriger les données et me les revoyer.
Peux-tu m'indiquer une solution.

   
Répondre à Gérard

16

debutante-excel, le 8 mar 2008 à 23:01:34
  • +3

Bonjour Armojax,

voilà j'ai utilisé ce que tu conseillles

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

j'aimerai savoir comment je peux faire si je veux écrire dans le corps du mail

je cherche comment le corps du message dans le mail .

par exemple comme Subject:= pour l'objet du mail

ou es ce que je peux trouver ca ????

merci de votre aide.

a +++++++++++++++++

   
Répondre à debutante-excel

24

Oli067, le 30 jun 2008 à 20:20:08

Bonsoir

Est ce que vous aurez une macro pour en Cci
Ci dessous ma macro

Sub EnvoiMail()
Workbooks("Formulaire1.xls").SendMail Recipients:="james.bond@orange.fr,claudia.model@orange.fr", _
Subject:="Bestellung", _
ReturnReceipt à True
End Sub
Merci de votre aide

Cordialement

   
Répondre à Oli067

2

beye, le 31 mai 2006 à 12:37:50

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

beye

   
Répondre à beye

3

beye, le 31 mai 2006 à 12:42:28

Merci Armojax de votre aide, la macro marche bien

beye

   
Répondre à beye

5

Idris, le 9 jan 2007 à 13:47:02

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

   
Répondre à Idris

7

Yvan, le 10 jui 2007 à 11:23:16

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épondre à Yvan

8

Doudou95, le 1 aoû 2007 à 00:38:12
  • +2

Fonctionnera elle sous open office

   
Répondre à Doudou95

9

chinel, le 31 aoû 2007 à 10:37:14
  • +1

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

Configuration: Windows XP
Internet Explorer 7.0

   
Répondre à chinel

10

éléphant, le 20 sep 2007 à 14:21:16

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 ?

   
Répondre à éléphant

11

seve, le 30 oct 2007 à 19:55:59

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épondre à seve

12

domino40, le 22 déc 2007 à 09:02:57

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

   
Répondre à domino40

13

Oresias, le 11 jan 2008 à 14:27:51

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+

   
Répondre à Oresias

28

don.kito, le 4 nov 2008 à 11:48:15

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épondre à don.kito

14

landmaestro, le 27 jan 2008 à 20:51:13

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épondre à landmaestro

15

fhadek, le 14 fév 2008 à 01:55:31

Est ce que ta essayé une boucle?

   
Répondre à fhadek

17

Raton, le 14 mar 2008 à 13:42:21

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

   
Répondre à Raton

18

debutant, le 17 mar 2008 à 10:52:58

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.

   
Répondre à debutant

19

wam202, le 19 mar 2008 à 11:02:18

Et comment faire pour envoyer un mail sous Lotus Notes ?

   
Répondre à wam202

20

maf67000, le 19 mar 2008 à 16:56:59

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.

   
Répondre à maf67000

21

Tonio, le 26 mar 2008 à 09:26:43

Essaye ça : Application.DisplayAlerts = False
A insérer au début de ta macro

   
Répondre à Tonio

22

maf67000, le 28 mar 2008 à 18:45:45
  • +3

Merci Tonio,

Mais il n'y a pas de différence, j'ai toujours le message

Private Sub bouton_ENVOYER_Click()
Application.DisplayAlerts = False
ActiveWorkbook.SendMail Recipients:="test@test", _
Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value, _
ReturnReceipt:=True
End Sub

si je mets la ligne avant j'ai un erreure

As-tu un remède ?

merci d'avance pour ton aide

Marc

   
Répondre à maf67000

23

lulu, le 8 avr 2008 à 16:51:09

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.

   
Répondre à lulu

25

dante20007, le 8 jui 2008 à 08:41:44
  • +3

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épondre à dante20007

26

Daniel, le 31 jui 2008 à 13:37:14
  • +1

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"

   
Répondre à Daniel
34 réponses 12 Suivant
Posez votre question Répondre
Ils ont besoin de votre aide