Formulário com Anexo por Email..

Ivan.Teles · Dezembro 7, 2005

CÓDIGO DA PÁGINA ASP.

<%

Dim var_nome, var_mail, var_telefone, var_cidade, var_assunto, var_comentario, var_to, EnviarMail, MsgBody

var_nome = Request.QueryString("Nome")
var_mail = Request.QueryString("Email")
var_telefone = Request.QueryString("Telefone")
var_cidade = Request.QueryString("Cidade")
var_assunto = Request.QueryString("assunto")
var_comentario = Request.QueryString("Comentario")
var_to = Request.QueryString("recipient")
var_anexo = Request.QueryString("anexo")

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = var_assunto
EnviarMail.Attachfile var_anexo
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Recebemos um email de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b>, telefone <b> "& var_telefone & "</b>, cidade <b> " & var_cidade & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.write( "Muito obrigado " & var_nome & " !!!")

%>

MEU FORMULÁRIO

<form action="envia_fale.asp" method="get" enctype="multipart/form-data" name="email" id="email">
	<p align="center"><strong>FORMULÁRIOS DE CONTATOS</strong> </p>
	<table width="58%" border="0" align="center">
	  <tr>
		<td width="31%"><div align="right">Nome</div></td>
		<td width="69%"><input type="text" name="Nome" size="30" />
		  <input name="recipient" type="hidden" id="recipient" value="suporte@com.br" /></td>
	  </tr>
	  <tr>
		<td width="31%"><div align="right">E-mail</div></td>
		<td width="69%"><input name="Email" type="text" id="Email" size="25" /></td>
	  </tr>
	  <tr>
		<td width="31%"><div align="right">Telefone</div></td>
		<td width="69%"><input type="text" name="Telefone" size="20" />
			<span class="style1">Ex:(0xx61) 0000-0000 </span></td>
	  </tr>
	  <tr>
		<td width="31%"><div align="right">Cidade</div></td>
		<td width="69%"><input name="Cidade" type="text" id="Cidade" size="20" />		</td>
	  </tr>
	  <tr>
		<td><div align="right">Assunto</div></td>
		<td><select name="assunto" id="assunto" onchange="valassunto()">
		  <option value="Sugestão">Sugestão</option>
		  <option value="Dúvida">Dúvida</option>
		  <option value="Reclamação">Reclamação</option>
		  <option value="Assisência Técnica">Assisência Técnica</option>
		</select></td>
	  </tr>
	  <tr>
		<td> </td>
		<td><input name="anexo" type="file" id="anexo" /></td>
	  </tr>
	  <tr>
		<td width="31%"><div align="right">
			<p>Comentário</p>
		  <p> </p>
		  <p> </p>
		</div></td>
		<td width="69%"><textarea name="Comentario" cols="40" rows="5" id="Comentario"></textarea>		</td>
	  </tr>
	</table>
	<p align="center">
	  <input name="submit" type="submit" value="Enviar" />
	  <input name="reset" type="reset"  value="Limpar" />
	</p>
  </form>

alguem pode me ajuda com isso?

Salgado · Dezembro 7, 2005

Você terá que acrescentar o script de UPLOAD antes do de envio de e-mail, e trocar a forma como faz os requests, que passarão a adotar a sequinte sintaxe: variavel = SeuObjetodeUpload.FORM("NomedoCampo")

Mário Monteiro · Dezembro 7, 2005

verdade...antes de anexar o arquivo este deve estar no servidor...

Ivan.Teles · Dezembro 8, 2005

salgado você poderia ser mais esclarecedor. meu código esta ai, pode utilizar ele?

Salgado · Dezembro 8, 2005

Só um pedaço:

'Coloque aqui a sua rotina de UPLOAD, verifique em sua hospedagem qual componente de upload é oferecido e sua sintaxe.
var_anexo = Caminho e nome do arquivo que foi "upado" para o servidor.

