Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Rossano Magno

Aspemail - Não consigo buscar os dados do formulário

Por , em ASP Clássico

Recommended Posts

Rossano Magno    0

Rossano Magno
Postado

Seguinte, fiz um sistema para envio de e-mail com anexo utilizando o aspemail e o aspsmartupload.Basicamente tudo funciona, consigo upar o arquivo e anexar no e-mail, porém eu quero que chegue no meu e-mail os dados do formulário, como o nome de quem mandou e o e-mail. Eu tenho outro sistema idêntico a este porém sem o anexo, e não consigo encontrar o pq não está dando certo.Detalhe, o script não retorna denhum tipo de erro.Eis a criança:Formulário:<table width="505" height="501" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="#ECEDBA"><tr><th width="485" height="0" align="center" valign="top" scope="col"><p align="center" class="style12">Envie-nos o seu curriculum</p></th></tr><tr><th height="0" align="center" valign="top" scope="col"><img src="file:///D|/Provisório/figuras/barra_divisoria.gif" width="249" height="3" /></th></tr><tr><th height="419" align="center" valign="top" scope="col"><table width="485" border="0" cellspacing="0" cellpadding="0"><form action="curriculum.asp" method="post" enctype="multipart/form-data" name="form1" id="form1"><tr><th width="97" height="30" align="left" valign="middle" class="style19" scope="col">Nome:</th><th width="388" align="left" valign="middle" scope="col"><input name="nome" type="text" class="style10" size="60" maxlength="60" /></th></tr><tr><td height="30" align="left" valign="middle" class="style19">E-mail:</td><td align="left" valign="middle"><input name="email" type="text" class="style10" size="30" maxlength="30" /></td></tr></form><form action="upload.asp" target="frame1" method="post" enctype="multipart/form-data" name="form1" id="form1"><tr><td height="30" align="left" valign="middle" class="style19">Anexar arquivo: </td><td height="19" align="left" valign="middle" class="style19"><input name="arquivo" type="file" class="style10" size="36" /><input name="anexar" type="submit" class="style10" id="anexar" value="Anexar" /></td></tr><tr><td height="19" colspan="2" align="center" valign="top" class="style19"> </td></tr><tr><td height="19" colspan="2" align="center" valign="top" class="style19"><iframe src="frame1.htm" name="frame1" width="370" height="40" scrolling="No" frameborder="0" id="frame1"></iframe></td></tr></form><form action="curriculum.asp" method="post" enctype="multipart/form-data" name="form1" id="form1"><tr><td height="19" colspan="2" align="center" valign="top" class="style19"> </td></tr><tr><td height="30" colspan="2" align="center" valign="top"><input type="submit" name="enviar" value="Enviar" /></td></tr></form>Script p/ upload:<%Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")objUpload.AllowedFilesList = "doc"objUpload.DeniedFilesList = "exe,bat,zip,rar,cab,swf,jpg,gif,pdf,asp,aspx,htm,html"objUpload.MaxFileSize = 150000objUpload.UploadFor each file In objUpload.FilesIf not file.IsMissing Thenfile.SaveAs(Server.MapPath("/uploads/" & "curriculum." & file.FileExt))End IfNextResponse.Write ""%>E por fim o script que envia o e-mail:<%nome = Request.Form("nome")assunto = "Curriculum de "&nome&""Set MailC = Server.CreateObject("Persits.MailSender")MailC.Host = "201.87.225.5"MailC.From = ""MailC.FromName = Request.Form("email")MailC.AddAddress "meu_e-mail@bla.com.br"MailC.Subject = assuntocorpo = "<html><body bgcolor=ECEDBA><table width=75% border=1 align=center cellpadding=2 cellspacing=2><tr><th><table width=99% border=0 cellspacing=2 cellpadding=2><tr><td colspan=2 align=center><table width=100% border=1 cellspacing=2 cellpadding=2><tr><th width=100% colspan=2 align=center valign=middle bgcolor=#CCCC99><span><font face=Arial, Helvetica, sans-serif color=#333333 size=3><i><b>Envie-nos o seu curriculum</b></i></font></span></th></tr></table></td></tr><tr><td height=150 colspan=2 align=center valign=middle><span><font face=Arial, Helvetica, sans-serif color=#333333 size=1><b>O usuário</b></font></span> <span><font face=Arial, Helvetica, sans-serif color=#006633 size=2><b>"&nome&"</b></font></span> <span><font face=Arial, Helvetica, sans-serif color=#333333 size=1><b>enviou-nos um curriculum.</b></font></span> </td></tr></table></th></tr><table></body></html>"MailC.Body = corpoMailC.IsHTML = TrueMailC.AddAttachment (Server.MapPath("\uploads\curriculum.doc"))On Error Resume NextMailC.SendIf Err < 0 ThenResponse.Write "Error encountered: " & Err.DescriptionEnd IfSet MailC = Nothing%>Todo o texto que coloquei para vir no e-mail está ok, só os campos do formulário que ele não busca mesmo.Desde já agradeço a atenção de todos! Valeu! Um abraço!

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Tenta assim:

curriculum.asp

 

<% str_nome = trim(request.form("nome")) 'sendo que este é o nome do input type nome no form

str_email = trim(request.form("email")) 'sendo que este é o nome do input type email no form

 

 

Set MailC = Server.CreateObject("Persits.MailSender")

