Cómo enviar correo electrónico usando ASP y CDOSYS

El siguiente script ASP se puede usar para enviar correo electrónico usando CDOSYS en nuestros servidores.
 
Dim iConfig
Dim theFlds
Dim objCDOMail

Set iConfig = Server.CreateObject ("CDO.Configuration")
Set theFlds = iConfig.Fields

'Set and update fields properties
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.servwise.com"
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
theFlds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
theFlds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
theFlds("http://schemas.microsoft.com/cdo/configuration/sendusername")="name@email.com"
theFlds("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"

theFlds.Update

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDO.Message")
Set objCDOMail.Configuration = iConfig
Err.Clear

objCDOMail.From = "sender@emaladdress.com"
objCDOMail.To = "recipient@emaladdress.com"
objCDOMail.Subject = "Email Subject"
objCDOMail.TextBody="Email Body"
objCDOMail.Send

'Close the server mail object
Set objCDOMail = Nothing
Set theFlds= Nothing
Set iConfig = Nothing

También puede encontrar útil la siguiente http://www.w3schools.com/asp/asp_send_email.asp

  • 0 Los Usuarios han Encontrado Esto Útil
¿Fue útil la respuesta?

Artículos Relacionados

Información necesaria para generar una Solicitud de Firma de Certificado (CSR)

  Para completar un pedido SSL, primero deberá generar una Solicitud de firma de certificado...

SolidCP configurarlo para usar sus nombres de servidores

Si usted tiene una cuenta de revendedor usted puede utilizar sus nombres de servers con sus...

Server error: 550 No such user here

  Me sale el siguiente error al enviar mensajes de correo electrónico. Server error: 550 No...

Error : Validation of viewstate MAC failed

Si usted recibe el siguiente error en su aplicación. NET. Validation of viewstate MAC failed. If...

Puedo enviar correos electrónicos masivos (boletines, promociones, etc) y cuáles son los límites

ServWise tiene una política estricta de NO SPAM sobre el envío de correo electrónico masivo. El...