CDONTS configuracion

[u_goldman]

Este es un objeto el cual uso para mis desarrollos, fijate si te sirve:

Código:

<%
Class SimpleMailSender
    Private s_titulo
    Private s_de
    Private s_para
    Private s_cc
    Private s_bcc
    Private s_body
    Private s_reply
    Private isHtml
        
    
    Public Property Get Titulo()
        Titulo=s_titulo
    End Property
    Public Property Let Titulo(p_data)
        s_titulo=p_data
    End Property
    
    Public Property Get De()
        De=s_de
    End Property
    Public Property Let De(p_data)
        s_de=p_data
    End Property
    
    Public Property Get Para()
        Para=s_para
    End Property
    Public Property Let Para(p_data)
        s_para=p_data
    End Property
    
    Public Property Get Cc()
        Cc=s_cc
    End Property
    Public Property Let Cc(p_data)
        s_cc=p_data
    End Property
    
    Public Property Get Bcc()
        Bcc=s_bcc
    End Property
    Public Property Let Bcc(p_data)
        s_bcc=p_data
    End Property
    
    Public Property Get Body()
        Body=s_body
    End Property
    Public Property Let Body(p_data)
        s_body=p_data
    End Property
    
    Public Property Get Html()
        Html=isHtml
    End Property
    Public Property Let Html(p_data)
        isHtml=p_data
    End Property
    
        Public Property Get gReply()
        gReply=s_reply
    End Property
    Public Property Let gReply(p_data)
        s_reply=p_data
    End Property
    
    
    
    
    
    Public Function Enviar()
        Dim sch
        Dim objEmail
        Dim EdoError
        Set objEmail = CreateObject("CDO.Message")
        
        sch = "http://schemas.microsoft.com/cdo/configuration/" 
        
        With objEmail.Configuration.Fields

            .Item(sch & "sendusing")  = 2
            .Item(sch & "smtpserver") = "tuSMTP"
            .Item(sch & "sendusername") = "unusuariopermitido"
            .Item(sch & "sendpassword") = "password"
            .Item(sch & "smtpauthenticate") = 1
            .Item(sch & "smtpserverport") = "25"
            .Update
        End With

        Set objMail = Server.CreateObject("CDO.Message") 

        With objEmail
            .Subject = s_titulo
            .From = s_de
            .To = s_para
            .Cc = s_cc
            .Bcc = s_bcc            
            .ReplyTo= s_reply
             
            select case isHtml
                    case True 
                        .HTMLBody  = s_body                     
                    case False 
                        .TextBody  = s_body
                    case else   
                        .TextBody  = s_body
            end select
            
            on error resume next
                .Send
            if err<>0 then
                EdoError=True
                Response.Write err.description
            else
                EdoError=False
            end if
        End With
        
        Set objEmail = Nothing
        Enviar=EdoError
        'Enviar=err.Description
    End Function
    
End Class
%>

Código:

'implementacion.asp
<!--#include file = "simplemailsender.asp"-->
strDetails = "Hola Mundo"

Set mail=New SimpleMailSender
mail.De="[email protected]"
mail.Para="[email protected]"
'mail.Cc= "opcional"
'mail.Bcc="opcional"
mail.Titulo="Titulo"
mail.Html=false 'true si enviaremos HTML
mail.Body=strDetails

if not mail.Enviar then
  'aqui se envia exitosamente, si ya se...pero nunca me dio la gana arreglar la logica :borracho:
else
  'aqui hubo un error
end if

Saludos