Un pequeño ejemplo, algo de mi investigación a base de referencias en internet y el MSDN, de utilidad para sus aplicaciones, como por ejemplo para la notificación por email a sus destinatarios, ya Uds. vean que usos le dan, no me responsabilizo del mal uso.
< %@ Import Namespace=”System.Net” %>
< %@ Import Namespace=”System.Net.Mail” %>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
SendMail()
End Sub
Sub SendMail()
Dim MailMensaje As New MailMessage
Dim MailCliente As New SmtpClient
Dim strServidorCorreo As String = “MAILSERVER”
Dim intPuertoServidorCorreo As Integer = 25
Dim strCredenciales As New NetworkCredential(“USERNAME”, “PASSWORD”)
Dim strEnviadoDe As String = “QUIEN_ENVIA”
Dim strDestinatario As String = “MAIL_DESTINO”
Dim strCopiaDestinatario As String = String.Empty
Try
MailMensaje.From = New MailAddress(strEnviadoDe)
MailMensaje.ReplyTo = New MailAddress(strEnviadoDe)
MailMensaje.To.Add(New MailAddress(strDestinatario))
If Not strCopiaDestinatario = “” Then
MailMensaje.Bcc.Add(New MailAddress(strCopiaDestinatario))
End If
MailMensaje.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
MailMensaje.IsBodyHtml = True
MailMensaje.Priority = MailPriority.High
MailMensaje.Subject = “Asunto de Prueba “ & DateTime.Now.ToLongTimeString()
MailMensaje.Body = “Esto es una prueba “ & DateTime.Now.ToLongTimeString()
MailCliente.DeliveryMethod = SmtpDeliveryMethod.Network
MailCliente.Host = strServidorCorreo
MailCliente.Port = intPuertoServidorCorreo
MailCliente.UseDefaultCredentials = False
MailCliente.Credentials = strCredenciales
MailCliente.Send(MailMensaje)
Catch error As Exception
Trace.Warn(error.Message)
Finally
MailMensaje.Dispose()
MailMensaje = Nothing
MailCliente = Nothing
End Try
End Sub