Script VBS : envoi mail automatique avec smtp & pièces jointes

Script VBS : envoi mail automatique avec smtp & pièces jointes - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2006 à 23:13:47    


 
Bonsoir à tous,
 
Voila ci-dessous mon script vbs d'envoi de fichiers automatique pour mes contrôles quotidien.
Ce script marche parfaitement mais n'est toujours pas en production car je bloque sur une étape.  
 
Voici donc mon problème :
 
Pour certains contrôles, j'ai plusieurs fichiers de type RECA* à envoyer. Et qu'il m'est impossible de
les ecrires en dur dans mon script "ligne par ligne", puisque une partie du fichier situé juste après RECA prend une valeur  
différente chaque jour.
Je voulais donc savoir si quelqu'un pouvait m'aider à modifier mon script pour faire en sorte que pour la tache "Etat récap"  
celui-ci puisse recuperés tous les fichiers commencant par RECA de mon répertoire.
 
Je précise que j'ai déjà essayé avec cette syntaxe : .AddAttachment("E:\test script\RECA*) mais cela ne marche pas.
 
Merci infiniment pour votre aide, qui serait vraiment la bienvenue. Car sans cela j'ai peur que mon script ne sera malheureusement jamais utilisé,  
si celui-ci n'englobe qu'une petite partie des envoies de fichiers quotidiens.
 
Cordialement.
 
 
'-------------------------------------------------------------------------------  
'Envoi de fichiers quotidien en automatique par smtp avec pièces jointes  
'-------------------------------------------------------------------------------  
'
'
With CreateObject("CDO.Message" )
.From="ADRESSE EXPEDITEUR"
.To="ADRESSE DESTINATAIRE"
.Subject="Etat récap"
.HTMLBody="CORPS DU MAIL"
.AddAttachment("E:\test script\RECA" )
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "SMTP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
 
.From="ADRESSE EXPEDITEUR"
.To="ADRESSE DESTINATAIRE"
.Subject="suivi récap"
.HTMLBody="CORPS DU MAIL"
.AddAttachment("E:\test script\suivRECA.txt" )
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "SMTP"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
 
End With
 
------------------------------------------------------------
 
Bonne soirée à tous. Et encore merci de m'aider.

Reply

Marsh Posté le 23-03-2006 à 23:13:47   

Reply

Marsh Posté le 24-03-2006 à 23:04:52    

Personne pour m'aider ?

Reply

Marsh Posté le 28-09-2006 à 14:11:04    

nikozo as-tu réussi à envoyer une pièce jointe avec la commande .AddAttachment?

Reply

Marsh Posté le 30-09-2006 à 20:29:20    

J'imagine que tu n'es pas sans connaitre le script center.
 
je verrai un algo du type :
 
 
debut lister les fichiers du dossier               List All the Files in a Folder  
 
     si  UCase(Left(nomdufichier, 4)) = "RECA"      
     alors envoyer le fichier
 
fin lister les fichiers du dossier
 
 

Reply

Marsh Posté le 02-10-2006 à 06:52:26    

Reply

Marsh Posté le 02-10-2006 à 15:00:55    

Pour ma part j'ai réussi, je ne mettais pas le nom de chemin en entier
 
http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed