Email Cdonts Com Anexo

[EDSONET]

BOM O PROBLEMA É O SEGUINTE, FIZ UM FORMULRAIO DE ENVIO DE E-MAIL E FUNCIONA PERFEITAMENTE. MAIS AGORA EU GOSTARIA QUE TIVESSE A OPÇÃO ONDE A PESSOA QUE ESTA ENVIANDO O E-MAIL POSSA ESCOLHAR UM ARQUIVO PRÉ SELECIONADO EM SEU COMPUTADOR PARA ANEXAR JUNTO AO E-MAIL. SERÁ QUE FUI CLARO?

BOM LOGO ABAIXO ESTA O CÓDIGO EU EU TENTEI DESENVOLVER, MAIS não DEU MUITO CERTO. DEEM UMA OLHADA E ME AJUDEM A ENXERGAR O ERRO.

ONTEM EU já POSTEI AKI E O " VICTOR " ME DISSE PRA CONSEGUIR O COMPONENTE PARA 'UPLOAD' , LIGUEI PRO TERRA HOJE E CONSEGUI O BENDITO CÓDIGO.

O CÓDIGO (ESSE É O DO FORMULARIO):

<form action="envia_email_anexo.asp" method="post" ENCTYPE="multipart/form-data">
<table width="76%" border="0" cellpadding="0">
<tr> 
<td width="12%"><div align="right"><font size="1" face="Arial">Nome:</font></div></td>
<td width="88%"><font size="1"><input name="txt_nome" type="text" id="txt_nome" size="60" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></font></td>
</tr>
<tr> 
<td><div align="right"><font size="1" face="Arial">Email:</font></div></td>
<td><font size="1"><input name="txt_email" type="text" id="txt_email" size="60" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></font></td>
</tr>
<tr> 
<td>
<p align="right"><font size="1" face="Arial">Assuunto:</font></td>
<td><font size="1"><input name="txt_assunto" type="text" id="txt_assunto" size="60" style="font-size: 8 pt; font-family: Arial; border: 1 solid #808080"></font></td>
</tr>
<tr> 
<td><div align="right"><font size="1" face="Arial">Evento:</font></div></td>
<td><!--webbot bot="Validation" B-Disallow-First-Item="TRUE"
--><select size="1" name="combo_evento" style="font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0">
<option selected value=" - Assuntos Gerais">-------------&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Nenhum Evento&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-------------</option>
<option>VIII Jornada de Enfermagem</option>
<option>I Jornada de Nutrição</option>
<option>VII Congresso Internacional de Fixadores</option>
<option>X Encontro Sobre WNNICOTT</option>
</select></td>
</tr>
<tr> 
<td>
<p align="right"><font size="1">Anexo:</font></td>
<td><font size="1"><input type="file" name="File1" id="File1" size="45" style="font-size: 8 pt; font-family: Arial; background-color: #FFFFFF; border: 1 solid #808080"></font></td>
</tr>
<tr> 
<td><div align="right"><font size="1" face="Arial">Mensagem:</font></div></td>
<td><font size="1"><textarea name="txt_mensagem" cols="62" rows="7" id="txt_mensagem" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></textarea></font></td>
</tr>
<tr>
<td></td>
<td><font size="1"><input type="submit" name="Submit" value="   Enviar   " style="font-family: Arial; font-size: 8 pt; color: #606060; background-color: #FFFFFF; border: 1 solid #808080"></font></td>
</tr>
</table>
</form>

ESSE É O envia_email_anexo.asp :

<%
'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")
evento = request.form ("combo_evento")
anexo = request.form ("File1")
espaco = " - "

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="emaildofulano"
msg.Subject = assunto & espaco & evento
texto = "O usuário "&nome&" lhe envio a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
msg.AttachFile Server.MapPath(anexo)
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.Redirect "email_enviado.html"
%>

E ESSE É DO UPLOAD DO TERRA: form_upload.htm :

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp"> 
<INPUT TYPE=FILE SIZE=60 NAME="FILE1">
<INPUT TYPE=FILE SIZE=60 NAME="FILE2">
<INPUT TYPE=FILE SIZE=60 NAME="FILE3">
<INPUT TYPE=SUBMIT VALUE="Upload!"> 
</FORM>

Aspupload.asp :

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = upload.SaveVirtual("\\terraempresa.com.br\clusterX\login_ftp\wwwroot\")
%>
<%= Count %> files uploaded.

Bom eu espero não ter esquicido de nada... Poxa vida será que alguém sabe fazer isso ou tem uma soluçao lógica pra isso?!?!?! Acho que nem Deus sabe...

Bom vamos ver, aguardo respostas!

Grato,

Edson MArques Scheffer

[pgmador]

Pra anexar o arquivo no CDONTS, use o AttachFile, com os seguintes parâmetros

msg.AttachFile "c:\anexo.txt"

ou

msg.AttachFile Server.MapPath("/anexo.txt")

Veja se funciona

[]'s

Pgmador