Probleme script envoi de mail

**ketou64** · 04/02/2009, 10h53

Bonjour,
Je suis actuelement en stage ou de dois entre autre realiser un script d'envoi automatique de mail .

Bon script va chercher un certain type de fichier dans un repertoire et envoi ces fichiers.

Voici mon code :

chemin = "C:\Documents and Settings\pdupont\Bureau"

'-------------- RECHERCHE ----------------------------

'On effectue une recherche par type de fichier dans le dossier choisi

Set fso = CreateObject("Scripting.fileSystemObject")

Const str = "doc" ' Nous cherchons ici des DOC
Const OverWriteFiles = TRUE
Set Rep = fso.GetFolder(chemin) ' On donne le repertoire dans lequel chercher
Set Fichiers = Rep.Files 'On attribu a "Fichiers" les fichiers trouves

'------------- Preparation et envoi du mail ---------------------

' On va envoyer chaque fichier par email ( 1 fichier par email)

For Each Fichier In Fichiers

If str = FSO.GetExtensionName(Fichier) Then ' Si il y a des fichiers dans "Fichier" alors :

Set objEmail = CreateObject("CDO.Message") ' On crée un objet message

objEmail.From = "blablavla@toto.com" ' On choisi ici l'adresse email de l'expediteur (permet le mail spoofing par exemple )
objEmail.To = "pdupont@mail.sensibilisation.com" ' Adresse du destinataire
objEmail.Subject = "Test d'envoi de mail" ' Le sujet du mail
objEmail.Textbody = "Youpi ca maaaaarhce" ' Le contenu du mail
objEmail.Fields.Item("urn:schemas:httpmail:importance") = 2 'J'ai defini l'importance du message a 2 c'est pas un critere obligatoire

objEmail.AddAttachment(chemin+Fichier.Name) ' On attache la piece jointe "Fichier"

objEmail.Fields.Update 'On met a jour les champs

'Next

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'On choisi la methode d'envoi
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sensibilisation.com" ' On donne ici le serveur SMTP
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'On donne la le port du serveur smtp
objEmail.Configuration.Fields.Update 'mise a jour des champs
objEmail.Send ' Envoi du mail

End if

Next

Quand je lance ce code, j'ai une erreur :

"Le fichier spécifié est introuvable"

l'erreur est sur la ligne suivante :

objEmail.AddAttachment(chemin+Fichier.Name) ' On attache la piece jointe "Fichier"

Mais si je remplace cette ligne par :

objEmail.AddAttachment("C:\Documents and Settings\pdupont\Bureau\"+Fichier.Name) ' On attache la piece jointe "Fichier"

Ben ca marche niquel.

Mon soucis c'est que je souhaite que mon premier code marche car par la suite, la variable "chemin" ne sera plus celle ci, mais elle changera en fonction de la session et ca donnera :

'Set WshShellObj = WScript.CreateObject("WScript.Shell")
'Set WshProcessEnv = WshShellObj.Environment("Process")
'chemin = WshProcessEnv("USERPROFILE") & "\Bureau"

Quelqu'un a une idee ???

Merci d'avance