27/07/2005, 14:30
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años, 6 meses Puntos: 839 | |
Enviar correo:
Código:
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = "[email protected]" 'el remitente
Mail.To = "[email protected]" 'la cuenta a la que se quiere enviar
Mail.Subject = "Titulo" 'Titulo del Mensaje
Mail.Body = "Mensaje" 'El mensaje
Mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain
Mail.MailFormat = 1 ' 0 = MIME, 1 = Text
Mail.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low
Mail.Send
Descargar la librería necesaria desde: http://es.geocities.com/celinacorreo/cdonts.zip  |