Provo così, ma non funziona... errore non specificato:
codice:
Set link = CreateObject("CDONTS.Newmail")
link.From = "miaemail@email.it"
link.To = EMAIL

file = "PDLNEW.rtf"
link.AttachFile file
------------
link.Body = messaggio
link.BodyFormat = 0 
link.MailFormat = 0 
link.Send
Set link = Nothing