Formulario de contato ASP com anexo
Olá pessoal,
Este formulário envia com anexo. Funciona perfeitamente. Poré eu gostaria de adaptálo para enviar para uma lista de contatos existentes em um bando de dados. Vou postar abaixo codigo funcionando.
----------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Exemplo LocaWeb</title>
<style type="text/css">.texto { font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size: 12px; color: #666666; text-decoration: none;
}
h4 { font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size: 16px; color: #666666; font-weight: bold; text-decoration: none;
}
input { font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size: 10px; color: #666666; font-weight: bold; text-decoration: none;
background-color: #E8E8E8;
}
file { font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size: 10px; color: #666666; font-weight: bold; text-decoration: none;
background-color: #E8E8E8;
}
textarea { font-family: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size: 10px; color: #666666; font-weight: bold; text-decoration: none;
background-color: #E8E8E8;
}</style>
</head>Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script
Case "upload" 'caso a acao seja upload, executa script do SaFileUp
Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
obj_Upload.Path = Server.MapPath("./") '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>"
Set obj_Upload = Nothing
v_situacao = "" 'habilita os campos pra enviar o e-mail
v_foco = " onLoad=""document.frm_email.txt_nome_rem.focus();""" 'coloca o cursor no campo do form de e-mail
Case "email" 'caso a acao seja email, executa script do CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'objeto de configuração do CDO
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserver")](http://schemas.microsoft.com/cdo/configuration/smtpserver) = "localhost"
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserverport")](http://schemas.microsoft.com/cdo/configuration/smtpserverport) = 25
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/sendusing")](http://schemas.microsoft.com/cdo/configuration/sendusing) = 2
objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")](http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout) = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Trim(Request.Form("txt_nome_rem")) & "<" & Trim(Request.Form("txt_email_rem")) & ">"
objCDOSYSMail.To = Trim(Request.Form("txt_nome_para")) & "<" & Trim(Request.Form("txt_email_para")) & ">"
objCDOSYSMail.AddAttachment(Session("Arquivo")) 'anexa o arquivo
objCDOSYSMail.Subject = Request.Form("txt_assunto")
objCDOSYSMail.TextBody = Request.Form("txt_corpo")
objCDOSYSMail.Send 'envia o e-mail com o anexo
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Response.Write "<script>alert('E-mail enviado com Sucesso!')</script>"
Session("Arquivo") = ""
End Select<div align="center" class="texto">
<h4> </h4>
<form action="?acao=upload" method="post" enctype="multipart/form-data" name="frm_upload" id="frm_upload">
<table width="500" border="1" cellspacing="0" cellpadding="2">
<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>
<form action="?acao=email" method="post" name="frm_email" id="frm_email">
<table width="500" border="1" cellspacing="0" cellpadding="2"><tr><th colspan="4">Remetente</th></tr>
<tr><th width="55">Nome:</th><td width="181"><div align="left">
<input name="txt_nome_rem" type="text" id="txt_nome_rem" size="30"<%=v_situacao%>>
</div></td><th width="55">Email:</th><td><div align="left">
<input name="txt_email_rem" type="text" id="txt_email_rem" size="30"<%=v_situacao%>>
</div></td></tr><tr><th colspan="4">Destinatário</th></tr>
<tr><th>Nome:</th><td><div align="left">
<input name="txt_nome_para" type="text" id="txt_nome_para" size="30"<%=v_situacao%>>
</div></td><th>Email:</th><td><div align="left">
<input name="txt_email_para" type="text" id="txt_email_para" size="30"<%=v_situacao%>>
</div></td></tr><tr><th>Assunto:</th><td><div align="left">
<input name="txt_assunto" type="text" id="txt_assunto" size="30"<%=v_situacao%>>
</div></td><th>Arquivo:</th><td><div align="left">
<input name="txt_arquivo" type="text" disabled id="txt_arquivo" value="<%=Session("arquivo")%>" size="30">
</div></td></tr><tr><th colspan="4">Mensagem</th>
</tr><tr><td colspan="4"><div align="center">
<textarea name="txt_corpo" cols="75" rows="5" id="txt_corpo"<%=v_situacao%>></textarea>
</div></td></tr><tr><td colspan="4"><div align="right">
<input name="Enviar" type="submit" id="Enviar" value="Enviar"<%=v_situacao%>>
</div></td></tr></table></form></div>
</body></html>---------------------------------
Gostaria de adapitar este método de envio no codigo acima. Ambos funcionam no meu servidor, porém este não envia anexo.
------------------------------
<%
response.buffer = true
Server.ScriptTimeout = 1000000
dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount
useraction=request("action")
select case useraction
case "send"
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails order by id"
rs.open sql,conn
do while not rs.eof
emails=rs("emails")
subject = request.form("subject")
comm = request.form("comm")
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = emails
objCDO.From = "LesteMais@gmail.com"
objCDO.Subject = subject
objCDO.Body = comm
objCDO.Send
rs.movenext
loop
set objCDO = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "<script>alert('Enviado com sucesso!');"
response.write "location.href='index.asp'</script>"
response.end
end selectrs.close
set rs = nothing
conn.close
set conn = nothing
%>
--------------
Espero que alguem possa me ajudar.
Desde já agradeço
MSN: marcos.plus@msn.com
E-mail: LesteMais@gmail.com
Discussão (2)
Carregando comentários...