Email

[fantasma]

Fazer um form para mandar um arquivo anexo, que quando fazer o upload mostrar o arquivo no form para o envio do email.

[avontzdnb]

Primeiro é preciso criar o formulário onde será anexado o arquivo e colocado as informações para preenchimento dos dados

Arquivo email_anexo.asp

****************************************************************

<table width="611" border="0" align="center" height="215" cellspacing="0" cellpadding="0">

<tr bgcolor="#009966">

<td colspan="2" bgcolor="#009966">

<div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b><font color="#FFFFFF">Enviando

email por anexo</font></b></font></div>

</td>

</tr>

<tr bgcolor="#E6FFEC">

<td colspan="2"><font size="1" face="Verdana, Arial, sans-serif"><a href="java script:abrir('teste_safeup_anexo.asp')"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font face="Verdana, Arial, sans-serif">

<form name="form" method="post" action="teste_safeup1_anexo.asp" enctype="multipart/form-data">

<div align="center">

<input type="file" name="anexos" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

<input type="submit" name="Submit3" value="Anexar" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</div>

</form>

</font></font></font></font></font></font></font></a></font></td>

</tr>

<tr bgcolor="#E6FFEC">

<td colspan="2" height="167">

<form method="post" action="email_anexo1.asp">

<table width="613" border="0">

<tr>

<td width="335" height="38">

<div align="right"><font size="1" face="Verdana, Arial, sans-serif">Nome:</font></div>

</td>

<td width="353" height="38">

<input type="text" name="nome" size="30" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</td>

</tr>

<tr>

<td width="335" height="28">

<div align="right"><font size="1" face="Verdana, Arial, sans-serif">Email:</font></div>

</td>

<td width="353" height="28"><font size="1" face="Verdana, Arial, sans-serif">

<input type="text" name="email" size="38" maxlength="50" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</font></td>

</tr>

<tr>

<td width="335" height="16">

<div align="right"><font size="1" face="Verdana, Arial, sans-serif">Arquivo

</font></div>

</td>

<td width="353" height="16"><font size="1" face="Verdana, Arial, sans-serif"><%=request.querystring("anexos")%> <%=request.querystring("msg")%>

</font></td>

</tr>

<tr bgcolor="#009966">

<td colspan="2" height="40">

<div align="center"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1">

<input type="hidden" name="anexo" value="<%=request.querystring("anexos")%>">

<input type="submit" name="Submit" value="Enviar" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal">

</font></font></font></font></font></font></div>

</td>

</tr>

</table>

</form>

</td>

</tr>

</table>

****************************************************************

Agora é preciso criar o arquivo que fará o upload do arquivo que será enviado em anexo.

arquivo teste_safeup1_anexo.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

myFileUpload.Form("anexos").Path = "e:\home\login\dados"

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

%>

<%

response.redirect "email_anexo.asp?anexos="& arquivo &"&msg= anexado com sucesso!"

%>

****************************************************************************

Para criar o arquivo responsavel pelo envio da mensagem com o arquivo anexado, veja exemplo abaixo:

email_anexo1.asp

<%

vanexo = request.form("anexo")

vnome = request.form("nome")

vemail = request.form("email")

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

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "Nome Remetente" & "<teste@remetente.com.br>"

'e-mail do destinatário

objCDOSYSMail.To = "teste@provedor.com.br"

'anexo

objCDOSYSMail.AddAttachment("e:\home\login\dados\"& vanexo &"")

'assunto da mensagem

objCDOSYSMail.Subject = "Teste Anexo"

'conteúdo da mensagem

objCDOSYSMail.HtmlBody = request.form("recado")

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado com Sucesso..."

%>

************************************************************************************************************************************************

fonte: ajuda.locaweb.com.br

[fantasma]

eu quero sem componente........................alguém sabe me dizer