Questo semplice metodo permette di inviare un’Email utilizzando l’indirizzo @postacertificata.gov.it

Imports System.Web.Mail
Public Class SslMailSender
Public Shared Function SendEmail(ByVal Username As String, ByVal Password As String, ByVal MailTo As String, ByVal MailSubject As String, ByVal MailBody As String, ByVal MailFormat As System.Web.Mail.MailFormat) As Boolean
Try
Dim sslMail As New System.Web.Mail.MailMessage()
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "mail.postacertificata.gov.it")
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "465")
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2") 'Send the message using the network (SMTP over the network)
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'YES
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Username)
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Password)
sslMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")
sslMail.From = Username
sslMail.To = MailTo
sslMail.Subject = MailSubject
sslMail.BodyFormat = MailFormat
sslMail.Body = MailBody
System.Web.Mail.SmtpMail.SmtpServer = "mail.postacertificata.gov.it:465"
System.Web.Mail.SmtpMail.Send(sslMail)
Return True
Catch ex As Exception
Throw
End Try
End Function
End Class

Da notare che viene utilizzato il namespace System.Web.Mail e non System.Net.Mail in quanto ad oggi non è possibile mandare un messaggio con System.net.Mai utilizzando ssl e le proprie credenziali.
Saluti

 

Altri Articoli

VB.NET: IsBoolean Funzione per verificare se una v...
views 393
Con questa semplice funzione è possibile verificare se una varibile sia di tipo boolean:    Public Function IsBoolean(ByVal Value As ...
VB.NET: Estrarre valori numerici da una stringa
views 362
Ecco una semplice funzione che permette di estrarre una serie di numeri da una stringa: Public Function ExtractDecimalValues(ByVal Text As String) A...
VB.NET: Creare un report in diversi formati e apri...
views 230
Ecco un semplice script che permette di generare un report in vari formati con un datasource e aprire il file creato:   Public Shared Function ...
VB.Net: Convertire un documento Word in PDF senza ...
views 141
Una soluzione alternativa per convertire un documento Word puo' essere l'utilizzo di una stampante pdf, in questo caso utilizzeremo Bullzip Pdf Prin...