Olá..
Como faço para criar um formulário para ser enviado por email com anexo?
Teria que ser com CDO..
Aguardo ajuda e compreensão de todos...
Dúvida No Envio De Formulário Com Anexo Por Email
Started By ellen, 20/04/2007, 16:16
4 replies to this topic
#2
sk15
-
- Usuários
-
- 2071 posts
Super Veterano
- Sexo:Masculino
- Localidade:SP - SP
Posted 21/04/2007, 15:07
Veja essas URLs:
http://forum.wmonlin...howtopic=125226
http://site.locaweb....oCategoria=4733
http://forum.ievolut...?showtopic=1537
É so integrar os campos com de seu formulário com esses códigos ... todos os cods são meios parecidos ...
http://forum.wmonlin...howtopic=125226
http://site.locaweb....oCategoria=4733
http://forum.ievolut...?showtopic=1537
É so integrar os campos com de seu formulário com esses códigos ... todos os cods são meios parecidos ...
#3
Generation
-
- Usuários
-
- 1546 posts
Super Veterano
- Sexo:Masculino
- Localidade:Curitiba - PR
Posted 22/04/2007, 07:42
Isso mesmo que o sk15 disse, só ficou faltando que, para se enviar um anexo é preciso primeiramente que ele seja enviado ao servidor, através de upload (Veja qual a Opção de Componente que seu servidor lhe dá) , após isso voce usa o codigo do CDO e na linha correspondente ao anexo voce coloca o caminho que foi salvo o arquivo durante o upload, após o envio voce pode usar FSO ara excluir o arquivo, assim não acumula lixo no servidor.
[]'s
[]'s
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#4
ellen
-
- Usuários
-
- 17 posts
Novato no fórum
- Sexo:Não informado
Posted 23/04/2007, 11:00
Urgente...
Está dando um erro.... alguem poderia me ajudar...
O anexo não envia...
Está dando um erro.... alguem poderia me ajudar...
O anexo não envia...
<%
flag = request("flag")
if flag = "" then
flag = 0
end if
function trata_string(str)
str = replace(str,vbCrLf,"<br />")
trata_string = str
end function
if 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...nal.dtd""><html xmlns=""http://www.w3.org/19...l""><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").Save
Response.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"
Set obj_Upload = Nothing
With objCDOSYSCon
.Fields("http://schemas.micro...ion/smtpserver") = "localhost"
.Fields("http://schemas.micro...smtpserverport") = 25
.Fields("http://schemas.micro...tion/sendusing") = 2
.Fields("http://schemas.micro...nectiontimeout") = 30
.Fields.update
End With
Set objCDOSYSMail.Configuration = objCDOSYSCon
With objCDOSYSMail
.From = email
.To = "meu email"
.AddAttachment(Session("Arquivo"))
.Subject = titulo
.HtmlBody = trata_string(e_mail)
.Send
End With
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
msg = "Contato enviado com sucesso" 'certo
Session("Arquivo") = ""
If Err.number<>0 then
msg = "Ocorreu um erro ao enviar o contato." 'errado
End If
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR...nsitional.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>
#5
Generation
-
- Usuários
-
- 1546 posts
Super Veterano
- Sexo:Masculino
- Localidade:Curitiba - PR
Posted 23/04/2007, 20:49
Ellen, o que esta denro dessa session-->Session("Arquivo"), lembre-se que para enviar o anexo voce precisa colocar o caminho comelto que esta o arquvio dentro do servidor, por isso o anexo nao chega junto ao email.
[]'s
[]'s
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
