cs_benjamin28
Messages postés1Date d'inscriptionvendredi 30 janvier 2009StatutMembreDernière intervention21 mars 2009
-
21 mars 2009 à 15:00
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
21 mars 2009 à 19:00
Bonjour
J'utilise un script vbs pour envoyer un mail avec une piece jointe :
----------------------------------------------------------
On Error Resume Next
With CreateObject("CDO.Message")
If Err Then
MsgBox "CDO non installé"
Else
.From="[mailto:toto@toto.toto toto@toto.toto]"
.To="[mailto:toto2@toto.toto toto2@toto.toto]"
.Subject="mon fichier a envoyer"
.TextBody="mon fichier a envoyer"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.toto.com
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.AddAttachment("c:\nomfichier a envoyer\jounal.txt")
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With
----------------------------------------------------------
il marche parfaitement mais je souhaite le modifier pour envoyer le fichier .txt present dans le repertoire avec une selection du type
" .AddAttachment("c:\nomfichier a envoyer\*.txt")"
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 21 mars 2009 à 19:00
Salut
Il n'est jamais possible de fournir des paramètres avec * (dans aucun composant)
C'est à toi de faire une boucle de recherche du nom des fichiers présents avec une simple boucle Dir :
sNomFichier = Dir("c:\nomfichier a envoyer\*.txt")
Do While sNomFichier = ""
.AddAttachnment("c:\nomfichier a envoyer" & sNomFichier)
sNomFichier = Dir ' Au suivant
Loop
Le seul doute que j'ai, c'est sur la technique de l'envoi de fichiers multiples.
Est-ce que plusieurs AddAttachments peuvent se succeder ... A toi de tester
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)