Categoria: VB.NET
Questa funzione serve per inviare una Email tramite un server SMTP.
Restituisce True in caso di successo oppure False in caso di errore.
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
Non ci sono commenti per questa pagina. Vuoi essere il primo a postare un commento?
Segnala questa pagina: