Recuperation d'infos + envoyer par mail

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:

---

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:

---

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

J'ai trouvé la solution apres pas mal de tentative.

voici la solution:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim fso,a Dim MyVar   'instanciation Set FSO = CreateObject("Scripting.FileSystemObject")   'on instance le fichier texte Set Ftxt = FSO.OpenTextFile("c:\monfichier.txt")   'on parcours chaque ligne du fichier texte Do While Not Ftxt.AtEndOfStream Maligne = Ftxt.Readline tabmaligne = split(maligne," ")   Dim objMail Set objMail = CreateObject("CDO.Message") objMail.Subject = "Test envoie" objMail.Sender = "titi@pipo.com" objMail.To = tabmaligne(0) objMail.TextBody = "Voici Vos Identifiants : " & vbcrlf & "Votre adresse E-Mail : " & tabmaligne(0) & vbcrlf & "Votre Login : " & tabmaligne(1) & vbcrlf & "Votre Mot de Passe : " & tabmaligne(2) objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pipo.com" objMail.Send wscript.sleep(1000)   Loop   Ftxt.Close

---