Eu tenho um formulario em flash q envia dados method = post para um arquivo .asp enviar emails. precisa q isso seja feito por um arquivo .php, mas eu não sei php.
tenho o seguinte código:
<HTML>
<HEAD>
<TITLE>Formulário</TITLE>
</HEAD>
<body>
<?
if (! isset ($valor)){ // Verifica se o form ainda não foi preenchido
//monta o fomulario
echo ("<form name='email' action='mail.php' method='Post'>");
echo ("<input type='hidden' name='valor' value='t'>"); // esta linha manda a variavel $valor oculta para a condicao acima mudar o caminho quando for clicado no botao envia-email.
echo ("<BR>Nome: <input type='text' name='nome' size='20'>");
echo ("<BR>E-mail: <input type='text' name='email' size='15'>");
echo ("<BR>Sexo: <select name='sexo'><option value='Masculino'>Masculino</option>");
echo ("<option value='Feminino'>Feminino</option></select>");
echo ("<BR><input type='submit' value='Enviar E-mail'>");
}else{
$recipiente = "eu@provedor.com.br"; // email de quem vai receber o form
$assunto = "Formulario - Utilizando PHP";
// Caso queira usar HTML para enviar o e-mail utilize o $headers
$headers = "MIME-Version: 1.0\r\n";
$headers .= "Content-type: text/html; charset=iso-8859-1\r\n";
$headers .= "From: $email";
$mensagem = "Oi,";
$mensagem.= "<BR><BR>Segue informações do formulário";
$mensagem.= "<br><b>Nome:</b> $nome";
$mensagem.= "<br><b>E-mail:</b> $email";
$mensagem.= "<br><b>Sexo:</b> $sexo";
$enviar=mail($recipiente,$assunto,$mensagem,$headers);
if ($enviar=="1"){ // checa se e-mail foi enviado
echo ("<center>E-mail enviado com sucesso!</center>");
}else{
echo ("<center>Erro ao enviar o e-mail, tente novamente.</center>");
}
}
?>
</body>
</HTML>
Quero tirar a parte do formulário e colocar uma opção para pegar as variaveis q estao sendo enviadas para ele.
tipo: em asp
<%
'por: Cubbos Computação Gráfica
Dim iMail, corpo, assunto, nome, email, mensagem, meu_email
nome = Request.form("nome")
email = Request.form("email")
mensagem = Request.Form("mensagem")
meu_email = "adriano.anjos@terra.com.br"
assunto = Request.Form("assunto")
corpo = "Nome:" & nome & "<BR>"
corpo = corpo & "E-mail:" & email & "<BR>"
corpo = corpo & "Mensagem:" & mensagem & "<br>"
Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = assunto
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send
Set objMail = nothing
%>
Pergunta
adriano182
Ola pessoal,
Eu tenho um formulario em flash q envia dados method = post para um arquivo .asp enviar emails. precisa q isso seja feito por um arquivo .php, mas eu não sei php.
tenho o seguinte código:
<HTML> <HEAD> <TITLE>Formulário</TITLE> </HEAD> <body> <? if (! isset ($valor)){ // Verifica se o form ainda não foi preenchido //monta o fomulario echo ("<form name='email' action='mail.php' method='Post'>"); echo ("<input type='hidden' name='valor' value='t'>"); // esta linha manda a variavel $valor oculta para a condicao acima mudar o caminho quando for clicado no botao envia-email. echo ("<BR>Nome: <input type='text' name='nome' size='20'>"); echo ("<BR>E-mail: <input type='text' name='email' size='15'>"); echo ("<BR>Sexo: <select name='sexo'><option value='Masculino'>Masculino</option>"); echo ("<option value='Feminino'>Feminino</option></select>"); echo ("<BR><input type='submit' value='Enviar E-mail'>"); }else{ $recipiente = "eu@provedor.com.br"; // email de quem vai receber o form $assunto = "Formulario - Utilizando PHP"; // Caso queira usar HTML para enviar o e-mail utilize o $headers $headers = "MIME-Version: 1.0\r\n"; $headers .= "Content-type: text/html; charset=iso-8859-1\r\n"; $headers .= "From: $email"; $mensagem = "Oi,"; $mensagem.= "<BR><BR>Segue informações do formulário"; $mensagem.= "<br><b>Nome:</b> $nome"; $mensagem.= "<br><b>E-mail:</b> $email"; $mensagem.= "<br><b>Sexo:</b> $sexo"; $enviar=mail($recipiente,$assunto,$mensagem,$headers); if ($enviar=="1"){ // checa se e-mail foi enviado echo ("<center>E-mail enviado com sucesso!</center>"); }else{ echo ("<center>Erro ao enviar o e-mail, tente novamente.</center>"); } } ?> </body> </HTML>Quero tirar a parte do formulário e colocar uma opção para pegar as variaveis q estao sendo enviadas para ele. tipo: em asp<% 'por: Cubbos Computação Gráfica Dim iMail, corpo, assunto, nome, email, mensagem, meu_email nome = Request.form("nome") email = Request.form("email") mensagem = Request.Form("mensagem") meu_email = "adriano.anjos@terra.com.br" assunto = Request.Form("assunto") corpo = "Nome:" & nome & "<BR>" corpo = corpo & "E-mail:" & email & "<BR>" corpo = corpo & "Mensagem:" & mensagem & "<br>" Set iMail = CreateObject("CDONTS.NewMail") iMail.From = email iMail.To = meu_email iMail.Subject = assunto iMail.MailFormat = 0 iMail.BodyFormat = 0 iMail.Body = corpo iMail.Send Set objMail = nothing %>alguém pode me ajudar?
Obrigado!
Link para o comentário
Compartilhar em outros sites
6 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.