Erro no envio de email usando CDOSYS...

[Igor FV 0]

Boa tarde amigos, Estou tentando enviar um email atraves de formulário no site, mas ta dando erro na linha 47 do meu codigo de envio de email.Alguem pode me ajudar?envia_email.asp

<%'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, onde na opticalhost o formato é mail.seudominio.comobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.rodrigoerenata.com" '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 = "igor.fv@gmail.com" 'assunto da mensagem objCDOSYSMail.Subject = "Contato pelo Site" 'conteúdo da mensagem strBody = "Dados" & vbCrLf & vbCrLf & _ "Nome: "& Request("nome") & vbCrLf & _ "E-Mail: "& Request("email") & vbCrLf & _ "Telefone: "& Request("telefone") & vbCrLf & _ "Assunto: "& Request("assunto") & vbCrLf & _ "Mensagem: "& Request("mensagem") strBody = strBody & "." objCDOSYSMail.HtmlBody = strBody 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = strBody 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write ("Email Enviado com Sucesso!") %>

Vlw...

[jrcardozo 4]

primeiro....qual é a linha 47?segundo...qual a mensagem de erro?

[Igor FV 0]

Claro amigo, desculpe.A linha do erro é:

objCDOSYSMail.Send

E o erro é:

error '8004020f' /envia_email.asp, line 47

Vlw..

[jrcardozo 4]

provavelmente precise autenticar ou o servidor não dá suporte a cdosys

para autenticar segue codigo para adicionar

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "nome de usuario" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha do usuario"

Não esqueça de alterar os valores para os dados do usuario do servidor de email

 

Abaixo um tutoria do nosso subforum

http://forum.imasters.com.br/index.php?showtopic=170916