Informática

[SinMundial]

Ejemplo de Función para enviar correos con CDO en ASP

Esta función la hice para enviar correos constantemente desde las formas de mis páginas en ASP, así sólo tengo que crear un archivo e incluirlo para enviar correos en ASP.


<%
Function EnviarCorreo(fnombreremitente,femailremitente,fmensaje,femailpara,fasunto,fadjunto)
ON ERROR RESUME NEXT

'Enviar un correo de texto usando autenticación en un servidor SMTP

Const cdoSendUsingPickup = 1 'Enviar mensaje usando el servicio de recolección de directorio local SMTP
Const cdoSendUsingPort = 2 ' Enviar usando la red, SMTP sobre red

Const cdoAnonymous = 0 'No autentificar
Const cdoBasic = 1 ' Autentificar básico (texto plano)
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = fasunto
objMessage.From = fnombreremitente &" <"& femailremitente &">"
objMessage.To = femailpara
objMessage.Bcc = fbcc
objMessage.TextBody = fmensaje
IF fadjunto <> "" THEN
objMessage.AddAttachment fadjunto
END IF

'==Aquí se configura el servidor SMTP.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USUARIO"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'TIMEOUT en segundos, el tiempo máximo que tratará CDO para establecer una conección con el SMTP
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==Termina configuración SMTP==

objMessage.Send
EnviarCorreo = femailpara&","
End Function
%>