email com anexo

arldin · March 14, 2012

Boa tarde amigos eu peguei um codico aqui mesmo de envio de email com anexo

Esta funcionando corretamente ele envia o anexo para a pasta do meu diretorio mais não envia para o meu email

Seque os codico dos scripts

INDEX.ASP

<html>
<head>
<title>ENVIA E-MAIL COM ANEXO</title>
</head>
<body>
<table border="0" width="20%" cellspacing="0" cellpadding="0">
 <tr>
   <td width="50%">
     <form method="POST" action="envia_email.asp">
       <table border="0" width="100%">
         <tr>
           <td width="40%" align="right">Nome:</td>
           <td width="60%"><input type="text" name="txt_nome" size="24"></td>
         </tr>
         <tr>
           <td width="40%" align="right">E-mail:</td>
           <td width="60%"><input type="text" name="txt_email" size="24"></td>
         </tr>
         <tr>
           <td width="40%" align="right">Assunto:</td>
           <td width="60%"><input type="text" name="txt_assunto" size="24"></td>
         </tr>
         <tr>
           <td width="40%" align="right">Mensagem:</td>
           <td width="60%"><textarea rows="2" name="txt_mensagem"cols="20"></textarea></td>
         </tr>
         <tr>
           <td width="40%" align="right">Anexo:</td>
           <td width="60%"><input type="text" name="txt_anexo" size="24" value="<%=session("arquivo")%>">
             <a href="up.html">anexar</a></td>
         </tr>
         <tr>
           <td width="40%" align="right"> </td>
           <td width="60%"><input type="submit" value="Enviar" name="b1"></td>
         </tr>
       </table>
     </form>
   </td>
 </tr>
</table>

</body>

</html>

ASPUPLOAD.ASP

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.Save("e:\home\rede2\sofestainfantis.com.br\web\arquivos\")
%>

<%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO

<%
Set FSO = CreateObject("scripting.FileSystemObject")
Set Folder = FSO.GetFolder("e:\home\rede2\sofestainfantis.com.br\web\arquivos")
Set Files = Folder.Files
%>

<%
For each objUploadedFile In Upload.Files
arquivo = objUploadedFile.ExtractFileName
response.Write(": " & objUploadedFile.ExtractFileName)
seq = seq + 1
Next

'criei uma session para armazenar o no do arquivo
session("arquivo") = arquivo

if session("arquivo") <> "" then
  response.redirect "http://www.sofestainfantis.com.br"
end if
%>

ENVIA_EMAIL.ASP

<%
dim arquivo
arquivo = session("arquivo")
caminho = "e:\home\rede2\sofestainfantis.com.br\ar592409\web\arquivos\"
caminho = caminho & arquivo

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="arldin@sofestainfantis.com.br"
msg.Subject = assunto
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
'Bom ai esta a linha onde vai anexar o arquivo ao e-mail
msg.AttachFile caminho
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado "
Response.Write session("arquivo")
%>

UP.HTML

<html>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp"> 

<table border="0" width="100%" cellspacing="0" cellpadding="0">
 <tr>
   <td width="35%" rowspan="3">
   </td>
   <td width="30%">
<p align="justify" style="line-height: 100%"><font size="1" face="Arial">
SELECIONE O ARQUIVO CORRETO PARA O ENVIO NO FORMULÁRIO</font>
   </td>
   <td width="35%" rowspan="3">
   </td>
 </tr>
 <tr>
   <td width="30%">
<p align="right"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" size="44">
   </td>
 </tr>
 <tr>
   <td width="30%">
     <p align="right"><INPUT TYPE=SUBMIT VALUE=" UPLOAD "> 
   </td>
 </tr>
</table>

</FORM>
</html>

Como falei ele envia para a pasta mais não envia para o meu email

me de uma orientação

Obrigado a toso

arldin · March 15, 2012

Amigos parte deste script já consegui resolve so estou agora quebrando a cabeça no script de envio para o email quando temto da o seguinte erro

erro no servidor HTT 500

abaixo segue o script

<%
dim arquivo
arquivo = session("arquivo")
caminho = "e:\home\rede2\sofestainfantis.com.br\web\arquivos\"
caminho = caminho & arquivo

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="arldin@sofestainfantis.com.br"
msg.Subject = assunto
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
'Bom ai esta a linha onde vai anexar o arquivo ao e-mail
msg.AttachFile caminho
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.write "E-mail Enviado "
Response.Write session("arquivo")
%>

desde já agradeço a todos

bareta · March 20, 2012

desabilite os erros amigáveis do navegador.

concentre suas duvida em um unico tópico sobre o assunto do e-mail...

tópico fechado

Sign In

email com anexo

Question

arldin

Link to comment

Share on other sites

2 answers to this question

Recommended Posts

arldin

Link to comment

Share on other sites

bareta

Link to comment

Share on other sites

Forum Statistics

Browse

Activity