Layer 06

E-Mail in ASP

Dim objMail, messaggio

Costruiamo il contenuto della mail che dobbiamo spedire:

messaggio = "Questa mail è stata costruita" & VBcrlf
‘VBcrlf è una costante per invio
messaggio = messaggio & "in automatico con ASP."

Creiamo l’oggetto objMail con NewMail di CDONTS:

Set objMail = Server.CreateObject("CDONTS.NewMail")

Settiamo tutti i paramtri del caso, come mittente, destinatario, oggetto e corpo del mesasggio

objMail.From = "ilmioemail@ilmioprovider.etc"
objMail.To = "ilsuomail@ilsuoprovider.etc"
objMail.Subject = "l’oggetto della mail"
objMail.Body = messaggio

Impostiamo anche la priorità da dare alla mail

objMail.importance = 0
objMail.Send

Svuotiamo la variabile-oggetto objMail

Set objMail = Nothing

Adesso la nostra pagina è in grado di spedire mail ]]>