O anexo não chega!!
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"">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"](http://schemas.microsoft.com/cdo/configuration/smtpserver)) = "localhost" .Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserverport"](http://schemas.microsoft.com/cdo/configuration/smtpserverport)) = 25 .Fields("[http://schemas.microsoft.com/cdo/configuration/sendusing"](http://schemas.microsoft.com/cdo/configuration/sendusing)) = 2 .Fields("[http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"](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">](http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd%22)<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml%22)<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>Discussão (4)
Carregando comentários...