Envio de email com o CDOSYS

[kessloshy 0]

Olá a todos, sou novato aqui no imasters.

Bom, vamos lá.

 

Uso o Windows XP sp2.

 

Estou com um problema na hora de enviar o email ao destinatário, retorna a mensagem de "email enviado com sucesso!", ou seja não acontece o erro no código, também já testei se todos os valores estão passando para as variáveis e está tudo ok!

 

Os email vão direto para a pasta "Queue" de correio de entrega e inseridas na fila.

 

No IIS, em Servidor Virtual SMTP padrão, tirei a restrição de retransmissão do pc q estou usando, que antes somente quem estivesse na lista poderia ter o acesso, então deixei que todos os pcs poderia ter acesso exceto os que estivessem na lista.

 

Tenho que fazer ainda alguma outra configuração no IIS??

 

Abaixo o código de envio do email:

 

ASP

Function enviarEmail(emailFROM,  emailTO,  tipoEmail, assuntoEmail, mensagem, importancia)

 

On Error Resume Next

'cria o objeto para o envio de e-mail

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

 

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

 

objCDOSYSCon.Fields.update

 

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

 

'e-mail do remetente

objCDOSYSMail.From = emailFROM

 

'e-mail do destinatário

objCDOSYSMail.To = emailTO

 

'assunto da mensagem

objCDOSYSMail.Subject = assuntoEmail

 

'conteúdo da mensagem

objCDOSYSMail.HtmlBody = mensagem

 

 

'envia o e-mail

objCDOSYSMail.Send

        If Err.Number = 0 Then

            enviarEmail = "Email enviado com sucesso!"

        Else

            enviarEmail = "Erro ao enviar email."

        End If

 

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

 

If Err.Number <> 0 Then

        EnviarEmail = EnviarEmail & "<br>Erro:" & Err.Description

End If

 

 

Obrigado a todoss! ^_^

[jrcardozo 4]

retire o on error resume next para verificar o que está acontecendo

[kessloshy 0]

Valew Jonathandf, tirei o "On Error Resume Next" do código, mas quando clico para enviar o email, só passa para um página em branco e não aparece nada... não aparece nenhuma mensagem de erro... mas os email's estao indo sempre para a pasta queue e não são enviados.....o que pode ser???? o que está faltando???? o que falta configurar???