Discussion :

[sylvain-g]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Leboubou111]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 que le logiciel ne sait pas faire

Dis moi si tu as un problème.