Upload de arquivo para envio de E-mail

[Rserpa 0]

Pessoal, preciso fazer um formulario upload onde o usuario preenche o nome, o e-mail e seleciona o arquivo no micro dele para enviar.Esse arquivo selecionado tem que ser enviado por e-mail (cdonts).Alguem pode me ajudar?Rserpa

[jrcardozo 4]

faça uma visita ao laboratório de scripts, lá tem um exemplo de upload sem componentes com envio de email

[Rserpa 0]

Consultei o Laboratorio de scrpts, encontrei um código enviado pelo Dark0, mas nao entendi o que ele quiz dizer na linha do Cdonts.

<%' Código montado por dark0.' Quando forem utilizar este exemplo, lembrem de mim tongue.gifremetente = request("nome") & request("email")destinatario = "Rodrigo < rodrigo@mxr.com.br >"assunto = "Teste de Envio de E-mail com Anexo"corpo = "Testando o Envio de E-mail com Cdonts com Anexo"corpo = corpo & "<br><br>O anexo veio junto ào e-mail?"Set objNewMail = Server.CreateObject("CDONTS.NewMail")objNewMail.BodyFormat = 0objNewMail.MailFormat = 0objNewMail.From = remetenteobjNewMail.To = destinatarioobjNewMail.Subject = assuntoobjNewMail.Body = corpo'objNewMail.AttachFile Server.MapPath("pasta/arquivo.exe") NAO ENTENDI ESSA LINHAobjNewMail.AttachFile Server.MapPath("../../database/") ' COLOQUEI O CAMINHO DA PASTA COM PERMISSAO DE ESCRITAobjNewMail.SendResponse.Write "Mensagem enviada com sucesso"%>

Dark0 comentou: O comando que adiciona um anexo ào cdonts, é a linha em vermelho. Mas não entendi o que é pra fazer nessa linha:objNewMail.AttachFile Server.MapPath("pasta/arquivo.exe")Esta dando o erro: erro '80004005'/teste/email_anexo1.asp, line 19 lembrando que o código esta na pasta wwwroot/teste no provedorRserpa