CDONTs com anexo

[neotheone 0]

Fala pessoal! O sistema abaixo pega um arquivo do formulario e faz Upload para o servidor e depois tenta anexa-lo

ele não está dando erro algum, porém email tmb nao esta chegando

 

Alguem poderia me ajuda?

 

<%Dim objUpload, arquivoxset objUpload = server.CreateObject("Persits.Upload")objUpload.SetMaxSize 150000, trueobjUpload.Save Server.MapPath("/arquivo")For Each File in objUpload.Filesarquivox=File.Path Next'File.ExtractFileNameset objUpload=nothing'criação do objeto de emailset msg=Server.CreateObject("CDONTS.NewMail")msg.From=email 'email do remetentemsg.To="jffrod@uol.com.br" 'email do destinariomsg.Subject="Currículo" 'assuntomsg.BCC="felipe_flora@yahoo.com.br"msg.Body="Aqui vem o currículo"msg.AttachFile arquivoxmsg.Sendset msg=nothingresponse.write("SUCESSO!!!!")%>

[jrcardozo 4]

veja o valor que está na variavel arquivox antes de enviar o email

set objUpload=nothingresponse.write arquivoxresponse.end()'criação do objeto de email'....

[neotheone 0]

Agora consigo rodar o script sem erro, porém o email não chega.

 

O que pode estar havendo?

 

<%Dim objUpload, arquivoxset objUpload = server.CreateObject("Persits.Upload")objUpload.SetMaxSize 150000, trueobjUpload.SaveVirtual("/arquivo")'File.ExtractFileNameFor Each File in objUpload.Filesresponse.Write(File.FileName & " = " & File.Path & " (" & File.Size & "bytes)<br>")arquivox=File.FileNamenext'criação do objeto de emailset msg=Server.CreateObject("CDONTS.NewMail")msg.From=email 'email do remetentemsg.To="jffrod@uol.com.br" 'email do destinariomsg.Subject="Currículo" 'assuntomsg.BCC="felipe_flora@yahoo.com.br"msg.Body="Aqui vem o currículo"msg.AttachFile server.MapPath("arquivo/"&arquivox)msg.Sendset msg=nothingresponse.write("SUCESSO!!!!")%>