Erro Ao Enviar Email Com Arquivo Anexado No Cdonts

[Ednaldo]

alguém pode me ajudar??

Antes estava instalado no servidor o WindowsServer2000 mudamos para Server2003,

e estou querendo enviar email com anexo, mais não está sendo enviado, alias o email é enviado, mais sem o anexo, estou mandando alguns texto e uma logo marca anexada, mais a figura não vai, só fica aparecendo um X no lugar da figura.

Estou usando o Sistema CDONTS, mais pelo que vi na net, o Windows2003 não vem com este sistema, foi mudado para o CDOSYS.

alguém pode me informar como farei para que meu sistema volte a funcionar.

Meu código está assim

Este é o lugar onde está sendo enviado o anexo.

Dim objMail

'Set objMail = Server.CreateObject("CDONTS.NewMail")

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

'----------------------- Formato HMTL ---------------------

' IF rcCliente("formato_e_mail") = "1" Then

HTML = Replace(HTML,vbCrLf,"<BR>") '-- Troque CR + LF por <BR>

HTML = HTML & "</body></html>"

objMail.AttachURL Server.MapPath("../logos/" & quallogo(idloja)), quallogo(idloja)

objMail.BodyFormat = 0

objMail.MailFormat = 0

' End if

[Decio]

Se já estava funcionando fica meio díficil saber , tente ver se o caminho da figura é este mesmo:

Server.MapPath("../logos/" & quallogo(idloja)), quallogo(idloja)

Tente usar um 'response.write para ver se o caminho esta correto.

O que tem em quallogo(idloja)) e para que serve a virgula depois desta variavel?? (, quallogo(idloja))