Amigos, não domino ASP e preciso de ajuda para uma amiga q teve que migrar o site para o Terra. O site é feito em flash, inclusive no link de contato, onde há um form que aciona o arquivo contactar.asp. Este recebe os campos do form e envia um e-mail para ela.
Não bastou alterar o smtp nem as demais informações da conta... Então algo no código deve ser adaptado para funcionar no Terra?
Abaixo envio o código original (sem o smtp do Terra que testei e removi a senha, claro) e em seguida o exemplo que o Terra disponibiliza para os clientes.
contactar.asp
<%
nome = request.form("nome")
email = request.form("email")
telefone = request.form("telefone")
como = request.form("como")
mensagem = request.form("mensagem")
ip= request.ServerVariables("REMOTE_ADDR")
user= request.ServerVariables("GATEWAY_INTERFACE")
http= request.ServerVariables("LOCAL_ADDR")
conection= request.ServerVariables("HTTP_CONNECTION")
host= request.ServerVariables("HTTP_HOST")
msgHTML = "<HTML><BODY><hr><font face=verdana size=2 color=#333333><b>Nome: </b>" & nome & " <br/><b>Email: </b>" & email & " <br/><b>Telefone: </b>" & telefone & "<br/><b>Como: </b>" & como & " <br/><b>Mensagem:: </b>" & mensagem & " <br/><b>IP: </b>" & ip & " <br/><b>User: </b>" & user & " <br/><b>Http: </b>" & http & "<br/><b>Conection: </b>" & conection & " <br/><b>Host: </b>" & host & "</font> </BODY></HTML>"
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net"
cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net"
cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "atendimento@luzdosol.net"
cdoMessage.To = "contato@luzdosol.net"
cdoMessage.Subject = "Formulario de Contato Sítio Luz do Sol"
cdoMessage.ReplyTo = email
cdoMessage.HTMLBody = msgHTML
if msgHTML <> "" then
cdoMessage.AutoGenerateTextBody = false
cdoMessage.TextBody = msgHTML
end if
On Error Resume Next
cdoMessage.Send
If Err <> 0 Then
Response.Write "popup.mensaje=Erro, envíe-o mais tarde. " & Err.Description
Else
Response.Write "popup.mensaje=Mensagem enviada corretamente."
End If
Set cdoMessage = Nothing
Set cdoConfig = Nothing
msgHTML = "<HTML><BODY><hr><font face=verdana size=2 color=#333333><p>Mensagem automática: Seu email foi recebido com sucesso e será respondido em breve.</p><p>Att. Sítio Luz do Sol</p></font></BODY></HTML>"
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net"
cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net"
cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "atendimento@luzdosol.net"
cdoMessage.To = email
cdoMessage.Subject = "Agradecemos sua visita"
cdoMessage.ReplyTo = "contato@luzdosol.net"
cdoMessage.HTMLBody = msgHTML
if msgHTML <> "" then
cdoMessage.AutoGenerateTextBody = false
cdoMessage.TextBody = msgHTML
end if
On Error Resume Next
cdoMessage.Send
If Err <> 0 Then
Response.Write "erro..." & Err.Description
Else
Response.Write " "
End If
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Eis o código que o Terra enviou de exemplo:
Prezado Cliente,
Segue abaixo um exemplo de AspMail:
Implementando o ASPMAIL em seu site:
<%
' Cria o componente aspmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Nome do Remetente
Mailer.FromName = "Empresa S/A"
' E-mail do Rementente
Mailer.FromAddress= "email@domínio.com"
' Servidor de envio de e-mail
Mailer.RemoteHost = "mail-fwd"
' Nome / Endereço de quem recebera o E-mail
Mailer.AddRecipient "Cliente", "email@domínio.com.br"
' Assunto do E-mail
Mailer.Subject = "ASPMAIL !!!"
' Campo da mensagem
Mailer.BodyText = "Testando o ASPMAIL"
if Mailer.SendMail then
Response.Write "E-mail enviado"
else
Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response
end if
%>
Pergunta
Anderson Clayton
Amigos, não domino ASP e preciso de ajuda para uma amiga q teve que migrar o site para o Terra. O site é feito em flash, inclusive no link de contato, onde há um form que aciona o arquivo contactar.asp. Este recebe os campos do form e envia um e-mail para ela.
Não bastou alterar o smtp nem as demais informações da conta... Então algo no código deve ser adaptado para funcionar no Terra?
Abaixo envio o código original (sem o smtp do Terra que testei e removi a senha, claro) e em seguida o exemplo que o Terra disponibiliza para os clientes.
contactar.asp
<% nome = request.form("nome") email = request.form("email") telefone = request.form("telefone") como = request.form("como") mensagem = request.form("mensagem") ip= request.ServerVariables("REMOTE_ADDR") user= request.ServerVariables("GATEWAY_INTERFACE") http= request.ServerVariables("LOCAL_ADDR") conection= request.ServerVariables("HTTP_CONNECTION") host= request.ServerVariables("HTTP_HOST") msgHTML = "<HTML><BODY><hr><font face=verdana size=2 color=#333333><b>Nome: </b>" & nome & " <br/><b>Email: </b>" & email & " <br/><b>Telefone: </b>" & telefone & "<br/><b>Como: </b>" & como & " <br/><b>Mensagem:: </b>" & mensagem & " <br/><b>IP: </b>" & ip & " <br/><b>User: </b>" & user & " <br/><b>Http: </b>" & http & "<br/><b>Conection: </b>" & conection & " <br/><b>Host: </b>" & host & "</font> </BODY></HTML>" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net" cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net" cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "atendimento@luzdosol.net" cdoMessage.To = "contato@luzdosol.net" cdoMessage.Subject = "Formulario de Contato Sítio Luz do Sol" cdoMessage.ReplyTo = email cdoMessage.HTMLBody = msgHTML if msgHTML <> "" then cdoMessage.AutoGenerateTextBody = false cdoMessage.TextBody = msgHTML end if On Error Resume Next cdoMessage.Send If Err <> 0 Then Response.Write "popup.mensaje=Erro, envíe-o mais tarde. " & Err.Description Else Response.Write "popup.mensaje=Mensagem enviada corretamente." End If Set cdoMessage = Nothing Set cdoConfig = Nothing msgHTML = "<HTML><BODY><hr><font face=verdana size=2 color=#333333><p>Mensagem automática: Seu email foi recebido com sucesso e será respondido em breve.</p><p>Att. Sítio Luz do Sol</p></font></BODY></HTML>" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net" cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net" cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "atendimento@luzdosol.net" cdoMessage.To = email cdoMessage.Subject = "Agradecemos sua visita" cdoMessage.ReplyTo = "contato@luzdosol.net" cdoMessage.HTMLBody = msgHTML if msgHTML <> "" then cdoMessage.AutoGenerateTextBody = false cdoMessage.TextBody = msgHTML end if On Error Resume Next cdoMessage.Send If Err <> 0 Then Response.Write "erro..." & Err.Description Else Response.Write " " End If Set cdoMessage = Nothing Set cdoConfig = Nothing %>Eis o código que o Terra enviou de exemplo:Prezado Cliente, Segue abaixo um exemplo de AspMail: Implementando o ASPMAIL em seu site: <% ' Cria o componente aspmail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' Nome do Remetente Mailer.FromName = "Empresa S/A" ' E-mail do Rementente Mailer.FromAddress= "email@domínio.com" ' Servidor de envio de e-mail Mailer.RemoteHost = "mail-fwd" ' Nome / Endereço de quem recebera o E-mail Mailer.AddRecipient "Cliente", "email@domínio.com.br" ' Assunto do E-mail Mailer.Subject = "ASPMAIL !!!" ' Campo da mensagem Mailer.BodyText = "Testando o ASPMAIL" if Mailer.SendMail then Response.Write "E-mail enviado" else Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response end if %>Agradeço qualquer ajuda, sugestão, idéia...
Abraços,
Anderson Clayton
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.