none
el foreach loop container puede usarse para enviar correos? RRS feed

  • Pregunta

  • Saludos

    En mi trabajo me han encargado desarrollar un codigo en el cual se lea un documento de texto, lo filtre y el resultado de ese filtro, lo utilize para buscar los datos para el envio de correo electronico automatico, segun me comento mi jefa, el VBscrip 2005 puede realizarlo pero no tengo ni la mas remota idea de como hacerlo.

    Les muestro el codigo que he desarrollado teoricamente.

    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 hara, lo que me falta y es la pieza fundamental, es el envio de correos electronicos automaticos con la informacion obtenida por medio del filtro del nuevo documento (mencionado en la parte de arriba) les agradeceria mucho su ayuda para poder terminarlo ya que es de vital importancia.

    Muchas gracias!

    viernes, 7 de enero de 2011 17:40

Respuestas

Todas las respuestas