Enviar E-mail com Anexo

[Marcelo - Teté 0]

Ola pessoal...

 

Bom eu fiz uma programação para enviar anexos para e-mail...e esta dando erro quando chega na hora de salvar na pasta indicada..

Esta é a programação

 

<%

vanexo = request.form("anexo")

vnome = request.form("nome")

vemail = request.form("email")

 

HTML = " Nome:" & vnome &" Email: "& vemail &""

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = "Nome Remetente" & "<teste@remetente.com.br>"

'e-mail do destinatário

objCDOSYSMail.To = "teste@remetente.com.br"

'anexo

objCDOSYSMail.AddAttachment("e:\home\caminho\web\trabalhe_conosco\arquivo"& vanexo &"")

'assunto da mensagem

objCDOSYSMail.Subject = "Teste Anexo"

'conteúdo da mensagem

objCDOSYSMail.HtmlBody = request.form("recado")

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "E-mail enviado com Sucesso..."

%>

 

Se alguem souber me dizer pq esta dando erro no caminho....

 

Obrigado

[dark0 0]

cara, o caminho que você poe ae, tem que ser um caminho existente no servidorna maioria dos casos, você precisa combinar um form de upload junto com o email, ae funfa na boaEu fiz um exemplo usando CDONTS.. tem no Laboratorio de Scripts funcionando