Postagens
Não informado
Estou com um probleminha no meu formulario de contato! Ele se localiza neste link: http://exposystems.com.br/contato.asp.
Ele parece não enviar emails para o email configurado, alguem pode me dar uma ajudinha.. estou com bastante pressa, é para a empresa que trabalho
Spoiler
--------------------------------------------ENVIA E-MAIL PARA MODERAÇÃO DO RECADO
nome = request("nome")
email = "expo2011@exposystems.com.br"
assunto = "Portal Exposystems 2011 | O(a) usuario(a) "&nome& " enviou uma mensagem"
email_remetente = request("email")
telefone = request("telefone")
assunto_remetente = request("assunto")
mensagem = request("mensagem")
news = request("news")
idioma = request("idioma")
if email_remetente = "" then
email_remetente = "Não informado."
end if
if telefone = "" then
telefone = "Não informado."
end if
if cint(idioma) = 0 then
idioma_texto = "Português"
elseif cint(idioma) = 1 then
idioma_texto = "Espanhol"
else
idioma_texto = "Inglês"
end if
if TRIM(news) = "on" then
dNow = now
dia = day(dNow)
mes = month(dNow)
ano = year(dNow)
hora = hour(dNow)
minuto = minute(dNow)
segundo = second(dNow)
if len(dia) = 1 then
dia = 0&""&dia
end if
if len(mes) = 1 then
mes = 0&""&mes
end if
if len(hora) = 1 then
hora = 0&""&hora
end if
if len(minuto) = 1 then
minuto = 0&""&minuto
end if
if len(segundo) = 1 then
segundo = 0&""&segundo
end if
dataCadastro = ano &"-"& mes &"-"& dia & " " &hora& ":" &minuto& ":" &segundo
'Verifica se já existe esse e-mail no banco de dados
sql2 = "select * from newsletter where email ='"&email_remetente&"'"
set rs2 = server.CreateObject("ADODB.RecordSet")
rs2.Open sql2, ObjDB,3,1
if rs2.EOF then
sql = "insert into newsletter (nome, email, idioma, dataCadastro) values ('"&nome&"', '"&email_remetente&"', "&idioma&", '"&dataCadastro&"')"
objdb.execute sql
end if
end if
mensagem_final = "<b>Nome do Remetente: </b>"&nome&"<br><br>"
mensagem_final = mensagem_final & "<b>E-mail:</b> "&email_remetente&"<br><br>"
mensagem_final = mensagem_final & "<b>Telefone: </b>"&telefone&"<br><br>"
mensagem_final = mensagem_final & "<b>Assunto: </b>"&assunto_remetente&"<br><br>"
mensagem_final = mensagem_final & "<b>Mensagem:</b> "&mensagem&"<br><br>"
mensagem_final = mensagem_final & "<b>Idioma:</b> "&idioma_texto&"<br><br>"
html = "<html><body style=""font-size:8pt; font-family:tahoma; font-wight:bold;"">"
html = html & "<div style=""background-color:#F7F7F7; color: #004D84; width:400px; margin:auto; border:#CCCCCC 1px solid; padding:10px 10px 10px 10px"">"
html = html & "<h3>Mensagem enviada pelo site. </h3>"
html = html & "<h5>Um(a) usuário(a) acaba de enviar uma mensagem para o portal"
html = html & " Exposystems 2011. </h5>"
html = html & "<div style=""padding-left: 96px;""""><img src=""http://www.exposyste.../img/logo.png"" alt="" style=""text-align: center;"" /></div>"
html = html & "<hr noshade=""noshade"">"
html = html & "<br><div style=""background-color:#D7E8D9; color: #2C5858; border:#CCCCCC 1px solid; padding:5px 5px 5px 5px; font-size:9pt; width:380px;"">"
html = html & "<div align=""left""><br />"
html = html & "<span style=""font-size: 9pt;"">"&mensagem_final&"</span><br />"
html = html & "<br />"
html = html & "</div>"
html = html & "</div>"
html = html & "<p>Ao responder este e-mail, ele será encaminhado para o(a) usuário(a) que enviou a mensagem através do site. </p>"
html = html & "</div></body></html>"
sch = "http://schemas.micro...configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "localhost"
.Item(sch & "smtpserverport") = 25
.Item(sch & "connectiontimeout") = 50
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "Contato pelo site <expo2011@exposystems.com.br>"
.To = email
.ReplyTo = email_remetente
' .Cc = "mkt@icaroeventos.com.br"
.Subject = assunto
.HtmlBody = html
.Send
End With
'response.write("enviado!")
'response.end
nome = request("nome")
email = "expo2011@exposystems.com.br"
assunto = "Portal Exposystems 2011 | O(a) usuario(a) "&nome& " enviou uma mensagem"
email_remetente = request("email")
telefone = request("telefone")
assunto_remetente = request("assunto")
mensagem = request("mensagem")
news = request("news")
idioma = request("idioma")
if email_remetente = "" then
email_remetente = "Não informado."
end if
if telefone = "" then
telefone = "Não informado."
end if
if cint(idioma) = 0 then
idioma_texto = "Português"
elseif cint(idioma) = 1 then
idioma_texto = "Espanhol"
else
idioma_texto = "Inglês"
end if
if TRIM(news) = "on" then
dNow = now
dia = day(dNow)
mes = month(dNow)
ano = year(dNow)
hora = hour(dNow)
minuto = minute(dNow)
segundo = second(dNow)
if len(dia) = 1 then
dia = 0&""&dia
end if
if len(mes) = 1 then
mes = 0&""&mes
end if
if len(hora) = 1 then
hora = 0&""&hora
end if
if len(minuto) = 1 then
minuto = 0&""&minuto
end if
if len(segundo) = 1 then
segundo = 0&""&segundo
end if
dataCadastro = ano &"-"& mes &"-"& dia & " " &hora& ":" &minuto& ":" &segundo
'Verifica se já existe esse e-mail no banco de dados
sql2 = "select * from newsletter where email ='"&email_remetente&"'"
set rs2 = server.CreateObject("ADODB.RecordSet")
rs2.Open sql2, ObjDB,3,1
if rs2.EOF then
sql = "insert into newsletter (nome, email, idioma, dataCadastro) values ('"&nome&"', '"&email_remetente&"', "&idioma&", '"&dataCadastro&"')"
objdb.execute sql
end if
end if
mensagem_final = "<b>Nome do Remetente: </b>"&nome&"<br><br>"
mensagem_final = mensagem_final & "<b>E-mail:</b> "&email_remetente&"<br><br>"
mensagem_final = mensagem_final & "<b>Telefone: </b>"&telefone&"<br><br>"
mensagem_final = mensagem_final & "<b>Assunto: </b>"&assunto_remetente&"<br><br>"
mensagem_final = mensagem_final & "<b>Mensagem:</b> "&mensagem&"<br><br>"
mensagem_final = mensagem_final & "<b>Idioma:</b> "&idioma_texto&"<br><br>"
html = "<html><body style=""font-size:8pt; font-family:tahoma; font-wight:bold;"">"
html = html & "<div style=""background-color:#F7F7F7; color: #004D84; width:400px; margin:auto; border:#CCCCCC 1px solid; padding:10px 10px 10px 10px"">"
html = html & "<h3>Mensagem enviada pelo site. </h3>"
html = html & "<h5>Um(a) usuário(a) acaba de enviar uma mensagem para o portal"
html = html & " Exposystems 2011. </h5>"
html = html & "<div style=""padding-left: 96px;""""><img src=""http://www.exposyste.../img/logo.png"" alt="" style=""text-align: center;"" /></div>"
html = html & "<hr noshade=""noshade"">"
html = html & "<br><div style=""background-color:#D7E8D9; color: #2C5858; border:#CCCCCC 1px solid; padding:5px 5px 5px 5px; font-size:9pt; width:380px;"">"
html = html & "<div align=""left""><br />"
html = html & "<span style=""font-size: 9pt;"">"&mensagem_final&"</span><br />"
html = html & "<br />"
html = html & "</div>"
html = html & "</div>"
html = html & "<p>Ao responder este e-mail, ele será encaminhado para o(a) usuário(a) que enviou a mensagem através do site. </p>"
html = html & "</div></body></html>"
sch = "http://schemas.micro...configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "localhost"
.Item(sch & "smtpserverport") = 25
.Item(sch & "connectiontimeout") = 50
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "Contato pelo site <expo2011@exposystems.com.br>"
.To = email
.ReplyTo = email_remetente
' .Cc = "mkt@icaroeventos.com.br"
.Subject = assunto
.HtmlBody = html
.Send
End With
'response.write("enviado!")
'response.end
Valeu galera, aguardo respostas!
