27/07/2007, 04:49
|
 | | | Fecha de Ingreso: noviembre-2005
Mensajes: 403
Antigüedad: 19 años, 5 meses Puntos: 0 | |
| Re: enviar adjuntos con CDONTS.NewMail
Código:
objCDO.To = email
objCDO.From = usu_email
objCDO.Subject = "" & asunto
objCDO.AttachFile direccion_fichero "es si el ="
objCDO.MailFormat = 0
objCDO.BodyFormat = 0
objCDO.Body = texto
objCDO.Send
|