Tenho um send mail, formulario para enviar e-mail, para configurar e ele está dando o seguinte erro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/enviaremail.asp, line 22
Alguém sabe me informar se esse sendmail abaixo está configurado correto? Pois coloquei a senha com " ou ' e sempre da erro...
veja se está certo esse formulario de enviar e-mail:
<%
nome = Request.QueryString("nome")
email = Request.QueryString("email")
assunto = Request.QueryString("assunto")
mensagem = Request.QueryString("mensagem")
subject = "Contato"
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nova pagina 1</title>
<%
Dim cMail
Set cMail = Server.CreateObject("Persits.MailSender")
cMail.IsHTML = True
' dados para autenticacao no servidor SMTP
cMail.Host = "mail.dominio.com.br"
cMail.Username = "meuemail@meuemail.com.br"
linha22: cMai.Password = "cepac10"
' email de origem
cMail.From = "&email&"
cMail.FromName = "&nome&"
' email de destino
cMail.AddAddress "meuemail@meuemail.com.br"
' assunto da mensagem
cMail.Subject = "&assunto&"
' conteudo da mensagem mensagem
cMail.Body = "&mensagem&"
On Error Resume Next
' enviar email
cMail.Send
' codigo opcional para exibir mensagem de sucesso ou não ao enviar o email
If Err <> 0 Then
Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>"
End If
If Err = 0 Then
Response.Write("<H2>Obrigado, seu e-mail foi enviado com sucesso!</H2>")
End If
Set Mail = Nothing
%>
</head>
<body>
</body>
</html>
Pergunta
marvi
Ola pessoal,
Tenho um send mail, formulario para enviar e-mail, para configurar e ele está dando o seguinte erro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/enviaremail.asp, line 22
Alguém sabe me informar se esse sendmail abaixo está configurado correto? Pois coloquei a senha com " ou ' e sempre da erro...
veja se está certo esse formulario de enviar e-mail:
<% nome = Request.QueryString("nome") email = Request.QueryString("email") assunto = Request.QueryString("assunto") mensagem = Request.QueryString("mensagem") subject = "Contato" %> <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Nova pagina 1</title> <% Dim cMail Set cMail = Server.CreateObject("Persits.MailSender") cMail.IsHTML = True ' dados para autenticacao no servidor SMTP cMail.Host = "mail.dominio.com.br" cMail.Username = "meuemail@meuemail.com.br" linha22: cMai.Password = "cepac10" ' email de origem cMail.From = "&email&" cMail.FromName = "&nome&" ' email de destino cMail.AddAddress "meuemail@meuemail.com.br" ' assunto da mensagem cMail.Subject = "&assunto&" ' conteudo da mensagem mensagem cMail.Body = "&mensagem&" On Error Resume Next ' enviar email cMail.Send ' codigo opcional para exibir mensagem de sucesso ou não ao enviar o email If Err <> 0 Then Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" End If If Err = 0 Then Response.Write("<H2>Obrigado, seu e-mail foi enviado com sucesso!</H2>") End If Set Mail = Nothing %> </head> <body> </body> </html>Obrigado
Marcelo
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.