| acg0510 |  |
|
2011-01-07 17:42 - Respuestas: 0 - Tema nº: 2749350
Server 2005, Vbs-c-r-i-p-t2005
Hola! mi jefa me encargo desarrollar un codigo en VBs-c-r-i-p-tpara un envio de correos por medio de una lectura de un archivo .txt, como yo he visto y he desarrollado teoricamente, el codigo queda de la siguiente manera:
Sub ReadFiles
Dim fso, f1, ts, s ,linecounter
linecounter=0
Set ts = fso.OpenTextFile("c:\nombre.txt", ForReading) (nombre.txt, no existe, solo lo puse para tener una idea)
s = ts.ReadLine (if not eof)
Linecounter +1
Reg= linea de datos
Do While [If Reg.position(1,1) = 3]
then
Acc No = MID (Reg,26,20)
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\cuentas.txt", True)
f1.WriteLine Acc No.Value[Acc No.Value]
f1.WriteBlankLines(1)
f1.Close
else
Reg.Position(1,1) 3
exit do
end if
Loop [until (EOF)]
ts.Close
endsub
la conexion ella lo desarrolla, la parte vital es el envio de correos, por medio del filtrado del documento que se creo (cuentas.txt) hara la busqueda del correo de la cuenta y enviara automaticamente toda la informacion relacionada, hasta ahora me comento que en esta version del VBs-c-r-i-p-t2005 se puede hacer pero no tengo ni la mas remota idea, espero y me ayuden, gracias
| |
|
|
