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
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
Tu devrais trouver ce que tu cherches là :
http://www.rondebruin.nl/sendmail.htm
Si besson, reviens !
"clario" <lamcl29@hotmail.com> a écrit dans le message de news:
1166106167.494533.160510@79g2000cws.googlegroups.com...
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:="monadresse@monadresse.com",
Subject:="Test envoi classeur", ReturnReceipt:=True
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
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
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