Comment envoyer un mail (avec pièce jointe) depuis excel ?

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Comment envoyer un mail (avec pièce jointe) depuis excel ?

2 réponses

clario

14/12/2006 à 15:22

Bonjour,

je cherche =E0 envoyer un mail avec pi=E8ce jointe par excel mais je n'y
arrive pas.
Comment faire ?

J'ai test=E9 ceci sans succ=E8s :

Dim fs
Set fs =3D CreateObject("Scripting.FileSystemObject")

For i =3D 1 To 3
'Copie je copie mon fichier vers un autre r=E9pertoire en le renommant
fs.CopyFile "c:\Documents and Settings\Bureau\test\Classeur2.xls",
"C:\Documents and Settings\Bureau\test\" & i & ".xls", True

'j'envoie les fichiers cr=E9=E9s par mail (un mail un fichier)
Workbooks("c:\Documents and Settings\Bureau\test\" & i &
"=2Exls").SendMail Recipients:=3D"monadresse@monadresse.com",
Subject:=3D"Test envoi classeur", ReturnReceipt:=3DTrue

Next i

merci pour l'aide

2 réponses

MichDenis

15/12/2006 à 00:14

Tu devrais trouver ce que tu cherches là :

http://www.rondebruin.nl/sendmail.htm

Si besson, reviens !

"clario" a écrit dans le message de news:

Bonjour,

je cherche à envoyer un mail avec pièce jointe par excel mais je n'y
arrive pas.
Comment faire ?

J'ai testé ceci sans succès :

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

For i = 1 To 3
'Copie je copie mon fichier vers un autre répertoire en le renommant
fs.CopyFile "c:Documents and SettingsBureautestClasseur2.xls",
"C:Documents and SettingsBureautest" & i & ".xls", True

'j'envoie les fichiers créés par mail (un mail un fichier)
Workbooks("c:Documents and SettingsBureautest" & i &
".xls").SendMail Recipients:="",
Subject:="Test envoi classeur", ReturnReceipt:=True

Next i

merci pour l'aide

chapelledelavictoire2017

28/08/2017 à 20:22

Le jeudi 14 Décembre 2006 à 15:22 par clario :

Bonjour,
je cherche � envoyer un mail avec pi�ce jointe par excel mais je n'y
arrive pas.
Comment faire ?
J'ai test� ceci sans succ�s :
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 1 To 3
'Copie je copie mon fichier vers un autre r�pertoire en le renommant
fs.CopyFile "c:Documents and SettingsBureautestClasseur2.xls",
"C:Documents and SettingsBureautest" & i &
".xls", True
'j'envoie les fichiers cr��s par mail (un mail un fichier)
Workbooks("c:Documents and SettingsBureautest" & i &
".xls").SendMail
Recipients:="",
Subject:="Test envoi classeur", ReturnReceipt:=True
Next i
merci pour l'aide

Madame, monsieur,
Je viens vers vous pour vous demander de m'expliquer comment faire pour faire envoyer un mail à partir de ma boîte mail que voici?
Cordialement
Verlaine

Comment envoyer un mail (avec pièce jointe) depuis excel ?

2 réponses

Veuillez sélectionner un problème