Email automatique avec pièce-jointe

Bonjour à tous,

je ne connais quasiment rien à la programmation, mais je cherche néanmoins avec acharnement un moyen d'automatiser l'envoi d'un email avec pièce-jointe (pour l'envoi de rapports d'activité.)

Après de nombreuses recherches et puisqu'il ne semble pas exister de programmes tout moulés pour ça, je suis tombé sur le script suivant, et j'ai l'impression qu'il ne manque pas grand chose pour qu'il fonctionne (ben oui, il me colle un message m'avertissant que mon mail n'a pas pu être expédié, c'est déjà ça...) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

On Error Resume Next With CreateObject("CDO.Message" ) If Err Then MsgBox "CDO non installé" Else .From="expéditeur" .To="destinataire" .Subject="Rapport" .TextBody="Rapport" .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.serveur.com" .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25 .Configuration.Fields.Update .AddAttachment("C:\chemin-complet-du-fichier.ext" ) .Send If Err Then MsgBox "Le message n'a pas pu être expédié." End If On Error GoTo 0 End With

---

Comme indiqué quelque part (?), j'ai donc enregistré ce script au format .txt avec le bloc-note, puis modifié l'extension en .vbs, mais ça ne fonctionne pas malgré mes multiples essais de configuration (adresses email, serveur smtp, port, etc.)
Auriez-vous une idée d'où le souci pourrait provenir ? Fonctionne-t-il sous Vista ? Faut-il un client de messagerie particulier pour le faire fonctionner ? (A la base, je l'ai trouvé sur une FAQ Outlook Express...)

Un grand merci d'avance !

Je crois que j'ai ta réponse... ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim oCDO Set oCDO = CreateObject("CDO.Message") With oCdo With .Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur smtp" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = port du serveur smtp, normalement 25 .Update End With .From="adresse mail de l'expéditeur du message" .to="adresse mail du destinataire" & "une autre adresse mail si tu veux" .Subject="sujet du message" .HTMLBody = "Body du message... En editant un message existant, tu trouvera le language du message en body" .AddAttachment("C:\Test\Test.txt") .Send End With

---

d'autre parrametre que tu peux utiliser en fonction de tes besoins :

Code:

---

1 2 3 4 5

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nom d'utilisateur" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot de passe" .Bcc = "adresse mail en copie" .Cc = "adresse mail en copie cachée"

---

Voila, logiquement tu trouveras ton bonheur...

Je l'utilise pour des rapports automtique d'imprimante chez les clients 8-)que le logiciel ne sait pas faire:?

Dis moi si tu as un problème.