Email em CDO

[mvz 0]

Olá! Tenho um formulário de e-mail (CDO) no meu site que tem opção de enviar um anexo, mas se eu enviar sem anexar nada retorna um erro, com o anexo funciona perfeitamente... o código do e-mail:

 

<%

 

' Texto html

msgHTML = Request.Form("msg")

 

' Definindo uma variavel auxiliar

sch = "http://schemas.microsoft.com/cdo/configuration/"

 

' Criando o objeto de configuração do CDO

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

 

' Definindo as configurações

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.bililiu.net"

cdoConfig.Fields.Item(sch & "sendusername") = "contato=bililiu.net"

cdoConfig.Fields.Item(sch & "sendpassword") = "contato"

cdoConfig.fields.update

 

' Criando o objeto de msg do CDO

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

 

' Associando as configurações ao obj Mensagem

Set cdoMessage.Configuration = cdoConfig

 

' Definido variaveis da msg

cdoMessage.From = "contato@bililiu.net"

 

cdoMessage.To = Request.Form("destinatario")

cdoMessage.Subject = Request.Form("assunto")

 

' Utilize esta opção caso deseje definir o e-mail de resposta

cdoMessage.ReplyTo = Request.Form("email_from")

 

cdoMessage.HTMLBody = msgHTML

if msgHTML <> "" then

cdoMessage.AutoGenerateTextBody = false

cdoMessage.TextBody = msgHTML

end if

 

anexo = Request.Form("anexo")

 

cdoMessage.AddAttachment ("c:\home\bililiu\www\anexos\"& anexo &"")

cdoMessage.Send

Set cdoMessage = Nothing

Set cdoConfig = Nothing

%>

 

Erro:

 

CDO.Message.1 error '80070003'

 

The system cannot find the path specified.

 

/email.asp, line 74

(a linha 74 é esta: cdoMessage.AddAttachment ("c:\home\bililiu\www\anexos\"& anexo &""))

 

Se alguém puder me ajudar ,eu agradeceria muito! Valew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[jrcardozo 4]

já tentou fazer o simples, verificar se a variavel está vazia

 

if anexo<>"" thencdoMessage.AddAttachment ("c:\home\bililiu\www\anexos\"& anexo &"")end if

[mvz 0]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif é... melhor mesmo é o simples....

já tentou fazer o simples, verificar se a variavel está vazia

if anexo<>"" thencdoMessage.AddAttachment ("c:\home\bililiu\www\anexos\"& anexo &"")end if