[Resolvido] Habilitar anexo em CDONTS.NewMail

Olá, utilizo este script para enviar e-mails para minha lista de contatos.

Somente texto ele envia sem erro.

Estou tentando habilitar o campo AttachFile e esta aparecendo o error '80004005'

Segue parte do codigo onde estou acrescentando

- - -

Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.To = emails
objCDO.From = remetente
objCDO.Subject = subject
objCDO.Body = comm
objCDO.AttachFile ("e:\home\lestemais\Web\Marcos\Logomarca.jpg")
objCDO.Send
rs.movenext- - - - Se desabilito a linha objCDO.AttachFile ("") o e-mail é enviado.

Alguem pode me ajudar?

No exemplo assima não preciso necessariamente fazer o ulpload do arquivo. Sempre será enviado o mesmo anexo

Abraços