Macro excel envoi email avec piéce jointe
virgile84
Messages postés
21
Statut
Membre
-
lichen1 Messages postés 10 Statut Membre -
lichen1 Messages postés 10 Statut Membre -
Bonjour,
Je sais il y a déja un topc qui s'appale comme ça mais il date un peu
voici mon problème j'ai fait cette macro comme dans l'ancien topic mais ça marche pas où est l'erreur ?
Sub EnvoiMail()
Workbooks("Feuil1.xls").SendMail Recipients:="cinquante.et.un@gmail.com", _
Subject:="COMMANDE",_
ReturnReceipt à True
End Sub
merci
Je sais il y a déja un topc qui s'appale comme ça mais il date un peu
voici mon problème j'ai fait cette macro comme dans l'ancien topic mais ça marche pas où est l'erreur ?
Sub EnvoiMail()
Workbooks("Feuil1.xls").SendMail Recipients:="cinquante.et.un@gmail.com", _
Subject:="COMMANDE",_
ReturnReceipt à True
End Sub
merci
A voir également:
- Macro excel envoi email avec piéce jointe
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Pièce d'identité - Accueil - Services publics
- Word et excel gratuit - Guide
- Comment creer un compte email - Guide
3 réponses
Bonjour,
Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="adresse@mail", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub
Fonctionne pour un classeur, mais pour une feuille c'est sheet non ?
Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="adresse@mail", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub
Fonctionne pour un classeur, mais pour une feuille c'est sheet non ?
bonjour cocotehier
avec sheet ça marche pas non plus
Sub EnvoiMail()
Workbooks("sheet").SendMail Recipients:="virgile84@gmail.com", _
Subject:="commande", _
ReturnReceipt:=True
End Sub
j'ai pas de solution......
avec sheet ça marche pas non plus
Sub EnvoiMail()
Workbooks("sheet").SendMail Recipients:="virgile84@gmail.com", _
Subject:="commande", _
ReturnReceipt:=True
End Sub
j'ai pas de solution......
je vois que cela fait longtemps, et j'espère que tu as une solution, dans le cas négatif, j'utilise ça qui fonctionne
'.......................copy feuil1
Sheets("feuil1").Select
Sheets("feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"Y:\xx.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'........................ouvre outlook
'................................................................
ActiveWorkbook.SendMail Recipients:="nom@cx.fr", _
Subject:="titre"
'.........................................................timer
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("Y:xx.xls")
f.Delete
j'espère que ça aidera qqn
bon courage
'.......................copy feuil1
Sheets("feuil1").Select
Sheets("feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"Y:\xx.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'........................ouvre outlook
'................................................................
ActiveWorkbook.SendMail Recipients:="nom@cx.fr", _
Subject:="titre"
'.........................................................timer
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("Y:xx.xls")
f.Delete
j'espère que ça aidera qqn
bon courage
Bonjour,
Bizarre, voici un lien avec les mêmes données, par contre, regardes bien pour Firefox..
http://www.commentcamarche.net/forum/affich 2253001 macro excel envoi email avec piece jointe
Bizarre, voici un lien avec les mêmes données, par contre, regardes bien pour Firefox..
http://www.commentcamarche.net/forum/affich 2253001 macro excel envoi email avec piece jointe