var_nome = SeuObjetodeUpload.FORM("Nome")
var_mail = SeuObjetodeUpload.FORM("Email")
var_telefone = SeuObjetodeUpload.FORM("Telefone")
var_cidade = SeuObjetodeUpload.FORM("Cidade")
var_assunto = SeuObjetodeUpload.FORM("assunto")
var_comentario = SeuObjetodeUpload.FORM("Comentario")
var_to = SeuObjetodeUpload.FORM("recipient")

Mais que isso não passo. Dê uma pesquisada aqui mesmo no fórum que possui alguns exemplos disso.

Ivan.Teles · Dezembro 8, 2005

é naum consegui, e nem encontrei por aki como fazer!!!

tentei utilizar pureaspupload, mesmo assim naum deu certo, fazer o q!!

Salgado · Dezembro 8, 2005

Qual componente sua hospedagem oferece? Outra coisa, na área de códigos tem um post do Dark0 sobre Upload sem componentes, tem até exemplo de envio de e-mail com anexo.

Ivan.Teles · Dezembro 8, 2005

salgado fiz o seguinte com minha pagina ASP.

<% 

' Esta secao faz o upload do arquivos para o diretório /dados

Set myFileUpload = Server.CreateObject("Dundas.Upload.2") 
if myFileUpload.form("anexos").UserFilename <> "" then 
' diretório em que a imagem será salva 
myFileUpload.Form("anexos").Path = "D:\wwwroot\portal\anexo" 
myFileUpload.form("anexos").Save 
end if 

arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1) 

If Err Then 
Response.Write("<b>Erro : </b>" & Err.description & "<br>") 
Set myFileUpload = nothing 
Response.End 
End If 
%> 
<%
Dim var_nome, var_mail, var_telefone, var_cidade, var_assunto, var_comentario, var_to, var_anexo, EnviarMail, MsgBody

var_nome = request.form("Nome")
var_mail = request.form("Email")
var_telefone = request.form("Telefone")
var_cidade = request.form("Cidade")
var_assunto = request.form("assunto")
var_comentario = request.form("Comentario")
var_to = request.form("recipient")
var_anexo = request.form("anexos")

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = var_assunto
EnviarMail.Attachfile "D:\wwwroot\portal\anexo"& var_anexo &""
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Recebemos um email de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b>, telefone <b> "& var_telefone & "</b>, cidade <b> " & var_cidade & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.write( "Muito obrigado " & var_nome & " !!!")

%>

a páginas esta fazendo o upload do arquivo, mas depois da erro: mas devido esta na web eu naum sei qual o erro.

=====================================================================

Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

--------------------------------------------------------------------------------

Tente o seguinte:

Abra a www.site.com.br home page, e procure os links para as informações desejadas.

Clique no botão Atualizar ou tente novamente mais tarde.

Clique em Pesquisar para procurar informações na Internet.

Você também pode ver uma lista de sites relacionados.

HTTP 500 - erro interno do servidor

Internet Explorer

----------------------------------------------------------------------------------------------------------------------

Ivan.Teles · Dezembro 8, 2005

tentei essa linha TB:

EnviarMail.AttachFile Server.MapPath("anexos/"& var_anexo &"")

outra coisa o sites esta hospedado na locaweb, por isso tem varios componentes.

Salgado · Dezembro 8, 2005

<%

' Esta secao faz o upload do arquivos para o diretório /dados

Set myFileUpload = Server.CreateObject("Dundas.Upload.2")
if myFileUpload.form("anexos").UserFilename <> "" then
' diretório em que a imagem será salva
Pasta = "D:\wwwroot\portal\anexo"
myFileUpload.Form("anexos").Path = Pasta
myFileUpload.form("anexos").Save
end if

arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)

Dim var_nome, var_mail, var_telefone, var_cidade, var_assunto, var_comentario, var_to, var_anexo, EnviarMail, MsgBody

var_nome = myFileUpload.form("Nome")
var_mail = myFileUpload.form("Email")
var_telefone = myFileUpload.form("Telefone")
var_cidade = myFileUpload.form("Cidade")
var_assunto = myFileUpload.form("assunto")
var_comentario = myFileUpload.form("Comentario")
var_to = myFileUpload.form("recipient")
var_anexo = Pasta &"/"& Arquivo

