Ir para conteúdo

Arquivado

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

lezão

ENVIO DE EMAILS VIA (Cdosys)

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola boa noite!

Galera alguem pode me ajudar .

estou com problemas no envio de email via pagina html.

 

codigo

Quero usar assim, mas naun esta indo esta dando um erro!

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Request.form("nome") & Request.form("email")
objCDOSYSMail.To = "rogetec@rogetec.com.br"
objCDOSYSMail.Subject = "Orçamento"
objCDOSYSMail.HtmlBody = "<font size="" face=arial color=black><b>" & Request.Form("nome") & "</b>,<br><br><B>" & Request.Form("nome") & "</b> visitou o site <a href=http://www.rogetec.com.br target=_blank>Rogetec - Montagem e Manutenção Industrial </a> <BR><font face=arial color=black><b>Dados para contato</b>" &"<br>"& Request.Form("nome") & "<br>" & Request.Form("email") & "<br>" & Request.Form("empresa")& "<br>" & Request.Form("DDD") & Request.Form("tel") & "<br>" & Request.Form("mensagem")&"</font>" 
objCDOSYSMail.Send

 

Erro 

error '8004020e'
/public_html/rogetec/asp_mail/aspmail-faleconosco.asp, line 17

linha do erro!

objCDOSYSMail.Send

mas qnd eu coloco o codigo assim ele roda !

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "rogetec@rogetec.com.br"
objCDOSYSMail.To = "rogetec@rogetec.com.br"

Codigo Completo

<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 
objCDOSYSCon.Fields.update 
 
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Request.form("nome") & Request.form("email")
objCDOSYSMail.To = "rogetec@rogetec.com.br"
objCDOSYSMail.Subject = "Orçamento"
objCDOSYSMail.HtmlBody = "<font size="" face=arial color=black><b>" & Request.Form("nome") & "</b>,<br><br><B>" & Request.Form("nome") & "</b> visitou o site <a href=http://www.rogetec.com.br target=_blank>Rogetec - Montagem e Manutenção Industrial </a> <BR><font face=arial color=black><b>Dados para contato</b>" &"<br>"& Request.Form("nome") & "<br>" & Request.Form("email") & "<br>" & Request.Form("empresa")& "<br>" & Request.Form("DDD") & Request.Form("tel") & "<br>" & Request.Form("mensagem")&"</font>" 
objCDOSYSMail.Send
 
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.redirect "cadastro_ok.asp"
%>
 
<script language="JavaScript" type="text/javascript">
  alert("Seus dados foram enviados! Obrigado!");
  location.href = "Contato.asp";
                      </script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

Tenta isto

 

objCDOSYSMail.HtmlBody = "<html><head></head><body><font size="" face=arial color=black><b>" & Request.Form("nome") & "</b>,<br><br><B>" & Request.Form("nome") & "</b> visitou o site <a href=http://www.rogetec.com.br target=_blank>Rogetec - Montagem e Manutenção Industrial </a> <BR><font face=arial color=black><b>Dados para contato</b>" &"<br>"& Request.Form("nome") & "<br>" & Request.Form("email") & "<br>" & Request.Form("empresa")& "<br>" & Request.Form("DDD") & Request.Form("tel") & "<br>" & Request.Form("mensagem")&"</font></body></html>

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