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 _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
 'Name or IP of Remote SMTP Server
 objMessage.Configuration.Fields.Item _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
 
 'Type of authentication, NONE, Basic (Base64 encoded), NTLM
 objMessage.Configuration.Fields.Item _
 ("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic
 
 'Your UserID on the SMTP server
 objMessage.Configuration.Fields.Item _
 ("https://schemas.microsoft.com/cdo/configuration/sendusername") = "USUARIO"
 
 'Your password on the SMTP server
 objMessage.Configuration.Fields.Item _
 ("https://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
 
 'Server port (typically 25)
 objMessage.Configuration.Fields.Item _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
 'Use SSL for the connection (False or True)
 objMessage.Configuration.Fields.Item _
 ("https://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 _
 ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
 objMessage.Configuration.Fields.Update
 
 '==Termina configuración SMTP==
 
 objMessage.Send

 EnviarCorreo = femailpara&","

End Function
%>