Envio de Email

[thicomp]

Olá pessoal, bom dia!

Estou tentando fazer o envio de email do meu servidor...

Estou utilizando envio sem componentes, utilizando código para CDONTS as mensagens vão pra pasta Queue e depois pra Badmail...

Agora verificando no meu IIS, em Programs>>Administrative Tools>>Internet Information Services, em Default Web Site, vi que tem um ícone do AspEmail...

Alguém saberia me dizer se é por isso que não está rodando meu código com CDONTS??

Alguém teria o código do AspEmail pra me passar??

Desde já, agradeço pela atenção

[Ted k']

Aqui amigo.

http://www.componentesasp.com.br/exemplos/...rverobjects.asp

[thicomp]

Pessoal, estou usando esse código e está me retornando esse erro:

<%
Const strSMTP = "smtp.localhost.com.br"
Const strComponenteEmail = "ASPEMAIL"
Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem)
    'On Error Resume Next
    If strComponenteEmail = "ASPEMAIL" Then
        Dim objASPEMail
        Set objASPEMail = Server.CreateObject ("Persits.MailSender")
            
        objASPEMail.FromName        = p_strNomeFROM
        objASPEMail.From            = p_strEmailFROM
        objASPEMail.Host            = ServidorSMTP
        objASPEMail.AddAddress        p_strEmailTO, p_strNomeTO
        If Not p_strEmailCC = "" Then
            objASPEMail.AddCc           p_strEmailCC, ""
        End If
        If Not p_strEmailBCC = "" Then
            objASPEMail.AddBcc            p_strEmailBCC, ""
        End If
        objASPEMail.Subject         = p_strAssuntoEmail
        objASPEMail.Body            = p_strMensagem
                
        'Verificando o tipo de mensagem (default é TEXTO)
        If p_strTipoEmail = "HTML" Then
            objASPEMail.IsHTML = True
        End If

        'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
        [color="#FF0000"]If objASPEMail.Send Then[/color]
            EnviaEmail = "OK"
        Else
            EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
        End If

        'Destruindo Objetos
        Set objASPEMail = Nothing

        If Err.Number <> 0 Then
            EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
        End If
        Exit Function
    End If 'Fim da Utilização do ASPEMAIL
End Function
Dim strResultado
strResultado = EnviaEmail("NOME REMETENTE", "email@remetente.com.br", "NOME DESTINARARIO", "email@destinatario.com.br", "", "", "HTML", "Teste de Email", "<b>Alo <i>VOCÊ</i></b> isso é um teste de envio de email com <u>HTML</u>.")
Response.Write strComponenteEmail & "<br>" & strResultado
%>

Erro

Persits.MailSender.4 error '800a000a'

Host not specified.

/Viagens/mail15.asp, line 29

[Ted k']

Parece que você não esta alimentando essa variavel

objASPEMail.Host = ServidorSMTP

coloca assim:

objASPEMail.Host = "smtp.locaweb.com.br"

e teste novamente