Envoi de mail

Signaler
Messages postés
1
Date d'inscription
vendredi 30 janvier 2009
Statut
Membre
Dernière intervention
21 mars 2009
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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")"

Vous remerciant par avance

Benjamin

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
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)