Formulário Cdosys

[Marina_DC 0]

Boa tarde, estou migrando um site para um novo servidor que utiliza o componete cdosys para envio de emails, peguei alguns modelos prontos pela net incluindo o disponibilizado pelo novo servidor mas todos dão o mesmo erro

CDO.Message.1 error '8004020d'

 

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

 

/enviar.asp, line 45

O código do arquivo enviar.asp é o seguinte:

<%
'Criando uma variavel auxiliar
sch = "http://schemas.microsoft.com/cdo/configuration/"

' criando o objeto de configuração do CDO
Set cdoConfig = Server.CreateObject("CDO.Configuration")

' definindo as configurações
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.site.com.br"
cdoConfig.Fields.Item(sch & "sendusername") = "email@site.com.br"
cdoConfig.Fields.Item(sch & "sendpassword") = "xxxxxx"
cdoConfig.fields.update

' criando o objeto de msg do CDO
Set cdoMessage = Server.CreateObject("CDO.Message")

'Definindo variáveis

assunto = Request.form("txtAssunto")
destinatario = "email@site.com.br"
remetente = Request.form("txtEmpresa")
email = Request.form("txtEmail")
remetentecompleto = remetente & email

' associando as configurações ao obj Mensagem
Set cdoMessage.Configuration = cdoConfig

' definido variaveis da msg
cdoMessage.From = remetentecompleto
cdoMessage.To = destinatario
cdoMessage.Subject = assunto
strBody = "Dados <br> <br>" & _
"<b>Empresa:</b>"& Request("txtEmpresa")& "<br>" & _
"<b>Telefone:</b>"& Request("txtFone")& "<br>" & _
"<b>Nome:</b>"& Request("txtNome")& "<br>" & _
"<b>E-Mail:</b>"& Request("txtEmail")& "<br>" & _
"<b>Assunto:</b>"& Request("txtAssunto")& "<br>" & _
"<b>Mensagem:</b>"& Request("Mensagem")

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing


Response.write "<font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Mensagem Enviada...<br>"
Response.write "<a href='contato.html'>Voltar</a></font>"
%>

Alterei o smtp, email e senha corretamente mas continua aparecendo o erro, alguém pode me informar o que está acontecendo? Obrigada.

[hargon 64]

O código de configuração do CDOSYS está errado. Está faltando várias configurações.

 

Faça uma pesquisa aqui no Fórum sobre CDOSYS que encontrará vários exemplos.

 

Qualquer dúvida poste aqui.