Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fábio Travassos

[Resolvido] Formulário CDOSYS dando erro.

Por , em ASP Clássico

Recommended Posts

Fábio Travassos    0

Fábio Travassos
Postado

Pessoal,

 

Estou com um formulário CDOSYS dando erro assim que clico no botão ENVIAR:

 

O erro é o seguinte:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/enviar.asp, line 153

 

ABAIXO SEGUE O CÓDIGO:

 

<%

'INFORMAÇÕES DOS CAMPOS DO FORMULÁRIO

strAssunto = Request.Form("assunto")

strNome = Request.Form("nome")

strEmpresa = Request.Form("empresa")

strEmail = Request.Form("email")

strDDD = Request.Form("ddd")

strTelefone = Request.Form("telefone")

strCidade = Request.Form("cidade")

strEstado = Request.Form("estado")

strMensagem1 = Request.Form("mensagem")

strNewsletter = Request.Form("newsletter")

 

 

sch = "http://schemas.microsoft.com/cdo/configuration/"

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

 

 

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 3

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.efcweb.com.br"

cdoConfig.Fields.Item(sch & "smtpserverport") = 25

cdoConfig.Fields.Item(sch & "sendusername") = "administrador@efcweb.com.br"

cdoConfig.Fields.Item(sch & "sendpassword") = "123456"

cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30

 

 

(linha de erro 153)

 

objCDOSYSCon.Fields.update

 

 

 

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

Set cdoMessage.Configuration = cdoConfig

 

'EMAIL DO REMETENTE

cdoMessage.From = "strEmail"

 

'EMAIL(S) DO(S) DESTINATÁRIO(S)

cdoMessage.To = "fabio.travassos@efcweb.com.br, fabio@travassos.net"

 

'ASSUNTO DA MENSAGEM

cdoMessage.Subject = "Mensagem site EFC"

 

'CONTEÚDO DA MENSAGEM

'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

 

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

 

' bloco de código que será enviado no corpo do e-mail...

 

strMensagem = strMensagem & "<table width='400' border='0' cellpadding='8' cellspacing='1' bgcolor='#CCCCCC'>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td bgcolor='#FFFFFF'><table width='400' border='0' cellspacing='0' cellpadding='2'>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='35' bgcolor='EFEFEF'><b><font size='4' face='Verdana, Arial, Helvetica, sans-serif'> Mensagem enviada pelo site</font></b></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Assunto</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strAssunto & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Nome</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strNome & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Empresa</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strEmpresa & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>E-mail</font></b></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strEmail & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>DDD</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strDDD & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Telefone</font></b></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strTelefone & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Cidade</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strCidade & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Estado</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strEstado & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Mensagem</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strMensagem & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><b>Newsletter</b></font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "<tr>"

strMensagem = strMensagem & "<td height='20'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>" & strNewsletter & "</font></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "</table></td>"

strMensagem = strMensagem & "</tr>"

strMensagem = strMensagem & "</table>"

 

'fim do bloco

 

'veja que o strMensagem foi declarado como corpo do e-mail

strBody = strBody & "."

cdoMessage.HTMLBody = strBody

 

 

'objCDOSYSMail.fields.update

'envia o e-mail

cdoMessage.Send

 

'destrói os objetos

Set cdoMessage = Nothing

Set cdoConfig = Nothing

 

' mostra um alerta informando que a mensagem foi enviada com sucesso

Response.Write("<script language=""JavaScript"">")

Response.Write("alert('Sua mensagem foi enviada com sucesso');")

Response.Write("location.href = ""contato.asp"" ")

Response.Write("</script>")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

aki ñ tem aspas

 

'EMAIL DO REMETENTE
cdoMessage.From = "strEmail"

correto

 

'EMAIL DO REMETENTE
cdoMessage.From = strEmail

e tira a linha do erro ... e testa

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito