codice:
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = mittente
MiaMail.To = destinatario
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = oggetto
MiaMail.HTMLBody = body

allegato=Server.MapPath(percorso.del.file.da.allegare)
MiaMail.AddAttachment (allegato)

MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
questo lo script che uso io per mandare email... con allegato!