Ir para conteúdo

POWERED BY:

Arquivado

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

Ellen

O anexo não chega!!

Por , em ASP Clássico

Recommended Posts

Ellen    0

Ellen
Postado

Olá Pessoal...EStou precisando de uma ajudinha..Tenho um formulário de cadastro para Contato no site, e preciso q quem se cadastre também possa enviar anexo... mas não estou conseguindo... o anexo não chega... tem que ser em CDOPor favor de alguem puder me ajudar, ficarei agradecida.

<%flag = request("flag")if flag = "" thenflag = 0end iffunction trata_string(str)str = replace(str,vbCrLf,"<br />")trata_string = strend functionif flag then On Error Resume Nextnome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")cidade = Request.Form("cidade")estado = Request.Form("estado")mensagem = Request.Form("mensagem")if email = "" thenemail = "meu email"end if'Coloque aqui o titulotitulo = "Contato"enviou = 0 'nadae_mail = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" /></head><body>"e_mail = e_mail &"<font face=""Arial"" size=""2""><h5>" & titulo & " - " & now & "</h5>"e_mail = e_mail & "<b>Nome: </b> " & nome & " <br>"e_mail = e_mail & "<b>Telefone:</b> " & telefone & " <br>"e_mail = e_mail & "<b>E-mail:</b> " & email &" <br>"e_mail = e_mail & "<b>Cidade/Estado:</b> " & cidade &"/"& estado &" <br>"e_mail = e_mail & "<b>Mensagem: </b> " & "<br>"e_mail = e_mail & mensagem & " <br>"e_mail = e_mail & & quot;____________________________________________________________________________" & "</font><br>"e_mail = e_mail & "</body></html>"Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") obj_Upload.Path = Server.MapPath("./upload")obj_Upload.Form("File").SaveResponse.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"Set obj_Upload = NothingWith objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Fields.update End WithSet objCDOSYSMail.Configuration = objCDOSYSCon With objCDOSYSMail.From = email.To = "meu email" .AddAttachment(Session("Arquivo")).Subject = titulo.HtmlBody = trata_string(e_mail).Send End WithSet objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing msg = "Contato enviado com sucesso" 'certoSession("Arquivo") = ""If Err.number<>0 thenmsg = "Ocorreu um erro ao enviar o contato." 'erradoEnd If end if %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="../css/styles.css" /><script src="../scripts/validador.js" type="text/javascript"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /></head><body style="background:#FFFFFF; font-size:12px"><div id="dentroConteudoGraduacao" class="sotexto"><% if msg <> "" then %><p class="labelTipVermelho"><img src="../imagens/img_ico/seta1.gif" alt="Seta" width="7" height="10" /> <%=msg%></p><p><% else %></p><p><img src="../imagens/img_ico/seta1.gif" alt="Seta" width="7" height="10" /> Para solicitar informações, enviar críticas e sugestões preencha o formulário abaixo. </p><form action="?flag=1" method="post" enctype="multipart/form-data" id="contato" onsubmit="MM_validateForm('nome','','R','telefone','','R','email','','RisEmail','cidade','','R','mensagem','','R');return document.MM_returnValue"><table border="0" cellpadding="0" cellspacing="5" class="contatoTable"><tr><td width="67" class="TipsDoContato"><strong>*</strong></td><td width="316" class="labelTipVermelho">Todos os campos são obrigatorios </td></tr><tr><td class="TipsDoContato"><strong>Nome*:</strong></td><td><input name="nome" type="text" id="nome" size="46" maxlength="200" /></td></tr><tr><td class="TipsDoContato"><strong>Telefone*:</strong></td><td><input name="telefone" type="text" id="telefone" onkeypress="return txtBoxFormat(this, '(99) 9999-9999', event);" size="15" maxlength="14" /></td></tr><tr><td class="TipsDoContato"><strong>E-mail*:</strong></td><td><input name="email" type="text" id="email" size="46" maxlength="200" /></td></tr><tr><td class="TipsDoContato"><strong>Cidade*:</strong></td><td><input name="cidade" type="text" id="cidade" size="46" maxlength="200" /></td></tr><tr><td class="TipsDoContato"><strong>Estado*:</strong></td><td><select name="estado" id="caestados"><option value="AC">AC</option><option value="AL">AL</option><option value="AM">AM</option><option value="AP">AP</option><option value="BA">BA</option><option value="CE">CE</option><option value="DF">DF</option><option value="ES">ES</option><option value="GO">GO</option><option value="MA">MA</option><option value="MG">MG</option><option value="MS">MS</option><option value="MT">MT</option><option value="PA">PA</option><option value="PB">PB</option><option value="PE">PE</option><option value="PI">PI</option><option value="PR" selected="selected">PR</option><option value="RJ">RJ</option><option value="RN">RN</option><option value="RO">RO</option><option value="RR">RR</option><option value="RS">RS</option><option value="SC">SC</option><option value="SE">SE</option><option value="SP">SP</option><option value="TO">TO</option></select></td></tr><tr><td class="TipsDoContato">Arquivo:</td><td><input name="file" type="file" size="40"></td></tr><tr><td class="TipsDoContato"><strong>Mensagem*:</strong></td><td><textarea name="mensagem" cols="45" rows="5" id="mensagem"></textarea></td></tr><tr><td class="TipsDoContato"> </td><td align="right"> </td></tr><tr><td class="TipsDoContato"> </td><td align="right"><input name="bt_enviar" type="image" class="nada" id="bt_enviar" onmouseover="mudaImg(this.id,'img_bts/bt_enviar_on.gif');" onmouseout="mudaImg(this.id,'img_bts/bt_enviar.gif');" src="../imagens/img_bts/bt_enviar.gif" /></td></tr></table></form><%end if%></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Ellen,Só para facilitar responda:Retorna algum erro?O anexo não enviado nem para um e-mail na rede local?As permissões nos diretórios estão ok?t+

