Envoi de mail

Question

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:
omfichier 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:
omfichier a envoyer\*.txt")"

Vous remerciant par avance

Benjamin

cs_Jack · Answer

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:
omfichier a envoyer\*.txt")
   Do While sNomFichier = ""
      .AddAttachnment("c:
omfichier 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)

Envoi de mail

1 réponse

Votre réponse

Discussions similaires