Antonio Feliziani
a- a+

Invio di Mail Asp.Net 2.0

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

A primo impatto possiamo notare con piacere che nonostante il cambiamento del namespace dal Precedente System.Web.Mail non ci sono state eccessive rivoluzioni in questa classe, ma semplicemente sono state introdotte le collection che ora ci danno la possibilità di effettuare invii multipli di mail in un unico comando, inoltre è stata introdotta una gestione più certosina dell’autenticazione verso il nostro server smtp e la possibilità di invii asincroni.

Andiamo ora ad vedere in dettaglio la nostra funzione, è ovvio che in questo caso sarebbe stata buona cosa dare l’imports di System.Net, cosa che non ho fatto per una 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 False

            Ex code…………

       Finally

            More……………

        EndTry


    EndFunction



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Francesco
Hai dubbi su questo articolo?