Spedire email con allegato un file su server...

[Pimpinelli]

Salve gente,
avevo già chiesto questa cosa ma con roby_72 poi ci siamo fermati.
Sono arrivato al punto che faccio upload su server di un file jpeg, bmp, gif, mediante un form.

Adesso però tale file deve essere spedito per email. Come devo fare?
Un altro form per l'email, e come lo interfaccio?

Grazie a tutti per le risposte.

[yro]

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!