Hello 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...) :
 
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 !