Saludos!!!

Hola a todos los visitantes de este humilde blog, como lo habran notado tiene ya dos meses que no he posteado nada, y en parte no lo he echo por el tiempo y mi trabajo, ademas de que por mi mente paso la idea de saber si quienes visitan este blog encuentran util la informacion aqui mostrada, por eso abri la encuesta, solo que tengo mas visitas que votos, por eso le invito a votar para de esa manera animarme y programar un tiempo para seguir posteando.

Saludos!!!

Enviar emails con Visual Basic

Hola en este sencillo ejemplo enviaremos un email con las credenciales de gmail, aqui las capturas de la aplicacion:

Diseñamos un formulario parecido a este

y el resultado...


El codigo de la aplicacion:

Imports System.Net.Mail 'Libreria para el envio de emails
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enviar.Click
'creamos un nuevo mensaje de correo
Dim correo As New MailMessage
'De
correo.From = New MailAddress(Me.from.Text)
'Para
correo.To.Add(Me.ToAddress.Text)
'Asunto
correo.Subject = Subject.Text
'Cuerpo del correo
correo.Body = Body.Text
'Mostrar como HTML
correo.IsBodyHtml = False
'Prioridad de el correo
correo.Priority = MailPriority.Normal
'Usaremos por default a gmail y su puerto SMTP
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Port = 587
smtp.Credentials = New System.Net.NetworkCredential("cuenta@gmail.com", "password")
smtp.EnableSsl = True
Try
'enviamos el correo
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente", MsgBoxStyle.Information, "Envio de Emails")
Catch ex As Exception
MsgBox("Ocurrio el siguiente Error:" & ex.Message, MsgBoxStyle.Critical, "Envio de Emails")
End Try
End Sub
End Class

Como observaran es necesario contar con credenciales reales de gmail, despues lo haremos con cualquier otra cuenta, Saludos!!!

Generar codigos de Barras en Visual Basic .Net

Imagen de la Aplicacion:

Resultado de la impresion:



Para generar codigos de barras instalaremos previamente la fuente:3 of 9 Barcode

y el codigo de la aplicacion a continuación...

Imports System.Drawing.Printing

Public Class Form1
Dim Contenido As PrintPageEventArgs
Dim WithEvents Documento As New PrintDocument
Dim impresora As New PrintDialog


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)
Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)
Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class