Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.Carregando comentários...