| Pregunta: | 47428 - ENVIAR CORREO DESDE VISUAL BASIC 6 |
| Autor: | Salvador Ruiz |
| ¿Se puede enviar correo sin utilizar controles? Es decir, instanciando algún objeto desde código, por ej., CreateObject(..) . Es que tengo que hacerlo desde una función dentro de un módulo, por lo que no puedo usar ningún control !!
Gracias de antemano. | |
| Respuesta: | Ari |
| Podes usar la referencia "Microsoft CDO for NTS 1.2 Library" y el siguiente codigo.
Ojo que para que ande tenes que tener instalado el IIS. Dim Email As CDONTS.NewMail Set Email = New CDONTS.NewMail Email.BodyFormat = 1 Email.MailFormat = 1 Email.Send Titulo, Destinatarios, Subject, Mensaje | |