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