If Err Then
Response.Write("<b>Erro : </b>" & Err.description & "<br>")
Set myFileUpload = nothing
Response.End
End If

Troca o inicio de seu code por esse e testa. Outra coisa, desmarque as mensagens de erro http amigaveis em seu browser que passará a ter a mensagem de erro real.

Ivan.Teles · Dezembro 8, 2005

<%

' Esta secao faz o upload do arquivos para o diretório /dados

Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")

if myFileUpload.form("anexos").UserFilename <> "" then

' diretório em que a imagem será salva

Pasta = "e:\home\web\anexos"

myFileUpload.Form("anexos").Path = Pasta

myFileUpload.form("anexos").Save

end if

arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)

Dim var_nome, var_mail, var_telefone, var_cidade, var_assunto, var_comentario, var_to, var_anexo, EnviarMail, MsgBody

var_nome = myFileUpload.form("Nome")

var_mail = myFileUpload.form("Email")

var_telefone = myFileUpload.form("Telefone")

var_cidade = myFileUpload.form("Cidade")

var_assunto = myFileUpload.form("assunto")

var_comentario = myFileUpload.form("Comentario")

var_to = myFileUpload.form("recipient")

var_anexo = Pasta &"/"& Arquivo

If Err Then

Response.Write("Erro : " & Err.description & " ")

Set myFileUpload = nothing

Response.End

End If

' Esta secao faz o upload do arquivos para o diretório /dados

%>

<%

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = var_to

EnviarMail.From = var_mail

EnviarMail.Subject = var_assunto

EnviarMail.AttachFile var_anexo

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body bgcolor=""#FFFFFF"">" _

& "Recebemos um email de " & var_nome & ", email " & var_mail & ", telefone "& var_telefone & ", cidade " & var_cidade & " e fez o seguinte comentário:" & var_comentario & "" _

& "</body>" _

& "</html>"

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

Set EnviarMail = Nothing

Response.write( "Muito obrigado " & var_nome & " !!!")

%>

usando o codigo acima ele anexou, mas os arquivos anexados, tipo de doc ele esta danificando, quando abrimos no word ele transfora as letras em codigos.

como resolver isso

Ivan.Teles · Dezembro 9, 2005

Salgado, olha só, se eu receber os email via outlook, os anexos vem tranquilo e normail se eu abrir pelo browser, ele me mostra isso de um arquivo doc:

MT,\1X*&Q&N$`````````````````````/@`#`/[_"0`&```````````````!

M````) ``````````$ ``)@````$```#^____`````",```#_____________

M____________________________________________________________

