Erro do CDOSY

[rd111072 1]

Alguém sabe como resolvo este erro:

 

Error Type:

CDO.Message.1 (0x8004020D)

At least one of the From or Sender fields is required, and neither was found.

/cdo2.asp, line 145

 

Já procurei na Internet e não achei nada... http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif

[fabiosc80 0]

Oque tem na linha 145?

[rd111072 1]

Oque tem na linha 145?

objCDOSYSMail.Send

[fabiosc80 0]

Pode postar o resto do código de envio de e-mail ?

 

Pois como deu erro na linha que envia pode ser o smtp.

[rd111072 1]

<%

 

 

'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.assist.org.br"

 

 

 

 

 

'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("mail")

 

 

 

 

 

'e-mail do destinatário

 

 

objCDOSYSMail.To = "cpd_sistemas@assist.org.br"

 

 

 

 

 

'assunto da mensagem

 

 

objCDOSYSMail.Subject = request.Form("nome")

 

 

 

 

 

'conteúdo da mensagem

 

 

strBody = "Dados" & vbCrLf & vbCrLf & _

 

 

"Nome: "& Request("nome") & vbCrLf & _

 

 

"E-Mail: "& Request("mail") & vbCrLf & _

 

 

"Telefone: "& Request("tele") & vbCrLf & _

 

 

"Mensagem: "& Request("orgao")

 

 

strBody = strBody & "."

 

 

 

 

 

objCDOSYSMail.TextBody = strBody

 

 

'para envio da mensagem no formato html altere o TextBody para HtmlBody

 

 

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

 

 

 

 

 

'objCDOSYSMail.fields.update

 

 

 

 

 

'envia o e-mail

 

 

objCDOSYSMail.Send

 

 

 

 

 

'destrói os objetos

 

 

Set objCDOSYSMail = Nothing

 

 

Set objCDOSYSCon = Nothing

 

 

 

 

 

Response.write "status=MENSAGEM ENVIADA COM SUCESSO.<br> OBRIGADO! EM BREVE, ENTRAREMOS EM CONTATO"

 

 

 

 

 

%>

[fabiosc80 0]

ops seus requests estao realmente trazendo valores?

[rd111072 1]

Olha... Os input estão dentro do form e corresponde aos nomeados nos request...

[fabiosc80 0]

de um response.write nos requests e ve se ta trazendo os valores.

 

outra coisa, o componente esta realmente instalado ou com permissao no servidor?

[rd111072 1]

fabio,

 

acho que o problema era mesmo esse (não estava trazendo valores).

 

De qualquer forma usei um outro código e agora está enviando, falta só acertar aformatação do body do e-mail.

 

muito obrigado e

 

SUCESSO!

[fabiosc80 0]

Precisando de algo é só pedir.