Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Importer fichier .txt dans le corp d'un mail
Auteur Message
Répondre en citant
Message Importer 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 toujours à la même adresse le contenu d'un fichier.txt

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

Code Visual Basic :

Code:
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 ! Smile



Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Importer fichier .txt dans le corp d'un mail 
Bonjour,

j'ai trouvé cet exemple en 2mn, suffit de l'adapter un peut:

lecture d'un fichier ligne par ligne
Code:

dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("c:\tonfichier.txt", 1, false)
do while readfile.AtEndOfStream=false
contents = readfile.ReadLine
'le traitement à faire ici
loop
readfile.close





______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message Importer fichier .txt dans le corp d'un mail 
Merci à toi Cautex ! Smile

Sinon j'ai eu la réponse sur un autre forum.
Si ça peut aider quelqu'un je poste le code ici.

Code:
Const ForReading = 1
Const TemplateFile = "fichier.txt"
 
With CreateObject("CDO.Message")
.From="mail@mail.com"
.To="mail@mail.com"
.Subject="Sujet mail"
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




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


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch