• 0
Sign in to follow this  
Ricardo Felix

Formulario Flash + ASP

Question

Olá pessoal,

Quero agradecer antes de tudo pelo trabalho feito neste site, os scripts prontos e todo o material de ajuda e suporte de vocês.

Um trabalho realmente de 1º.

Pessoal a minha dúvida é sobre o Formulario em Flash e Script ASP.

Eu baixei o arquivo do formulario, mas como entendo muito pouco de ASP não sei onde estou errando nas alterações que tenho que fazer.

No arquivo de envio não sei quais os campos que devo alterar, se puderem me ajudar fico muito grato.

<%
Dim subject
Dim msgTxt
Dim Mailer
recipient_nome = Request("recipient_nome")
recipient_email = Request("recipient_email")
from_email = Request("email")
from_name = Request("nome")

subject = "Fale Conosco"
msgTxt = "Olá" & " " & recipient_nome & " " & "você acaba de receber um e-mail enviado do Macromedia.Imasters !!"  & vbCrLf
msgTxt = msgTxt & "Com os seguintes dados:" & vbCrLf & vbCrLf
msgTxt = msgTxt & "Empresa: " & Request.Form("empresa") & vbCrLf 
msgTxt = msgTxt & "E-mail: " & Request.Form("email") & vbCrLf 
msgTxt = msgTxt & "Endereço: " & Request.Form ("endereco") & vbCrLf 
msgTxt = msgTxt & "Bairro: " & Request.Form("bairro") & vbCrLf 
msgTxt = msgTxt & "Cidade: " & Request.Form ("cidade") & "     " & "Estado: " & Request.Form("estado") & vbCrLf 
msgTxt = msgTxt & "CEP: " & Request.Form("cep1") & " - " & Request.Form("cep2") & "     " & "País: " & Request.Form("pais") & vbCrLf 
msgTxt = msgTxt & "Telefone: " & Request.Form("telefone1") & "  " & Request.Form("telefone2") & vbCrLf & vbCrLf
msgTxt = msgTxt & "Mensagem: " & Request.Form("mensagem") & vbCrlf & vbCrlf & vbCrlf

Set Mailer = Server.CreateObject ("smtpsvg.mailer")
Mailer.FromName = from_name
Mailer.FromAddress= from_email
Mailer.RemoteHost = "[email protected]"
Mailer.AddRecipient  recipient_nome, recipient_email
Mailer.ContentType = "text/html"
Mailer.Subject = subject
Mailer.BodyText = msgTxt

if Mailer.SendMail then
response.Write("true")
else
Response.Write("false")
end if

Set Mailer = Nothing
%>

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Cara esse script realmente está muito complicado ... mas vamos lá entendi mais ou menos

aki é a sua conexão de email

Set Mailer = Server.CreateObject ("smtpsvg.mailer")

Mailer.FromName = from_name

Mailer.FromAddress= from_email

Mailer.RemoteHost = "[email protected]"

Mailer.AddRecipient recipient_nome, recipient_email

Mailer.ContentType = "text/html"

Mailer.Subject = subject

Mailer.BodyText = msgTxt

aki é a instrução p/ envio de email

subject = "Fale Conosco"

msgTxt = "Olá" & " " & recipient_nome & " " & "você acaba de receber um e-mail enviado do Macromedia.Imasters !!" & vbCrLf

msgTxt = msgTxt & "Com os seguintes dados:" & vbCrLf & vbCrLf

msgTxt = msgTxt & "Empresa: " & Request.Form("empresa") & vbCrLf

msgTxt = msgTxt & "E-mail: " & Request.Form("email") & vbCrLf

msgTxt = msgTxt & "Endereço: " & Request.Form ("endereco") & vbCrLf

msgTxt = msgTxt & "Bairro: " & Request.Form("bairro") & vbCrLf

msgTxt = msgTxt & "Cidade: " & Request.Form ("cidade") & " " & "Estado: " & Request.Form("estado") & vbCrLf

msgTxt = msgTxt & "CEP: " & Request.Form("cep1") & " - " & Request.Form("cep2") & " " & "País: " & Request.Form("pais") & vbCrLf

msgTxt = msgTxt & "Telefone: " & Request.Form("telefone1") & " " & Request.Form("telefone2") & vbCrLf & vbCrLf

msgTxt = msgTxt & "Mensagem: " & Request.Form("mensagem") & vbCrlf & vbCrlf & vbCrlf

"Fale Conosco" é o assunto do email

EMPRESA

EMAIL

ENDEREÇO

BAIRRO

CIDADE

CEP

TELEFONE

MENSAGEM

são os campos LABEL q irão aparecer no seu email seguido pelos campos Request.Form+> que é a informção digitada no formulário ...

Edited by jow

Share this post


Link to post
Share on other sites
  • 0
Guest Ricardo Felix
Cara esse script realmente está muito complicado ... mas vamos lá entendi mais ou menos

aki é a sua conexão de email

Set Mailer = Server.CreateObject ("smtpsvg.mailer")

Mailer.FromName = from_name

Mailer.FromAddress= from_email

Mailer.RemoteHost = "[email protected]"

Mailer.AddRecipient recipient_nome, recipient_email

Mailer.ContentType = "text/html"

Mailer.Subject = subject

Mailer.BodyText = msgTxt

aki é a instrução p/ envio de email

subject = "Fale Conosco"

msgTxt = "Olá" & " " & recipient_nome & " " & "você acaba de receber um e-mail enviado do Macromedia.Imasters !!" & vbCrLf

msgTxt = msgTxt & "Com os seguintes dados:" & vbCrLf & vbCrLf

msgTxt = msgTxt & "Empresa: " & Request.Form("empresa") & vbCrLf

msgTxt = msgTxt & "E-mail: " & Request.Form("email") & vbCrLf

msgTxt = msgTxt & "Endereço: " & Request.Form ("endereco") & vbCrLf

msgTxt = msgTxt & "Bairro: " & Request.Form("bairro") & vbCrLf

msgTxt = msgTxt & "Cidade: " & Request.Form ("cidade") & " " & "Estado: " & Request.Form("estado") & vbCrLf

msgTxt = msgTxt & "CEP: " & Request.Form("cep1") & " - " & Request.Form("cep2") & " " & "País: " & Request.Form("pais") & vbCrLf

msgTxt = msgTxt & "Telefone: " & Request.Form("telefone1") & " " & Request.Form("telefone2") & vbCrLf & vbCrLf

msgTxt = msgTxt & "Mensagem: " & Request.Form("mensagem") & vbCrlf & vbCrlf & vbCrlf

"Fale Conosco" é o assunto do email

EMPRESA

EMAIL

ENDEREÇO

BAIRRO

CIDADE

CEP

TELEFONE

MENSAGEM

são os campos LABEL q irão aparecer no seu email seguido pelos campos Request.Form+> que é a informção digitada no formulário ...

Beleza, Jow

Mas quando faço o teste no servidor o formulario reponde que a mensagem foi enviada com sucessso, porem não recebo nada em meu email.

tem alguma coisa errada no parte

aki é a sua conexão de email

Set Mailer = Server.CreateObject ("smtpsvg.mailer")

Mailer.FromName = from_name

Mailer.FromAddress= from_email

Mailer.RemoteHost = "[email protected]"

Mailer.AddRecipient recipient_nome, recipient_email

Mailer.ContentType = "text/html"

Mailer.Subject = subject

Mailer.BodyText = msgTxt

so não sei o que é.

se quiser entender melhor o arquivo desse formulario está aqui no site do Script Brasil

https://www.scriptbrasil.com.br/download/codigo/6509/

Share this post


Link to post
Share on other sites
  • 0

No RemoteHost não seria algo assim?

Set Mailer = Server.CreateObject ("smtpsvg.mailer")
Mailer.FromName = from_name
Mailer.FromAddress= from_email
Mailer.RemoteHost = smtp.terra.com.br
Mailer.AddRecipient recipient_nome, recipient_email
Mailer.ContentType = "text/html"
Mailer.Subject = subject
Mailer.BodyText = msgTxt

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this