Bonjour à tous, et désolé si la question a déjà été soulevée !

Je souhaiterais créer un .vbs permettant d'envoyer par mail et toujours à la même adresse le contenu d'un fichier.txt

J'ai déjà trouvé comme base :

Code Visual Basic :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
With CreateObject("CDO.Message")
.From="mail@mail.com"
.To="mail@mail.com"
.Subject="SUJET"
.TextBody=MON FICHIER TXT A IMPORTER !
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.1"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With


Merci par avance !