Ir para conteúdo

POWERED BY:

Arquivado

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

CaBo GeL

Enviar email bem simples!

Recommended Posts

Galera você vao me matar!!!! hehehe... mas tentei testar esse envia-email bem simples.... mas ta me retornando o erro na linha : Set myCDONTSMail = CreateObject("CDONTS.NewMail") o q pode ser?valeww<%If Request.Form("Botao") = "Envia" ThenEndereco_Origem = "margareti@bol.com.br"Endereco_Destino = "cristiane@ig.com.br"Assunto_Email = "Assunto"Corpo_Email = Request.Form("Nome") Set myCDONTSMail = CreateObject("CDONTS.NewMail")myCDONTSMail.Body = HTMLmyCDONTSMail.BodyFormat = 0myCDONTSMail.MailFormat = 0myCDONTSMail.Send Endereco_Origem , Endereco_Destino , Assunto_Email , Corpo_Email Response.Write("E-mail enviado!") Set myCDONTSMail = NothingEnd If%><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Modelo</title></head><body><form name="form1" method="post"><input name="Nome" type="text"><input name="Botao" type="submit" id="Botao" value="Envia"></form></body></html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

É o q a Loma disse...Verifica se o servidor aceita o componente (CDONTS).Se estiver rodando local, baixa a DLL CDONTS.dll e registre-a.Abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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