MARIANO SERAL
 
 
 

CDOMAIL

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.

VOLVER

marianoseral.com huescah@terra.es