Script VBS envoyant un email, pb avec la piece jointe

Script VBS envoyant un email, pb avec la piece jointe - VB/VBA/VBS - Programmation

Marsh Posté le 03-07-2008 à 16:37:30    

Bonjour à tous,
 
Je réalise un script VBS contenant une partie envoyant un rapport au format .txt.
 
L'envoi du mail s'effectue correctement, cependant je ne sais pas comment inserer une piece jointe.
Pourriez vous m'aider svp ?  
 
Voici le code :  
 
 

Code :
  1. Set objEmail = CreateObject("CDO.Message" )
  2. objEmail.From = "Rapport_creation_user@ActiveDirectory.com"
  3. objEmail.To = "******@*****"
  4. objEmail.Subject = "Rapport de création des Utilisateurs AD du " & Date
  5. objEmail.Textbody = "Rapport du " & Date & " : "
  6. objEmail.Fields.Item("urn:schemas:httpmail:importance" ) = 2
  7. objEmail.Fields.Update
  9. objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  10. objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtprelay"
  11. objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
  12. objEmail.Configuration.Fields.Update
  13. objEmail.Send
  14. Set objMail = Nothing


 
d'avance merci

Reply

Marsh Posté le 03-07-2008 à 16:37:30   

Reply

Marsh Posté le 04-07-2008 à 09:18:03    

Re bonjour,  
 
est-ce la commande addAttachement ?  
 
merci

Reply

Marsh Posté le 04-07-2008 à 13:58:48    

Personne ne saurait m'aider ?

Reply

Marsh Posté le 04-07-2008 à 16:58:31    

Premier résultat de recherche google avec le mot clé CDO.Message :
 
C'est la méthode AddAttachement : http://www.faqoe.com/rep/cs.php3

Reply

Marsh Posté le 21-07-2008 à 12:46:00    

Je savais bien que c'était la méthode AddAttachement, mais justement elle ne marchait pas.
 
Heuresement, j'ai trouvé la solution, il faut séparer le tout en deux script un qui créer les users et l'autre qui envoi le mail. Comme cela sa marche niquel, pourquoi ? je ne sais pas ^^  
 
a ++

Reply

Sujets relatifs:

Leave a Replay

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