Discussion :

[lephyrexian]

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

[lephyrexian]

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

voici la solution:

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