Ir para conteúdo

POWERED BY:

Arquivado

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

marvi

SENDMAIL, formulario de e-mail

Por , em ASP Clássico

Recommended Posts

marvi    0

marvi
Postado

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 nao 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

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