Postagens
Não informado
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") = 2cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net"cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net"cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)"cdoConfig.fields.updateSet cdoMessage = Server.CreateObject("CDO.Message")Set cdoMessage.Configuration = cdoConfigcdoMessage.From = "atendimento@luzdosol.net"cdoMessage.To = "contato@luzdosol.net"cdoMessage.Subject = "Formulario de Contato Sítio Luz do Sol"cdoMessage.ReplyTo = emailcdoMessage.HTMLBody = msgHTMLif msgHTML <> "" thencdoMessage.AutoGenerateTextBody = falsecdoMessage.TextBody = msgHTMLend ifOn Error Resume NextcdoMessage.SendIf Err <> 0 ThenResponse.Write "popup.mensaje=Erro, envíe-o mais tarde. " & Err.Description ElseResponse.Write "popup.mensaje=Mensagem enviada corretamente."End IfSet cdoMessage = NothingSet cdoConfig = NothingmsgHTML = "<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") = 2cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net"cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net"cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)"cdoConfig.fields.updateSet cdoMessage = Server.CreateObject("CDO.Message")Set cdoMessage.Configuration = cdoConfigcdoMessage.From = "atendimento@luzdosol.net"cdoMessage.To = emailcdoMessage.Subject = "Agradecemos sua visita"cdoMessage.ReplyTo = "contato@luzdosol.net"cdoMessage.HTMLBody = msgHTMLif msgHTML <> "" thencdoMessage.AutoGenerateTextBody = falsecdoMessage.TextBody = msgHTMLend ifOn Error Resume NextcdoMessage.SendIf Err <> 0 ThenResponse.Write "erro..." & Err.Description ElseResponse.Write " "End IfSet cdoMessage = NothingSet 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 aspmailSet Mailer = Server.CreateObject("SMTPsvg.Mailer")' Nome do RemetenteMailer.FromName = "Empresa S/A"' E-mail do RemententeMailer.FromAddress= "email@domínio.com"' Servidor de envio de e-mailMailer.RemoteHost = "mail-fwd"' Nome / Endereço de quem recebera o E-mailMailer.AddRecipient "Cliente", "email@domínio.com.br"' Assunto do E-mailMailer.Subject = "ASPMAIL !!!"' Campo da mensagemMailer.BodyText = "Testando o ASPMAIL"if Mailer.SendMail thenResponse.Write "E-mail enviado"elseResponse.Write "Erro no envio do e-mail. Erro: " & Mailer.Responseend if%>Agradeço qualquer ajuda, sugestão, idéia...
Abraços,
Anderson Clayton
