Cdomail sirve para madar mensajes de correo electrónico.
Propiedades del objeto CDO:
From: Origen del e-mail.
To: Destino del e-mail.
Subject: Asunto del e-mail.
Body: Texto del e-mail.
Cc: Con copia.
Bcc: Con copia oculta.
Importante: Urgencia.
AttachFile: Fichero anexo.
Send: Envía el mensaje.
En primer lugar necesitaremos un formulario, para indicar
el remitente, el destinatario, el asunto, etc.
<%
Dim remitente
Dim destinatario
Dim asunto
Dim mensaje
remitente = request.form("remitente")
destinatario = request.form("destinatario")
asunto = request.form("asunto")
mensaje = request.form("mensaje")
'Creamos una instancia del objeto CDO
Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")
ObjetoCDO.From = remitente
ObjetoCDO.To = destinatario
ObjetoCDO.Subject = asunto
ObjetoCDO.Body = mensaje
ObjetoCDO.AttachFile Server.MapPath("nombreimagen")
ObjetoCDO.Send
Set ObjetoCDO = Nothing
%>
Para utilizar CDOMAIL primero ponernos en contacto con
nuestro servidor.
|