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

Inicio » ASP » Función para enviar correos con CDO en ASP
Autor: Redacción Ejemplode.com, año 2019

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
%>

Citado APA: (A. 2011,08. Ejemplo de Función para enviar correos con CDO en ASP. Revista Ejemplode.com. Obtenido 08, 2011, de https://www.ejemplode.com/19-asp/493-ejemplo_de_funcion_para_enviar_correos_con_cdo_en_asp.html)

¡Ayúdanos a ayudarte! Por favor comparte este artículo.

  
ASP
Autor: Redacción Ejemplode.com, año 2019

Búsqueda:

Comentarios:

  1. hola, me gustaria saber en que momento haces la llamada a esa funcion, ah, y si tienes conocimiento de que si CDO funciona con win 7.

    de antemano, muchas gracias.
    Por Paul Hernandez 02.14.11 a las 19:58:47

    Deja un comentario


    Acepto la política de privacidad.


Tweet