[Catégorie modifiée .Net -> VBS] Importer fichier .txt dans le corp d'un mail

Cecias Messages postés 2 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 5 juillet 2012 - 4 juil. 2012 à 14:02
Cecias Messages postés 2 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 5 juillet 2012 - 5 juil. 2012 à 09:50
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 :

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

4 réponses

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 27
4 juil. 2012 à 17:39
 Bonjour,

Il suffit de passer par un tableau.


strFile = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("H:\Tableau.txt", 1).ReadAll,vbCrLf)


.TextBody="Bonjour," & vbCrLf & vbCrLf & _
           Join(strFile,vbLf)




jean-marc
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
4 juil. 2012 à 17:44
Const ForReading = 1
Const TemplateFile = "C:\(chemin)\mon_fichier.txt"

With CreateObject("CDO.Message")
.From="mail@mail.com"
.To="mail@mail.com"
.Subject="SUJET"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(TemplateFile, ForReading)
.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
0
cs_loulou69 Messages postés 672 Date d'inscription mercredi 22 janvier 2003 Statut Membre Dernière intervention 2 juin 2016 1
4 juil. 2012 à 17:51
Bonjour Cecias,

peut etre tout simplement

.AddAttachment "c:\(chemin)\nom_du_fichier"
0
Cecias Messages postés 2 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 5 juillet 2012
5 juil. 2012 à 09:50
Super ça fonctionne loulou69 ! merci beaucoup

Merci à toi aussi JMO, j'ai essayé, mais je n'ai pas du le faire correctement ^^
0
Rejoignez-nous