Importer un fichier .txt dans le corp d'un mail

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:

---

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

Résolu !

Si ça peut aider quelqu'un :

Code:

---

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

Const ForReading = 1 Const TemplateFile = "fichier.txt"   With CreateObject("CDO.Message") .From="mail@mail.com" .To="mail@mail.com" .Subject="Infos Utilisateur" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(TemplateFile, ForReading) .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.xxx.xxx" .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .TextBody = f.ReadAll f.close Set f = Nothing set fso = Nothing On Error Resume Next .Send If Err Then MsgBox "Le message n'a pas pu être expédié." On Error GoTo 0 End With

---