Antonio Feliziani
a- a+

Invio di Mail Asp.Net 2.0

Andiamo ad analizzare come spedire una mail utilizzando ilnuovo Namespace del Framework 2.0 System.Net.Mail.

A primo impatto possiamo notare con piacere che nonostante ilcambiamento del namespace dal Precedente System.Web.Mail nonci sono state eccessive rivoluzioni in questa classe, masemplicemente sono state introdotte le collection che ora cidanno la possibilità di effettuare invii multipli dimail in un unico comando, inoltre è stata introdottauna gestione più certosina dell’autenticazioneverso il nostro server smtp e la possibilità di inviiasincroni.

Andiamo ora ad vedere in dettaglio la nostra funzione,è ovvio che in questo caso sarebbe stata buona cosadare l’imports di System.Net, cosa che non ho fatto peruna vostra maggiore compresione del codice. 

 

 

FriendFunction  SendMail() AsBoolean Try  ' Istanziamo il nostro nuovo messaggio Dim AspNet2Message AsNew System.Net.Mail.MailMessage ' Ora specicificheremo il mittente Dim Mittente AsNew System.Net.Mail.MailAddress( _"a.feliziani@dominio.com" ,"Antonio Feliziani")  AspNet2Message.From = Mittente ' Ora andiamo a specificare il destinatario o i destinatari 'possiamo specificare semplicemente l'indirizzo 'dello stesso in questo modo :  AspNet2Message.To.Add("info@DominioDestinatario.it") 'altrimenti possiamo passare un "MailAddress" 'come abbiamo fatto per il mittente 'istanziandolo più rapidamente della precedente volta in questo modo  AspNet2Message.To.Add(New System.Net.Mail.MailAddress( _    "destinatario2@email.com" ,"NomeDestinatario CognomeDestinatario")) 'a questo punto vado a costruire il soggetto e il corpo del messaggio 'specificando il formato di quest'ultimo  AspNet2Message.Subject = "Testo oggetto del messaggio"  AspNet2Message.Body ="<b>Titolo</b><br/>Corpo del messaggio"  AspNet2Message.IsBodyHtml = True 'ora andiamo a fare le connessioni con il server per l'invio della mail 'Cominciamo dal server Smtp Dim OutSmtp AsNew System.Net.Mail.SmtpClient("out.server.it") 'nel caso stiamo utilizzando un server Smtp 'che ci richieda l'autenticazione 'possiamo aggiungere i parametri per la stessa in questo modo Dim SmtpCredential AsNew System.Net.NetworkCredential( _"user" ,"pass" , "SeRichiestoDominio")  OutSmtp.UseDefaultCredentials = False  OutSmtp.Credentials = SmtpCredential ' a questo punto possiamo specificare il metodo di spedizione  OutSmtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network  OutSmtp.Send(AspNet2Message) Return True Catch ex As Exception     Return FalseEx code………… FinallyMore……………  EndTry    EndFunction