errore cdonts AttachFile

[cristian73]

Salve
ho un problema con CDONTS.
Tutto funziona correttamente inviando un email con allegato.
Mi dà invece errore se l'allegato non è presente.
come posso fare per inviare una email senza allegato?
grazie
saluti
cris

oggetto=Request.Form("oggetto")
body=Request.Form("body")
myattachment=Request.Form("allegato")

Toemail=Request.Form("email")

Dim objCDOMail

Set objCDOMail = Server.CreateObject("Cdonts.NewMail")
objCDOMail.From = "info@aa.it"
objCDOMail.To = "info@aa.it"
objCDOMail.Bcc = Toemail
objCDOMail.Subject = oggetto

objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = body
objCDOMail.AttachFile myAttachment

objCDOMail.Send
Set objCDOMail = nothing

[Roby_72]

Togli questa riga:

if len(myAttachment) > 0 then
objCDOMail.AttachFile myAttachment 
end if

Roby

[cristian73]

grazie
funziona tutto correttamente
cris