Ir para conteúdo

POWERED BY:

Arquivado

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

jrjoliv2003

ASP x CDonts x Servidor

Por , em ASP Clássico

Recommended Posts

jrjoliv2003    0

jrjoliv2003
Postado

Galera sou novato em ASP e eestou aprendendo muito com o forum e apostilas que adquiri. Até o momento está tudo indo bem: configuração do servidor local, programação etc. Mas chegou a hora de enviar e-mails. Pesquisei vi que não tinha cdonts.dll na pasta sytem32. Baixei, coloquei na pasta e registrei através do prompt MS-Dos.Mas fazendo algumas pesquisas verifiquei que o servidor local não serviria para enviar e-mails. Eu teria que ter um servidor ASP realmente. Até que ponto isso é verdade e sendo como poderia conseguir um servidor ASP gratuito apenas para estudo?Valeu a força!!!JR.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrjoliv2003    0

jrjoliv2003
Postado

Então o que há de errado?Olhem o código que fiz no Dreamweaver:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="post" action="contato.asp"> <p>Nome: <input type="text" name="nome"> </p> <p>Email: <input type="text" name="email"> </p> <p>Mensagem: <textarea name="mensagem"></textarea> </p> <p> <input type="submit" name="Submit" value="Enviar"> </p></form></body></html>E o código Asp:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><% dim nome dim email dim mensagem dim destino dim assunto dim objeto nome = request.form("nome") email = request.form("email") mensagem = request.form("mensagem") destino = "jrjo@click21.com.br" assunto = "Mensagem enviada com CDonts" 'Criando objetos do Servidor set objeto = Server.CreateObject("CDONTS.NewMail") objeto.From = nome & "<" & email & ">" objeto.to = destino objeto.subject = assunto objeto.body = mensagem objeto.send set objeto = nothing 'Redirecionando para Página de Confirmação response.redirect "obrigado.htm" %></body></html>Coloquei os 2 arquivos na pasta c:/inetpub/wwwrootQuem puder ajudar...JR

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrjoliv2003    0

jrjoliv2003
Postado

O e-mail não chega. Não aparece erro de página. Apenas o e-mail não chega.Eu tenho o IIS configura e o CDonts na pasta system32 e registrado pelo MS-DOS.Será que está faltando alguma coisa?Valeu a força!!JR

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

cara eu uso esse registrado a dll aqui e envia numa boa

<% 

Dim var_nome, var_data, var_mail, var_telefone, var_cidade, var_mensagem, myMail

var_nome = request.form("Nome")
var_data = request.form("Data")
var_mail = request.form("Email")
var_telefone = request.form("Telefone")
var_cidade = request.form("Cidade")
var_mensagem = request.form("Mensagem")

Set myMail = CreateObject("CDONTS.NewMail") 

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL 
HTML = HTML & "<html>" 
HTML = HTML & "<head>" 
HTML = HTML & "<meta http-equiv=""Content-Type""" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>Exemplo de envio de email HTML com Anexo</title>"
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p><font size=""2"" face=""Verdana"">"& var_nome &" enviou-lhe um contato via seu site dia "& var_data &" contendo os seguintes dados: <br>"
HTML = HTML & "Nome: "& var_nome &"<br>" 
HTML = HTML & "Email: "& var_mail &"<br>"
HTML = HTML & "Telefone: "& var_telefone &"<br>"
HTML = HTML & "Cidade: "& var_cidade &"<br>"  
HTML = HTML & "Mensagem: "& var_mensagem &"<br>" 
HTML = HTML & "</strong></font></p>" 
HTML = HTML & "</body>" 
HTML = HTML & "</html>"
 
myMail.From = var_mail ' Remetente
myMail.To = "elcecontabil@hotmail.com" ' Destinatário
myMail.Subject = "Contato via site" ' Assunto do e-mail
myMail.BodyFormat = 0 
myMail.MailFormat = 0 
myMail.Body = HTML ' Corpo da mensagem definido na variável HTML 
myMail.Send 

Set myMail = Nothing
Response.Write "Muito obrigado "& var_nome &" pelo seu contato."
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

O e-mail não chega. Não aparece erro de página. Apenas o e-mail não chega.Eu tenho o IIS configura e o CDonts na pasta system32 e registrado pelo MS-DOS.Será que está faltando alguma coisa?

Falta um servidor de email. Além do SMTP do IIS tem que ter um servidor "de verdade" que envie efetivamente as mensagens.Verifique se os emails não estão na pasta inetpub/mailroot/queue/

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrjoliv2003    0

jrjoliv2003
Postado

Tinham me dito que eu precisaria de um servidor de e-mail realmente. Mas através de pesquisas do fórum e tópicos no fórum fui informado de que apenas o servido local bastaria (c:/inetbup/wwwroot). Bom, o q tenho q fazer?Valeu a força!!!JR.

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Você precisa do Servidor SMTP, o servidor que roda em c:/inetbup/wwwroot é um servidor WEB HTTP.Verifique se você instalou o servidor SMTP do IIS quando fez a instalação do mesmo. Agora mesmo o o serviço SMTP do IIS não é capaz por si só de enviar os emails, é preciso configura um "Host Inteligente" indicando outro servidor "real" SMTP.Para efeito de teste do Cdonts, basta verificar se as mensagens vão parar na pasta inetpub/mairoot/queue/Se chegam aí o script está correto e quando publicar no seu servidor de hospedagem o script vai funcionar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rafa-martin    2

rafa-martin
Postado

realmente você não precisa de um servidor de verdade para enviar. porque eu uso o iis e manda email normalmente. Eu já tive muito esse problema de não enviar o email. E o que acontecia comigo era o antivírus. No antivírus existe uma opção de bloqueador de scripts. Desmarque essa opção, que funciona.flw

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Para usar o cdonts precisa.Use outro componente como CDOSYS, aspmail, Jmail que permita escolher o SMTP. Aí você usa um servidor em que você possa se autenticar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Vê se isso esta instalado no seu IIS.

 

Imagem Postada

 

depois coloca a DLL cdonts.dll dentro da pasta system32 e no executar execute esse commando 'regsvr32 cdonts.dll' tem que aparecer uma mensagem do tipo.

 

DllRegisterServer em cdonts.dll teve êxito.

 

Feito isso o envio de email por cdonts funciona numa boa!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrjoliv2003    0

jrjoliv2003
Postado

Tá tudo configurado como mencionado. Tenho tudo isso que foi dito.Consegui enviar e receber. Mas no recebimento a mensagem está com um erro de entrega:postmaster@micro0704.click21.com.brEsta mensagem foi escrita com um conjunto de caracteres diferente do seu. Se ela não for mostrada corretamente clique aqui para abrí-la em uma nova janela.Esta +AOk- uma notifica+AOcA4w-o de status de entrega gerada automaticamente.Falha na entrega para os destinat+AOE-rios a seguir. jrjo@click21.com.brA mensagem que enviei aparece. Mas tem esse erro.Valeu a força!!!JR.

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