Tecnología

Inicio

Cómo leer correo electrónico en Visual Basic

Cómo leer correo electrónico en Visual Basic


Saber leer su correo electrónico de Microsoft Office Outlook utilizando Microsoft Visual Basic puede ayudarle a desarrollar aplicaciones de correo electrónico de gran alcance. Outlook es un sistema de gestión de correo electrónico que se incluye en el paquete de Microsoft Office. Visual Basic es un lenguaje de programación orientado a objetos que se prefiere a menudo por los programadores para su flexibilidad y facilidad de uso. En unos pocos pasos se puede crear una aplicación de Visual Basic de Windows que leerá su bandeja de entrada y visualización de contenido de correo electrónico de Outlook a través de la ventana de la consola.

Instrucciones

1 Abra Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla. Haga doble clic en "Aplicación de consola." Pulse la tecla "Ctrl" y "A" y pulse "Borrar" para eliminar el código que está allí.

2 Copia y pega el código siguiente para su módulo "Module1.vb" para leer los elementos de correo electrónico en su bandeja de entrada de Outlook:

Las importaciones Microsoft.Office.Interop

Module Module1

Sub Main()

Dim otkApp Como Outlook.Application = Nueva Outlook.Application

Dim otkMailItem = "IPM.Note"

Dim otkNameSpace Como Outlook.NameSpace = otkApp.GetNamespace ( "MAPI")

Dim otkInboxFolder Como Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

otkMailItems dévil como Outlook.Items = otkInboxFolder.Items

Dim otkMessage Como Outlook.MailItem

Dim iCntr como número entero

Para iCntr = 1 Para otkMailItems.Count

Si otkMailItems.Item (iCntr) .MessageClass = Entonces otkMailItem

otkMessage = otkMailItems.Item (iCntr)

Console.WriteLine (iCntr)

Console.WriteLine (otkMessage.SenderName)

Console.WriteLine (otkMessage.Subject)

Console.WriteLine (otkMessage.ReceivedTime)

Console.WriteLine (otkMessage.Body)

Console.WriteLine ( "______________________________")

Terminara si

Siguiente

otkApp = nada

otkNameSpace = Nada

otkMailItems = Nada

otkMessage = Nada

End Sub

Módulo fin

3 Pulse la tecla "F5" para ejecutar el programa.