|
Como enviar mails desde un Formulario con
CDOSYS
Para el envió de mails a través de formularios
en su sitio Web puede utilizar la componente CDOSYS, a
continuación colocamos un ejemplo para que le
sirva de guía.
Ejemplo del CDOSYS
<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver")
="mail.sudominio.com"
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =
False
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusername")
="direccion de email"
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendpassword")
="password"
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "soporte@cecenet.com.ar"
ObjSendMail.Subject = "Prueba de CDOSYS"
ObjSendMail.From = "direccion de email"
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
Si utiliza los servicios de GAPPS deberá de conectarse al smtp
de gmail de la siguiente manera.
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver")
="smtp.gmail.com"
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 465
ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =
True
|
