Cómo crear una aplicación de correo electrónico

Conocer cómo crear una aplicación de correo electrónico le puede ahorrar tiempo cuando se necesita para controlar correo electrónico a los usuarios. La forma más fácil de crear una aplicación de correo electrónico es mediante el uso de Microsoft Office Outlook. Outlook es un sistema de gestión electrónico que le proporciona todas las herramientas necesarias para administrar el correo electrónico. Puede utilizar Visual Basic.NET (VB.NET) para crear una aplicación de correo electrónico utilizando el objeto de aplicación de Outlook. VB.NET es un lenguaje de programación utilizado para crear aplicaciones de Windows tales como programas de correo electrónico.

Instrucciones

1 Iniciar Microsoft Visual Basic Express y haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla. Seleccione "Aplicación de Windows Forms". Haga clic en Aceptar."

2 Haga doble clic en "botón" en el panel de "caja de herramientas" para añadir un nuevo botón de control. Haga doble clic en "ListBox" para agregar un nuevo control de cuadro de lista. Haga doble clic en "Button1" para abrir el módulo "Form1.vb".

3 Copia y pega el código siguiente en "Button1" para leer el correo electrónico en la carpeta "Bandeja de entrada" de Outlook y agregar los datos al control ListBox:

Dim otlkApp Como Outlook.Application = Nueva Outlook.Application

Dim otkMailItem = "IPM.Note"

Dim olkNspace Como Outlook.NameSpace = otlkApp.GetNamespace ( "MAPI")

Dim otlkInbox Como Outlook.MAPIFolder = olkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

otlkMItems dévil como Outlook.Items = otlkInbox.Items

Dim otlkMsg Como Outlook.MailItem

Dim yCntr como número entero

Para yCntr = 1 Para otlkMItems.Count

Si otlkMItems.Item (yCntr) .MessageClass = Entonces otkMailItem

otlkMsg = otlkMItems.Item (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (yCntr)

Me.ListView1.Items.Add (otlkMsg.SenderName)

Me.ListView1.Items.Add (otlkMsg.Subject)

Me.ListView1.Items.Add (otlkMsg.ReceivedTime)

Me.ListView1.Items.Add (otlkMsg.Body)

Me.ListView1.Items.Add ( "______________________________")

Terminara si

Siguiente

otlkApp = nada

olkNspace = Nada

otlkMItems = Nada

otlkMsg = Nada

4 Haga clic en la pestaña "Form1.vb [Diseño]" y haga doble clic en "Button2" para abrir el procedimiento "Button2_Click". Escriba lo siguiente en "Button2_Click" para enviar un correo electrónico:

Dim otlkApp Como Outlook.Application = Nueva Outlook.Application

Dim myOtlkMail As Outlook.MailItem

myOtlkMail = otlkApp.CreateItem (Outlook.OlItemType.olMailItem)

myOtlkMail.UnRead = True

myOtlkMail.To = "[email protected]"

myOtlkMail.Subject = "sujeto va aquí"

myOtlkMail.HTMLBody = True

myOtlkMail.Body = "El cuerpo del texto va aquí"

myOtlkMail.Send ()

Editar las siguientes líneas de código y escriba la dirección de correo electrónico de destino:

myOtlkMail.To = [email protected]

5 Pulse la tecla "F5" para ejecutar el programa y, a continuación, haga clic en "Button1" para leer la carpeta "Bandeja de entrada" de Outlook. Haga clic en "Button2" para enviar un correo electrónico.