Ir para conteúdo

POWERED BY:

Arquivado

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

ricardo coelho designer

Envio de E-mail

Por , em ASP Clássico

Recommended Posts

ricardo coelho designer    0

ricardo coelho designer
Postado

Bom dia!

 

Gente alguém pode me ajudar???

Bom logo abaixo está o código que estou usando para cadastrar no BD e enviar por e-mail as informações, até ai tudo bem o que acontece é o seguinte, na hora de cadastrar tudo bem... mas na hora de enviar o e-mail ele envia de vez em quando, agluém saberia me dizer porque isso acontece? E se tem alguma forma de melhorar esse código?

 

ASP
<%

option Explicit

 

sub abre_conexao

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "driver={Microsoft Access Driver (*.mdb)};dbq=e:hometech71dadostech.mdb;"

end sub

 

sub fecha_conexao

Conexao.close

Set Conexao =nothing

end sub

%>

<%

Dim Conexao, rs, strSQL, Nome, Empresa, Cargo, CodEstado, Estado, Cidade, Email, ddd, Telefone, Assunto, Newsletter, Ip, Data,Hora

 

Nome = Request.Form("Nome")

Empresa = Request.Form("Empresa")

Cargo = Request.Form("Cargo")

CodEstado = Request.form ("CodEstado")

Estado = ("Estado")

Cidade = ("Cidade")

Email = Request.Form("Email")

ddd = Request.Form("ddd")

Telefone = Request.Form("Telefone")

Assunto = Request.Form("Assunto")

if  Request.Form("Newsletter") = false then

Newsletter = 0

else

Newsletter = 1

end if

Ip = request.servervariables("REMOTE_ADDR")

Data = date

Hora = time

 

strSQL = "INSERT INTO tbl_Contato (Nome, Empresa, Cargo, CodEstado, Estado, Cidade, Email, ddd, Telefone, Assunto, Newsletter, Ip, Data,Hora )"

strSQL = strSQL & "values ('" & Nome & "','" & Empresa & "','"& Cargo &"','"& CodEstado &"','"& Estado &"','"& Cidade &"','"& Email &"','"& ddd &"','"& Telefone &"','"& Assunto &"','"& Newsletter &"','"& Ip &"','"& Data &"','"& Hora &"')"

 

 'abre a conexao

Call abre_conexao

Set rs=Conexao.Execute(strSQL)

 

'fecha a conexao

Call fecha_conexao

Set rs = Nothing

%>

<%

Dim objMail, texto

Set objMail = Server.CreateObject("CDONTS.NewMail")

 

 ' recupera o formulario

Nome = Request.Form("Nome")

Empresa = Request.Form("Empresa")

Cargo = Request.Form("Cargo")

Email = Request.Form("Email")

ddd = Request.Form("ddd")

Telefone = Request.Form("Telefone")

Assunto = Request.Form("Assunto")

if  Request.Form("Newsletter") = false then

Newsletter = "não"

else

Newsletter = "sim"

end if

Ip = request.servervariables("REMOTE_ADDR")

Data = date

Hora = time

 

'msg do mail

texto = "<html><body>"

texto = texto & "<center><b>Contato Formulário Site TECH 7</b></center><br><br>"

texto = texto & "Nome : " & Nome & "<br>"

texto = texto & "Empresa: " & Empresa & "<br>"

texto = texto & "Cargo: " & Cargo & "<br>"

texto = texto & "Email: " & Email & "<br>"

texto = texto & "Telefone:" & ddd & " | " & Telefone & "<br>"

texto = texto & "Assunto: " & Assunto & "<br>"

texto = texto & "Newsletter: " & Newsletter & "<br>"

texto = texto & "Ip: " & Ip & "<br>"

texto = texto & "Data: " &  Data & "<br>"

texto = texto & "Hora: " &  Hora & "<br>"

texto = texto & "</body></html>"

 

'enviar email

objMail.From = "" & Email & ""

objMail.To="ricardowebdesigner@hotmail.com"

objMail.Subject = "Contato Tech7"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Body = texto

objMail.Send

Set objMail = Nothing

%>

<%

response.write "<meta http-equiv='refresh' content='0; url=Sucesso.asp'/>"

%>

 

Agradeço desde já.

 

Ricardo

Compartilhar este post

Link para o post
Compartilhar em outros sites

ruinas    0

ruinas
Postado

Estranho ele está enviando só de vez enquando.. o .Send não está dentro de nenhuma condição de IF....O que pode está havendo eh o servidor não está encaminhando as mensagens ou o servidor POP3 de recebimento de algum dominio está bichado!As vezes o servidor SMTP só envia os e-mails de a conta de origem for do mesmo dominio do servidor.Mais isso eh configuração do servidor... tente entrar em contato com o seu host!Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

Ok, já foi resolvido. Valeu.

Estranho ele está enviando só de vez enquando.. o .Send não está dentro de nenhuma condição de IF....O que pode está havendo eh o servidor não está encaminhando as mensagens ou o servidor POP3 de recebimento de algum dominio está bichado!As vezes o servidor SMTP só envia os e-mails de a conta de origem for do mesmo dominio do servidor.Mais isso eh configuração do servidor... tente entrar em contato com o seu host!Abraços

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