Inviare una Email tramite un server SMTP

Questa funzione serve per inviare una Email tramite un server SMTP.
Restituisce True in caso di successo oppure False in caso di errore.

Codice

Imports System.Net.Mail

''' <summary>
''' Invia una Email attraverso un server SMTP
''' </summary>
''' <param name="FromEmail">Indirizzo email del mittente</param>
''' <param name="FromNome">Nome del mittente che verrà visualizzato dal destinatario</param>
''' <param name="ToEmail">Indirizzo email del destinatario</param>
''' <param name="Oggetto">Oggetto del messaggio</param>
''' <param name="Corpo">Corpo del messaggio</param>
''' <param name="ServerSmtp">Nome Host o indirizzo IP del server SMTP</param>
''' <returns>Restituisce True in caso di successo oppure False in caso di errore</returns>
''' <remarks>Per indirizzare il messaggio a più destinatari _
        separare gli indirizzi con una virgola (,)</remarks>
Private Function SendSmtpMail(ByVal FromEmail As String, _
                              ByVal FromNome As String, _
                              ByVal ToEmail As String, _
                              ByVal Oggetto As String, _
                              ByVal Corpo As String, _
                              ByVal ServerSmtp As String) As Boolean

	Dim messaggio As New MailMessage
	With messaggio
		.From = New MailAddress(FromEmail, FromNome)
		.To.Add(ToEmail)
		.Priority = MailPriority.Normal
		.IsBodyHtml = False
		.Subject = Oggetto
		.Body = Corpo
	End With
	Dim smtp As New SmtpClient(ServerSmtp)
	Try
		smtp.Send(messaggio)
		return true
	Catch ex As System.Exception
		return false
	End Try

End Function

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *