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.

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"
%>

BOM QUALQUER DUVIDA ESTAMOS AI.

MEU MSN edsonscheffer@MSN.com

FALOW E ATÉ MAIS!

[Victor]

Você tem que usar um UPLOAD, olhe no seu servidor para ver qual componente de UPLOAD, para que possamos te ajudar melhor!!!!

[]'s

Victor

[EDSONET]

CARA, ESSE MEU SITE ESTA HOSPEDADO NO TERRA EMPRESAS, BOM AGORA NESSE HORARIO EU não CONSIGO ENTRAR EM CONTATO COM ELES.

não TEM IDEIA DE QUAL SERIA ESSE COMPONENTE?

[EDSONET]

OU SEI LÁ, não TEM COMO ME DAR UM EXEMPLO USANDO UM COMPONENTE QUALQUER SÓ PRA MIM TER UMA IDEIA, porque DAI O RESTO EU CORRO ATRAS!

[Victor]

Não senhor, pois não tem como descobrir, só fazendo e testando, mas isso é complicado, mande um e-mail pros caras do seu servidor e pergunte á eles.. Quando eles responderem você posta aqui!!! Se tiver mais alguma dúvida é só chamar, que nós estaremos tre ajudando!!!

[]'s

Victor

[Victor]

http://scriptbrasil.com.br/forum/index.php?showtopic=18949.. Ai tem um UPLOAD que eu postei la, é só pegar la!!!

[]'s

Victor