enviar directorio por email fso + cdonts

dieguicho · #1 (**permalink**) 03/06/2004, 15:14

hola a todos... tengo los pedazos del o que necesito
ahora tengo que unirlos.. me ayudan?

por un lado.. obtengo todos los archivos de un directorio

Código HTML:

Set filesys = CreateObject("Scripting.FileSystemObject") 
Set demofolder = filesys.GetFolder(Server.MapPath("modelos/"))
Set filecoll = demofolder.Files 
For Each fil in filecoll
    filist = filist & Server.MapPath("modelos/" & fil.name)
    filist = filist & "<BR>"  
Next   
Response.Write filist

y por otro lado el cdonts que envia el email.
como deberia dejar la linea del attachfile?

Código HTML:

Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "[email protected]"
MyMail.To = "[email protected]"
MyMail.Subject = "prueba peoplesoft"
MyMail.BodyFormat = 1
MyMail.MailFormat = 0
MyMail.Importance = 2
MyMail.Body = sContenido
MyMail.Attachfile "c:\path\smiley.gif", "smilefile.gif", 1
MyMail.Send
Set MyMail = Nothing

espero ser comprendido
muchas gracias!!!! y

u_goldman · #2 (**permalink**) 03/06/2004, 15:23

Pero son diferentes cuentas de mail?
Vas a envíar todos los archivos, o vas a envíar uno a la vez?

Salu2,

dieguicho · #3 (**permalink**) 04/06/2004, 00:24

nono.. todo al mismo email..
pasa que quiero enviar un email HTML osea tengo en un directorio el HTML y todos sus GIF entonces se me ocurrio que enviando el HTML y las imagenes se veria bien.
osea quiero enviar tooodos los archivos que estan dentro del directorio..

gracias!!!

Gurrutello · #4 (**permalink**) 04/06/2004, 03:00

Hola si pusieras todos tus gifs en tu pagina html con la ruta virtual , osea
http://www.tuweb.com/imagenes/gif1.gif
en todas tus imagenes de la pagina que vas a enviarcomo adjunto, te ahorrarias tener que enviar todas las imagenes, porque al mismo tiempo el email puede ser un poco pesado.
Saludos

dieguicho · #5 (**permalink**) 04/06/2004, 08:24

si eso lo se, pero suponiendo que no puedo hacer eso...
es posible enviar todos los archivos que estan dentro de un directorio?

tuning_boy · #6 (**permalink**) 04/06/2004, 09:48

Lo siento dieguicho, pero no termino de entender muy bien que es lo que quieres hacer

MrLake · #7 (**permalink**) 04/06/2004, 11:06

Dieguicho.

Lo puedes hacer con esto.

Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "[email protected]"
MyMail.To = "[email protected]"
MyMail.Subject = "prueba peoplesoft"
MyMail.BodyFormat = 1
MyMail.MailFormat = 0
MyMail.Importance = 2
MyMail.Body = sContenido

For Each fil in filecoll
Mail.AttachFile(Server.MapPath("modelos/" & fil.name))
Next

MyMail.Send
Set MyMail = Nothing

Espero te sirva