[Resolvido] CDOSYS

[Holyspear 0]

Bem galera, depois de uma busca cansativa no fórum decidi postar a mensagem; quero deixar claro que encontrei alguns erros parecidos nos Posts como o meu, mas nada que solucionasse o problema.

 

Fiz um formulário simples que envia um e-mail de informações ao final do cadastro, mas o e-mail não é enviado e eu não descobri no momento, até mesmo porque ele não gera erros mas abre a página final que contém o código normalmente, simplesmente não envia o E-mail. Se puderem analisar o script juntamente comigo eu ficaria agradecido.

 

Dim objCDOSYSMail
Dim objCDOSYSCon

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

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

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

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

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

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

objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = ""

objCDOSYSMail.To = ""

objCDOSYSMail.Subject = "Teste do CDOSYS"

objCDOSYSMail.TextBody = "Testando o componente CDOSYS"

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Observações:

- A linha ObjCDOSYSMail.To foi alterada para meu e-mail visando facilitar os testes, na verdade ela é composta da seguinte forma: ObjCDOSYSMail.To = session ("Email") onde o código pegará automaticamente o e-mail cadastrado pelo usuário no início do Formulário

 

- Os dados de "SMTP" e "Porta" preferi oculta-los, mas estão configurados de acordo com os dados do servidor.

 

Desde já agradeço galera! Abraços. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[hargon 64]

Você não consegue enviar e-mail do Gmail sem autenticar, o mesmo acontecerá com outros e-mails que exigem autenticação.

 

Por isso faça testes com os e-mails do seu próprio site e veja se funcionará corretamente.

[Vagner Mello - RJ 0]

Meu amigo tente esse código aqui:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'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") = "mail-fwd"

'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 = request.form("email:")

'e-mail do destinatário
objCDOSYSMail.To = "SEUEMAIL@SEUEMAIL.com.br"

'assunto da mensagem
objCDOSYSMail.Subject = "ASSUNTO DO EMAIL"

'conteúdo da mensagem
objCDOSYSMail.TextBody = request.form("body")

'Cria a Mensagem a Enviar
Msgs = "Nome: " & request.form("nome:") & vbCrLf
Msgs = Msgs & "E-mail: " & request.form("email:") & vbCrLf
Msgs = Msgs & "Pedido de Oração: " & request.form("pedido:")


'conteúdo da mensagem
objCDOSYSMail.TextBody = Msgs


'objCDOSYSMail.fields.update

'envia o e-mail
objCDOSYSMail.Send

'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect "http://www.SUAPÁGINADERESPOSTA.com.br"
%>

 

Cara qualquer coisa tô aí...

 

vlw

[Holyspear 0]

Puxa Vida Hargon... tah meio difícil mas estamos resolvendo. Valeu a dica!

 

O problema é que realmente com um e-mail não validado nos servidores não estava funcionando. Eu criei um e-mail no domínio que a gente tem e funcionou tranquilo. Alguns detalhes ainda faltam ajustes, mas estou conversando com o pessoal da hospedagem pra ver o que fazemos, eles fizeram algumas alterações no Objeto por causa de SPAMS por isso estamos acertando outros ajustes. Mas o problema maior foi resolvido.

 

Obrigado galera! Até breve e muito obrigado mesmo!

[hargon 64]

Bacana. Qualquer coisa posta aí. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif