Bonjour à tous,

j'ai une fois de plus besoin de vos lumieres. Je vous explique ce dont j'ai besoin. Je dois envoyer des infos qui se toruve dans un fichier texte à chaque user. Je m'explique: Dans le fichier texte il y aura le nom de la personne, son login, son password ainsi que son adresse mail. Je veux que le srcipt lise ligne par ligne le fichier texte, recupere l'adresse mail et envoie les infos qu'il a recuperer dans la ligne.
J'ai bien avancé car j'ai le code qui permet de lire le fichier ligne par ligne et le code me petmettant d'envoyer le mail. Mais je n'arrive pas a les combiné. Pouvez vous m'aider:

Code pour lire ligne par ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oTxt = oFso.OpenTextFile("C:\MonFichier.txt")
While Not oTxt.AtEndOfStream
   sTxt = oTxt.ReadLine
   WScript.Echo sTxt
Wend
oTxt.Close
Set oTxt = Nothing
Set oFso = Nothing
Code envoie de mail:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
On Error Resume Next
 With CreateObject("CDO.Message")
  If Err Then
   MsgBox "CDO non installé"
  Else
 .From="JacquesChirac@pipo.com"
 .To="Sroyal@pipo.com"
 .Subject="Urgent"
 .TextBody="veuillez me contacter svp"
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pipo.com"
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 .Configuration.Fields.Update
 .Send
 If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With
Merci de maider a articulé tous ca