M_______________________LI<$`?V 6! ``\!*_````````$ ``````!@``

MV H```X`8FIB:N:'YH<````````````````````````6!!8`+A0``(3M``"$

M[0``V (```````````````````````````````````````#__P\`````````

M``#__P\```````````#__P\``````````````````````*0``````*0#````

M````I ,``*0#````````I ,```````"D`P```````*0#````````I ,``!0`

M`````````````+@#````````? @```````!\" ```````'P(````````? @`

M``P```"(" ``% ```+@#````````U0L``+8```"H" ```````*@(````````

MJ @```````"H" ```````*@(````````@PD```````"#"0```````(,)````

M````> L```(```!Z"P```````'H+````````>@L```````!Z"P```````'H+

M````````>@L```````"+# ``: (``/,.``!N````>@L``!4`````````````

M````````````I ,```````"^"@````````````````````````````"#"0``

M`````(,)````````O@H```````"^"@```````'H+``````````````````"D

M`P```````*0#````````J @``````````````````*@(``#;````CPL``!8`

M``!,"P```````$P+````````3 L```````"^"@``%@```*0#````````J @`

M``````"D`P```````*@(````````> L``````````````````$P+````````

M````````````````````````````````````````````````````````````

M````O@H```````!X"P``````````````````3 L``````````````````$P+

M````````I ,```````"D`P``````````````````````````````````````

M``````````````````

Salgado · Dezembro 9, 2005

Faz um teste, acessa pelo FTP e tente abrir o arquivo por lá e verifique se está ok.

Ivan.Teles · Dezembro 9, 2005

está!!!

Salgado · Dezembro 9, 2005

Não tenho certeza do que pode ser, mas vamos fazer outra tentativa. Vamos dividir esse arquivo em 2 da seguinte forma:

Upload.asp:

<%
' Esta secao faz o upload do arquivos para o diretório /dados
Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")
if myFileUpload.form("anexos").UserFilename <> "" then
' diretório em que a imagem será salva
Pasta = "e:\home\web\anexos"
myFileUpload.Form("anexos").Path = Pasta
myFileUpload.form("anexos").Save
end if

arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)

Dim var_nome, var_mail, var_telefone, var_cidade, var_assunto, var_comentario, var_to, var_anexo, EnviarMail, MsgBody

Session("var_nome") = myFileUpload.form("Nome")
Session("var_mail") = myFileUpload.form("Email")
Session("var_telefone") = myFileUpload.form("Telefone")
Session("var_cidade") = myFileUpload.form("Cidade")
Session("var_assunto") = myFileUpload.form("assunto")
Session("var_comentario") = myFileUpload.form("Comentario")
Session("var_to") = myFileUpload.form("recipient")
Session("var_anexo") = Pasta &"/"& Arquivo

If Err Then
Response.Write("<b>Erro : </b>" & Err.description & "<br>")
Set myFileUpload = nothing
Response.End
End If
Response.Redirect "SendMail.asp"
' Esta secao faz o upload do arquivos para o diretório /dados%>

SendMail.asp

<%
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = Session("var_to")
EnviarMail.From = Session("var_mail")
EnviarMail.Subject = Session("var_assunto")
EnviarMail.AttachFile Session("var_anexo")
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Recebemos um email de <b>"& Session("var_nome") &"</b>, email <b>"& Session("var_mail") &"</b>, telefone <b> "& Session("var_telefone") &"</b>, cidade <b> "& Session("var_cidade") &"</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>"& Session("var_comentario") &"</b></font></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.write( "Muito obrigado " & Session("var_nome") & " !!!")

Session("var_nome") = ""
Session("var_mail") = ""
Session("var_telefone") = ""
Session("var_cidade") = ""
Session("var_assunto") = ""
Session("var_comentario") = ""
Session("var_to") = ""
Session("var_anexo") = ""
%>

Ivan.Teles · Dezembro 9, 2005

Salgado nem assim resolveu.

o anexo vem do mesmo jeito..TRUNCADO

Salgado · Dezembro 9, 2005

Então é algum erro com o CDONTS. Veja se sua hospedagem possui outro componente de envio de e-mails.

Ivan.Teles · Dezembro 9, 2005

possui

Salgado · Dezembro 9, 2005

Troca então.

Ivan.Teles · Dezembro 12, 2005

Salgado

Usei esse:

<% 
vanexo = request.form("anexo") 
vnome = request.form("nome") 
vemail = request.form("email") 

HTML = " Nome:" & vnome &" Email: "& vemail &"" 



Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = "Nome Remetente" 
Mailer.FromAddress= "teste@remetente.com.br" 
Mailer.RemoteHost = "localhost" 
Mailer.AddRecipient "Teste Locaweb","teste@provedor.com.br" 
Mailer.ContentType = "text/html" 
Mailer.Encoding = 2 
Mailer.AddAttachment "e:\home\login\dados\"& vanexo &"" 
Mailer.Subject = "Teste Anexo" 
Mailer.BodyText = HTML 
If Mailer.SendMail Then 
Response.Write "Mensagem enviada com sucesso" 
Else 
Response.Write "Erro " & Mailer.Response 
End If 
%>

Funcionou, os anexos foram enviados perfeitamente.

So desejo saber mais uma coisa, como enviar a mensagem como HTML, pois esta indo como texto e como texto naum pode ser formatado.

tentei assim:

HTML = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Recebemos um email de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b>, telefone <b> "& var_telefone & "</b>, cidade <b> " & var_cidade & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _
& "</body>" _
& "</html>"

mas não deu certo!!

sabe como resolver?

Arquivado

Formulário com Anexo por Email..

Recommended Posts

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23