MailC.Host = "201.87.225.5"

MailC.From = str_email

MailC.FromName = Request.Form("email")

MailC.AddAddress "meu_e-mail@bla.com.br"

MailC.Subject = assunto

corpo = "<html><body bgcolor=ECEDBA><table width=75% border=1 align=center cellpadding=2 cellspacing=2><tr><th><table width=99% border=0 cellspacing=2 cellpadding=2><tr><td colspan=2 align=center><table width=100% border=1 cellspacing=2 cellpadding=2><tr><th width=100% colspan=2 align=center valign=middle bgcolor=#CCCC99><span><font face=Arial, Helvetica, sans-serif color=#333333 size=3><i><b>Eu sou " & str_nome & "</b></i> meu email é " & str_email & "</font></span></th></tr></table></td></tr><tr><td height=150 colspan=2 align=center valign=middle><span><font face=Arial, Helvetica, sans-serif color=#333333 size=1><b>O usuário</b></font></span> <span><font face=Arial, Helvetica, sans-serif color=#006633 size=2><b>"&nome&"</b></font></span> <span><font face=Arial, Helvetica, sans-serif color=#333333 size=1><b>enviou-nos um curriculum.</b></font></span> </td></tr></table></th></tr><table></body></html>"

 

MailC.Body = corpo

MailC.IsHTML = True

MailC.AddAttachment (Server.MapPath("\uploads\curriculum.doc"))

 

On Error Resume Next

MailC.Send

If Err < 0 Then

Response.Write "Error encountered: " & Err.Description

End If

Set MailC = Nothing

Response.redirect "confirm.html"

%>

 

bom eu não uso muito o aspemail mais acho que com isso vai dar certo!

Qualquer coisa posta ae!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rossano Magno    0

Rossano Magno
Postado

Pior que defini todas as variáveis de novo cara, e mesmo assim vem o e-mail vem o anexo mas os dados do formulário não.

 

Curte só estes formulários já estão online

 

Este funciona do jeito que eu espero porém não tem o upload:

 

http://www.integralcooperativa.com.br/faleconosco.htm

 

 

E este é o sistema em questão:

 

http://www.integralcooperativa.com.br/curriculum.asp

 

 

Já me disseram que o problema poderia ser o enctype, mas, eu tirei ele do formulário que chama o script do e-mail e só deixei no do upload, renomeei os formulários para que sejam tratados independentes mas não rola.

 

 

Mais uma vez valeu pela tua atenção!! Valeu mesmo!! E continuamos na luta!! Hahahahahahaha

 

Grande abraço!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Domination    0

Domination
Postado

Rossano, lembra que tu falo que não estava conseguindo fazer com que os valores do formulario chegasse no seu e-mail...então, esses dias tentei colocar meu formula´rio com o anexo junto, não dava erro nenhum tbm , mas quendo chegava no e-mail, era como se eu não tivesse preenchido nenhuma caixa de texto, ou seja, não chegou nenhuma informação. O que eu fiz, só pra ter certeza: Tirei o campo de anexo do formulário e dexei só com as caixinhas de dados....o resultado: as informações chegaram todas no meu e-mail...será que tu não poderia achar um jeito de colocar o campo de anexo separado dos formulário com os dados????é estranho e ao mesmo tempo meio f*** essa idéia, mas ve ae, as vezes dá certo!!!!Abraço, caso você consiga me passa a solução!!!!Valewwwwwwwww!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Domination    0

Domination
Postado

Rossano, cara, to trabalhando em cima do teu código, pq é muito parecido com que eu preciso, instalei o aspSmartUpload aqui na minha máquina, mas parece que não mudo nada....

 

Saca só o erro que dá quando anexo o documento:

 

Tipo de erro:

aspSmartUpload.File (0x80040460)

Unable to save file (Error 1120)

/form_anexo/upload2.asp, line 10

 

parece que o componente não está instalado....que tu achas?!?!?

 

 

valewwwww!!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

NewUser    0

NewUser
Postado

Vou continuar estudando seu codigo mais tenho uma dúvida, nesta parte do seu codigo:

 

Set MailC = Server.CreateObject("Persits.MailSender")

MailC.Host = "201.87.225.5"

MailC.From = "" 'pq o Fron está vazio? :unsure:

MailC.FromName = Request.Form("email")

MailC.AddAddress "meu_e-mail@bla.com.br"

MailC.Subject = assunto

 

Não uso o aspemail mais sei que o fron é o email de quem envia o email!

T+

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rossano Magno    0

Rossano Magno
Postado

Domination,Este erro é pq ele não conseguiu salvar o arquivo tem que ver o que ficou como linha 10 pra ti.NewUser,O porque sinceramente não sei, mas, no meu caso se eu colocar a variável para o e-mail no Mail.From = "" o formulário simplesmente não vem, e se eu tirar esta linha, tb não vem. Não sei se foi só neste caso que isto aconteceu, mas, aconteceu.Até!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rossano Magno    0

Rossano Magno
Postado

Ahhhááááa... Problema resolvido!!!Coloquei o formulário de upload em um arquivo htm separado, que aparece na mesma página como iframe, assim o enctype não se bate!!!!Muito obrigado a todos pela ajuda!!!! E qualquer dúvida agora estarei pronto pra responder!!! Hehehehehehe Ao menos sobre este pepino!!!Um grande abraço e um ótimo começo de ano!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito