Email con attachment

Per inviare file in attach in una mail, ecco uno script di esempio:

<%

Dim miaMail

Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.From = "mittente@della.mail"

miaMail.To = "destinatario@della.mail"

miaMail.Subject = "Oggetto della mail"

miaMail.BodyFormat = 0

miaMail.MailFormat = 0

miaMail.Importance = 0

'Invio il file

miaMail.AttachFile "c:freeasp.txt", "nuovoNome.txt"

miaMail.Body = "Testo della mail"

miaMail.Send

Set miaMail = Nothing

%>

E' possibile scegliere un nuovo nome per il file inviato oppure no, inserendo esclusivamente il percorso del file:

<%

miaMail.AttachFile "c:freeasp.txt"

%>