Macro excel envoi email avec piéce jointe

Résolu/Fermé
beye
Messages postés
6
Date d'inscription
lundi 15 mai 2006
Statut
Membre
Dernière intervention
4 juillet 2006
- 30 mai 2006 à 10:40
 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)
A voir également:

33 réponses

Armojax
Messages postés
1852
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
9 mars 2022
1 505
30 mai 2006 à 17:32
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.
72
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...
0
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.
0
debutante-excel
Messages postés
195
Date d'inscription
mardi 26 février 2008
Statut
Membre
Dernière intervention
31 mars 2011
11
8 mars 2008 à 23:01
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 +++++++++++++++++
0
Oli067
Messages postés
8
Date d'inscription
lundi 12 mai 2008
Statut
Membre
Dernière intervention
29 mars 2009

30 juin 2008 à 20:20
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
0
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 :)
0