[Goulart]

Alguém poderia me dizer "onde" estou errando nesse código ??

O fato é que ao dar o "Enviar" o ASP não dá nenhuma mensagem de ERRO mas também não chega nenhum e-mail para o endereço especificado em "Mailer.Recipient"

(Quanto a construção do FORM, este está correto... não há erros)

CODE

<%
AlertMessage = ""
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
mensagem = "Empresa: " & Request.Form("empresa") & vbcrlf
mensagem = mensagem & "Site: " & Request.Form("site") & vbcrlf
mensagem = mensagem & "Nome: " & Request.Form("nome") & vbcrlf
mensagem = mensagem & "E-mail: " & Request.Form("email") & vbcrlf
mensagem = mensagem & "Tels: " & Request.Form("fone1") & " - "
mensagem = mensagem & Request.Form("fone2") & vbcrlf
mensagem = mensagem & "Endereo: " & Request.Form("ender") & vbcrlf
mensagem = mensagem & "Bairro: " & Request.Form("bairro") & vbcrlf
mensagem = mensagem & "Cidade: " & Request.Form("cidade") & vbcrlf
mensagem = mensagem & "Estado: " & Request.Form("estado") & vbcrlf & vbcrlf
mensagem = mensagem & "Mensagem: " & vbcrlf & Request.Form("texto")

Mailer.RemoteHost = "servidor.dominio.com.br"
Mailer.FromName = Request.Form("nome")
Mailer.FromAddress = Request.Form("email")
Mailer.Recipient = "email@dominio.com.br"
Mailer.Subject = "Fale Conosco"
Mailer.BodyText = mensagem

Mailer.SendMail

if not Mailer.SendMail then
  AlertMessage = "Houve um problema no envio" & vbcrlf &  "do seu formulário"
End If

Set Mailer = Nothing

%>

Agradeceria muito se alguém me ajudasse... Já não sei mais o que fazer...

[Juscilesio]

Alguém poderia me dizer "onde" estou errando nesse código ??

O fato é que ao dar o "Enviar" o ASP não dá nenhuma mensagem de ERRO mas também não chega nenhum e-mail para o endereço especificado em "Mailer.Recipient"

(Quanto a construção do FORM, este está correto... não há erros)

CODE

<%
AlertMessage = ""
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
mensagem = "Empresa: " & Request.Form("empresa") & vbcrlf
mensagem = mensagem & "Site: " & Request.Form("site") & vbcrlf
mensagem = mensagem & "Nome: " & Request.Form("nome") & vbcrlf
mensagem = mensagem & "E-mail: " & Request.Form("email") & vbcrlf
mensagem = mensagem & "Tels: " & Request.Form("fone1") & " - "
mensagem = mensagem & Request.Form("fone2") & vbcrlf
mensagem = mensagem & "Endereo: " & Request.Form("ender") & vbcrlf
mensagem = mensagem & "Bairro: " & Request.Form("bairro") & vbcrlf
mensagem = mensagem & "Cidade: " & Request.Form("cidade") & vbcrlf
mensagem = mensagem & "Estado: " & Request.Form("estado") & vbcrlf & vbcrlf
mensagem = mensagem & "Mensagem: " & vbcrlf & Request.Form("texto")

Mailer.RemoteHost = "servidor.dominio.com.br"
Mailer.FromName = Request.Form("nome")
Mailer.FromAddress = Request.Form("email")
Mailer.Recipient = "email@dominio.com.br"
Mailer.Subject = "Fale Conosco"
Mailer.BodyText = mensagem

Mailer.SendMail

if not Mailer.SendMail then
  AlertMessage = "Houve um problema no envio" & vbcrlf &  "do seu formulário"
End If

Set Mailer = Nothing

%>

Agradeceria muito se alguém me ajudasse...  Já não sei mais o que fazer...

Tenta mudar nessa linha!

ASP

Mailer.Recipient = "nome do recipiente","email@dominio.com.br"

Valeuz

[pcsilva]

Tenta mudar nessa linha!
ASP

Mailer.Recipient = "nome do recipiente","email@dominio.com.br"

Valeuz

Não seria

ASP

Mailer.Recipient = "email@dominio.com.br" Mailer.AddAddress "outro nome","outroemail@dominio.com.br"

http://www.tek-tips.com/faqs.cfm?fid=2962

[Juscilesio]

Aê pcsilva..grande horra em receber seu post...

mas é o seguinte!

Vamos recorrer a documentação!

ASP

Mailer.AddRecipient Request.Form("ToName"), Request.Form("ToAddress") Mailer.AddRecipient "John Smith", "jsmith@alocalhost.com"

Bem se isso não resolver...heheh ai f.....

http://www.serverobjects.com/comp/Aspmail4.htm

Valeuz e ate a proxima!