Olá Pessoal...EStou precisando de uma ajudinha..Tenho um formulário de cadastro para Contato no site, e preciso q quem se cadastre também possa enviar anexo... mas não estou conseguindo... o anexo não chega... tem que ser em CDOPor favor de alguem puder me ajudar, ficarei agradecida.

<%flag = request("flag")if flag = "" thenflag = 0end iffunction trata_string(str)str = replace(str,vbCrLf,"<br />")trata_string = strend functionif flag then On Error Resume Nextnome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")cidade = Request.Form("cidade")estado = Request.Form("estado")mensagem = Request.Form("mensagem")if email = "" thenemail = "meu email"end if'Coloque aqui o titulotitulo = "Contato"enviou = 0 'nadae_mail = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" /></head><body>"e_mail = e_mail &"<font face=""Arial"" size=""2""><h5>" & titulo & " - " & now & "</h5>"e_mail = e_mail & "<b>Nome: </b> " & nome & " <br>"e_mail = e_mail & "<b>Telefone:</b> " & telefone & " <br>"e_mail = e_mail & "<b>E-mail:</b> " & email &" <br>"e_mail = e_mail & "<b>Cidade/Estado:</b> " & cidade &"/"& estado &" <br>"e_mail = e_mail & "<b>Mensagem: </b> " & "<br>"e_mail = e_mail & mensagem & " <br>"e_mail = e_mail & & quot;____________________________________________________________________________" & "</font><br>"e_mail = e_mail & "</body></html>"Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") obj_Upload.Path = Server.MapPath("./upload")obj_Upload.Form("File").SaveResponse.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"Set obj_Upload = NothingWith objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Fields.update End WithSet objCDOSYSMail.Configuration = objCDOSYSCon With objCDOSYSMail.From = email.To = "meu email" .AddAttachment(Session("Arquivo")).Subject = titulo.HtmlBody = trata_string(e_mail).Send End WithSet objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing msg = "Contato enviado com sucesso" 'certoSession("Arquivo") = ""If Err.number<>0 thenmsg = "Ocorreu um erro ao enviar o contato." 'erradoEnd If end if %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="../css/styles.css" /><script src="../scripts/validador.js" type="text/javascript"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /></head><body style="background:#FFFFFF; font-size:12px"><div id="dentroConteudoGraduacao" class="sotexto"><% if msg <> "" then %><p class="labelTipVermelho"><img src="../imagens/img_ico/seta1.gif" alt="Seta" width="7" height="10" /> <%=msg%></p><p><% else %></p><p><img src="../imagens/img_ico/seta1.gif" alt="Seta" width="7" height="10" /> Para solicitar informações, enviar críticas e sugestões preencha o formulário abaixo. </p><form action="?flag=1" method="post" enctype="multipart/form-data" id="contato" onsubmit="MM_validateForm('nome','','R','telefone','','R','email','','RisEmail','cidade','','R','mensagem','','R');return document.MM_returnValue"><table border="0" cellpadding="0" cellspacing="5" class="contatoTable"><tr><td width="67" class="TipsDoContato"><strong>*</strong></td><td width="316" class="labelTipVermelho">Todos os campos são obrigatorios </td></tr><tr><td class="TipsDoContato"><strong>Nome*:</strong></td><td><input name="nome" type="text" id="nome" size="46" maxlength="200" /></td></tr><tr><td class="TipsDoContato"><strong>Telefone*:</strong></td><td><input name="telefone" type="text" id="telefone" onkeypress="return txtBoxFormat(this, '(99) 9999-9999', event);" size="15" maxlength="14" /></td></tr><tr><td class="TipsDoContato"><strong>E-mail*:</strong></td><td><input name="email" type="text" id="email" size="46" maxlength="200" /></td></tr><tr><td class="TipsDoContato"><strong>Cidade*:</strong></td><td><input name="cidade" type="text" id="cidade" size="46" maxlength="200" /></td></tr><tr><td class="TipsDoContato"><strong>Estado*:</strong></td><td><select name="estado" id="caestados"><option value="AC">AC</option><option value="AL">AL</option><option value="AM">AM</option><option value="AP">AP</option><option value="BA">BA</option><option value="CE">CE</option><option value="DF">DF</option><option value="ES">ES</option><option value="GO">GO</option><option value="MA">MA</option><option value="MG">MG</option><option value="MS">MS</option><option value="MT">MT</option><option value="PA">PA</option><option value="PB">PB</option><option value="PE">PE</option><option value="PI">PI</option><option value="PR" selected="selected">PR</option><option value="RJ">RJ</option><option value="RN">RN</option><option value="RO">RO</option><option value="RR">RR</option><option value="RS">RS</option><option value="SC">SC</option><option value="SE">SE</option><option value="SP">SP</option><option value="TO">TO</option></select></td></tr><tr><td class="TipsDoContato">Arquivo:</td><td><input name="file" type="file" size="40"></td></tr><tr><td class="TipsDoContato"><strong>Mensagem*:</strong></td><td><textarea name="mensagem" cols="45" rows="5" id="mensagem"></textarea></td></tr><tr><td class="TipsDoContato"> </td><td align="right"> </td></tr><tr><td class="TipsDoContato"> </td><td align="right"><input name="bt_enviar" type="image" class="nada" id="bt_enviar" onmouseover="mudaImg(this.id,'img_bts/bt_enviar_on.gif');" onmouseout="mudaImg(this.id,'img_bts/bt_enviar.gif');" src="../imagens/img_bts/bt_enviar.gif" /></td></tr></table></form><%end if%></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ellen    0

Ellen
Postado

Não dá nenhum erro...Chega no meu email um formulário sem nenhum dado, e um arquivo .dat em anexo.ObrigadaAh.. desculpe...Vou fazer uma pergunta bem boba, mas q não sei...Como defino as permissões no meu diretório??

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Bom vou verifcar o seu código e ver se consigo perceber algo.

 

Para dar permissão no XP e Win 2000:

[*]Click com o botão direto do mouse sobre o diretório e em compartilhar.

[*]Na janela que vai abrir você pode definir as permissõs na Aba Segurança. Lmbre-se você não precisa necessariamente compartilhar o diretório mas as permissões são importante.

t+

 

 

Não dá nenhum erro...

 

Chega no meu email um formulário sem nenhum dado, e um arquivo .dat em anexo.

 

Obrigada

 

 

 

 

Ah.. desculpe...

 

 

Vou fazer uma pergunta bem boba, mas q não sei...

Como defino as permissões no meu diretório??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ellen    0

Ellen
Postado

Olá Pessoal..... Consegui resolver o meu probleminha...1º Permissão no diretório pelo servidor; (Permissão para escrita)2º No 1º formulário tinha colocado a opção enctype="multipart/form-data", que é utilizado apenas para formulários que enviam arquivos, por isso as informações chegavam em branco. Vou postar meu código correto...

