Questa funzione VB.net 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