problema invio mail [urgente]

[soundforgers]

salve a tutti.
uso questa funzione per mandare le mail:

function inviamail(a, testo, oggetto, mittente)
  Set objMail = server.createObject("CDONTS.NewMail")
  'Immissione del destinatario
  objMail.To = a
  'immissione del mittente
  objMail.From = mittente
  'immissione del soggetto della mail
  objMail.Subject = oggetto
  'immissione del testo della mail
  objMail.Body = testo
  objMail.BodyFormat = 0
  objMail.MailFormat = 0
  objMail.Send()
end function

solo che quando invio le mail e le guardo sul server non stanno nella cartella Queue ma in Pickup e non partono...
gli indirizzi di mittente e destinatario esistono perchè sono i miei...
quale optrebbe essere il problema?

[soundforgers]

up up