<%flag = request("flag") if flag = "" then flag = 0 end iffunction trata_string(str) str = replace(str,vbCrLf,"<br />") trata_string = strend functionif flag then On Error Resume Next nome = Request.Form("nome") telefone = Request.Form("telefone") email = Request.Form("email") cidade = Request.Form("cidade") estado = Request.Form("estado") mensagem = Request.Form("mensagem") if email = "" then email = "meu email" end if 'Coloque aqui o titulo titulo = "Contato " enviou = 0 'nada e_mail = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" /></head><body>" e_mail = e_mail &"<font face=""Arial"" size=""2""><h5>" & titulo & " - " & now & "</h5>" e_mail = e_mail & "<b>Nome: </b> " & nome & " <br>" e_mail = e_mail & "<b>Telefone:</b> " & telefone & " <br>" e_mail = e_mail & "<b>E-mail:</b> " & email &" <br>" e_mail = e_mail & "<b>Cidade/Estado:</b> " & cidade &"/"& estado &" <br>" e_mail = e_mail & "<b>Mensagem: </b> " & "<br>" e_mail = e_mail & mensagem & " <br>" e_mail = e_mail & "____________________________________________________________________________" & "</font><br>" e_mail = e_mail & "</body></html>" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") With objCDOSYSCon .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Fields.update End With Set objCDOSYSMail.Configuration = objCDOSYSCon With objCDOSYSMail .From = email .To = "meu email" .AddAttachment(Session("Arquivo")) 'anexa o arquivo .Subject = titulo .HtmlBody = trata_string(e_mail) .Send if acao = "upload" then Session("Arquivo") = "" end if End With Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Set obj_Upload = Nothing msg = "Contato enviado com sucesso" ' certo If Err.number<>0 thenmsg = "Ocorreu um erro ao enviar o contato." 'erradoEnd If end if acao = request("acao") if acao = "" then acao = "none" end ifif acao = "upload" then 'caso a acao seja upload, executa script do SaFileUp Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp") obj_Upload.Path = Server.MapPath("./upload") 'local onde será gravado o arquivo obj_Upload.Form("File").Save Session("arquivo") = obj_Upload.Form("File").ServerName 'recupera o nome do arquivo no servidor Response.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>" v_foco = " onLoad=""document.contato.nome.focus();""" 'coloca o cursor no campo do form de nome' Session("Arquivo") = ""end if%><script> function anexa_arquivo() { alert("anexando arquivo"); }</script><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="../css/styles.css" /><script src="../scripts/validador.js" type="text/javascript"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /></head><body style="background:#FFFFFF; font-size:12px"><div id="dentroConteudoGraduacao" class="sotexto"><% if msg <> "" then %><p class="labelTipVermelho"><img src="../imagens/img_ico/seta1.gif" alt="Seta" width="7" height="10" /> <%=msg%></p><% else %><p> </p><p><img src="../imagens/img_ico/seta1.gif" alt="Seta" width="7" height="10" /> Para solicitar informações, enviar críticas e sugestões preencha o formulário abaixo. </p><form action="?flag=1" method="post" id="contato" onsubmit="MM_validateForm('nome','','R','telefone','','R','email','','RisEmail','cidade','','R','mensagem','','R');return document.MM_returnValue"> <table border="0" align="center" cellpadding="0" cellspacing="5" class="contatoTable"> <tr> <td class="TipsDoContato"><strong>*</strong></td> <td class="labelTipVermelho">Todos os campos são obrigatorios </td> </tr> <tr> <td class="TipsDoContato"><strong>Nome*:</strong></td> <td><input name="nome" type="text" id="nome" size="46" maxlength="200" /></td> </tr> <tr> <td class="TipsDoContato"><strong>Telefone*:</strong></td> <td><input name="telefone" type="text" id="telefone" onkeypress="return txtBoxFormat(this, '(99) 9999-9999', event);" size="15" maxlength="14" /></td> </tr> <tr> <td class="TipsDoContato"><strong>E-mail*:</strong></td> <td><input name="email" type="text" id="email" size="46" maxlength="200" /></td> </tr> <tr> <td class="TipsDoContato"><strong>Cidade*:</strong></td> <td><input name="cidade" type="text" id="cidade" size="46" maxlength="200" /></td> </tr> <tr> <td class="TipsDoContato"><strong>Estado*:</strong></td> <td><select name="estado" id="caestados"> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR" selected="selected">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="SP">SP</option> <option value="TO">TO</option> </select></td> </tr> <tr> <td class="TipsDoContato"><strong>Mensagem*:</strong></td> <td><textarea name="mensagem" cols="45" rows="5" id="mensagem"></textarea></td> </tr> <tr> <td class="TipsDoContato"><strong>Anexo:</strong></td> <td align="right"><input name="txt_arquivo" type="text" disabled id="txt_arquivo" value="<%=Session("arquivo")%>" size="30"></td> </tr> <tr> <td class="TipsDoContato"> </td> <td align="right"> </td> </tr> <tr> <td class="TipsDoContato"> </td> <td align="right"><input name="bt_enviar" type="image" class="nada" id="bt_enviar" onmouseover="mudaImg(this.id,'img_bts/bt_enviar_on.gif');" onmouseout="mudaImg(this.id,'img_bts/bt_enviar.gif');" src="../imagens/img_bts/bt_enviar.gif" /></td> </tr> </table> </form> <p> </p> <form action="?acao=upload" method="post" enctype="multipart/form-data" name="frm_upload" id="frm_upload"> <table width="500" border="0" align="center" cellpadding="2" cellspacing="0"> <tr> <th colspan="2" scope="col">Por favor, insira seu arquivo, depois preencha o formulário abaixo: </th> </tr> <tr><th width="390" scope="col"><div align="center"><input name="file" type="file" size="40"></div></th> <th width="96" scope="col"><input name="Upload" type="submit" id="Upload" value="Upload"></th> </tr></table> </form> <p> </p><%end if%> </div></body></html>

Obrigada a todos q me ajudaram!!!Abraços...

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