Problema com anexo e Cdonts

[webfuture 0]

Olá pessoal, gostaria de tirar uma dúvida, talvez alguém já tenha visto algo do gênero, montei um script que faz o upload de arquivos usando o Dundas Upload e logo em seguida anexo este arquivo e envio por e-mail usando o Cdonts, porém, quando chega o anexo e tentamos abrir ele vem um monte de caracteres estranhos, não vem da forma correta, alguém sabe me dizer se existe alguma codificação no script a ser falado o tipo de arquivo a ser enviado ou o que fazer para corrigir ?

 

Vejam o código do script que recebe e envia o e-mail:

 

<%

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.Useuniquenames = true

objUpload.SaveToMemory

For Each objUploadedFile in objUpload.Files

fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)
fileext = objUpload.GetFileExt(objUploadedFile.OriginalPath)

titulo = objupload.form("titulo")
mensagem = objupload.form("mensagem")
para = objupload.form("para")

arquivo = filename

objUploadedFile.SaveAs "c:\" & arquivo

Next

Set ObjUpload = Nothing

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = para
EnviarMail.From = "contato@dominio.com.br"
EnviarMail.Subject = titulo
EnviarMail.AttachFile ("c:\" & arquivo)

conteudo_email = mensagem

MsgBody = conteudo_email

EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

%>

Xavier

[hargon 64]

Verifique se está salvando o arquivo corretamente.

 

Após isso, aí você verifica se "c:\" & arquivo é o endereço correto do arquivo upado (creio que esse é o erro).

[webfuture 0]

Olá hargon, o caminho do arquivo upado esta certo sim, estou dando mais uma procurada para ver se acho algo a respeito, até no proprio imasters agora vi que tem um topico fechado sobre este titulo, vou ver se acho algo e testo para ver se resolve.

 

Desculpe a demora na resposta,

 

Xavier

[zrageburn 0]

Verifica se o arquivo está indo com a extensão correta.