AspEmail

[Diego_Rossa 0]

Saudações galera!!

 

Estou tentando enviar um formulário via e-mail e estou usando o AspEmail, estou trabalhando em uma máquina com XP e IIS 5.1

Quando clico em Enviar ele me leva para a página de sucesso como se o e-mail tivesse sido enviado mas o e-mail nunca chega.

Alguém pode me dar uma luz, por favor??

 

Desde já agradeço!!!

 

Abraço!!!

 

Segue o código:

 

ASP [/tr][tr]<%

dnome = "XXX"

dsetor = "XXX"

demail_setor = "XXX"

dmensagem = "Teste apenas"

demail_destino = "XXX"

 

Dim Mail

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.dominio.com.br"

Mail.From = demail_setor

Mail.FromName = dsetor

Mail.AddAddress demail_destino

Mail.Subject = "Teste"

Mail.Body = "XXX"

Mail.IsHTML = True

 

On Error Resume Next

if Mail.Send then

Response.Redirect "sucesso_mensagem.asp"

else

Response.Write "An error occurred: " & Err.Description

End If

%>

[/tr]

[ska_ska 0]

tira esse on error resume next... e veja se eh exibido alguma msg de erro....

[tr374 0]

Faltou o Mail.Send, tenta assim:

 

ASP [/tr][tr]<%

dnome = "XXX"

dsetor = "XXX"

demail_setor = "XXX"

dmensagem = "Teste apenas"

demail_destino = "XXX"

 

Dim Mail

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.dominio.com.br"

Mail.From = demail_setor

Mail.FromName = dsetor

Mail.AddAddress demail_destino

Mail.Subject = "Teste"

Mail.Body = "XXX"

Mail.IsHTML = True

 

Mail.Send

If Err <> 0 Then

Response.Write "popup.mensaje=Error, envíe-lo mais tarde." & Err.Description

End If

Set Mail = Nothing

%>

[/tr]