il server è gestito da te?

io uso questo codice:

codice:
'invio email

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To = strEmaila
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = strTitolo
MiaMail.HTMLBody = strBody
if strAllegato <> "" then
dim allegato
allegato=Server.MapPath("/cartella/strAllegato)
MiaMail.AddAttachment (allegato)
end if
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing