[Resolvido] Script de envio de e-mail

[Thammynha 0]

Bom dia a Todos!!!

 

Estou desenvolvento um formulário de cadastro, onde no final de tudo o usuário poderá anexar arquivos...

 

Todos os dados deverão ir para o e-mail da empresa dona do site juntamente com os arquivos.

 

A principio tinha feito da seguinte forma:

 

Apos o cadastro, ele fazia o upload dos arquivos e no e-mail teria um link onde ele poderia visualizar os arquivos que ele mandou para o servidor.

 

Só que dessa forma, vai chegar uma hora que o servidor vai ficar com mtos arquivos desnecessários, por isso precisaria que fossem anexados ao email...

 

Deu pra entender ???? tem como fazer isso ?

 

Qualquer coisa.. se não fui clara na explicação, podem perguntar!!!!

 

 

Desde já, agradeço!!

 

beijinhos!

=*

[Charles Rodrigues 0]

Thammynha , nunca fiz formulário com anexo, sempre com o upload do arquivo. E pronto.

Mas 1° qual é o componente de envio que está usando, com o CDONTS, segue código

 

<%
Option Explicit 
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = "xanburzum@micro.com"
objMail.To = "ajuda@terra.com.br"
objMail.Subject = "Arquivo anexo"
objMail.Body = "Segue o arquivo solicitado!"
objMail.AttachFile Server.MapPath("foto.gif")
objMail.Send

Set objMail = Nothing
%>

Pelo que faria com o código acima, e como vejo em todos os webmails, é feito o upload para o servidor, e na linha onde tem objMail.AttachFile Server.MapPath("foto.gif") depois so excluir o arquivo, deve ter algum codigo por ai, para exlusão de arquivos no serer.

Se n entendeu responde, ou ADD ao msn, charles@criativoagencia.com

 

Eu aceito o beijo ;)

[Thammynha 0]

Obrigada Charles!!!!

 

=)

 

você deu uma ótima solução!!!!!

 

 

=*

 

 

obs: Vou te add no msn sim, mas utilizo durante o dia o e-mail tamiris@igolwe.com!!!!