ubiquitour.com

Como abrir Outlook 2007 con Visual Basic

Como abrir Outlook 2007 con Visual Basic

Tener el conocimiento sobre cómo abrir Outlook y leer correos electrónicos usando Visual Basic puede ayudarle a crear fácilmente aplicaciones de correo electrónico. En VB, puede utilizar el espacio de nombres "Microsoft.Office.Interop.Outlook del" para la interoperabilidad entre la aplicación VB y Outloook. Una vez que la conexión se establece a continuación, puede utilizar un bucle como un "para... Lazo"y recorrer en iteración todos los elementos de correo electrónico en una carpeta especial de Outlook. Con la ayuda de este espacio de nombres puede construir su propia aplicación de correo electrónico fácilmente usando VB.NET.

Instrucciones

1 Inicie 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." Pulsa "Ctrl" y "A" y pulse "Borrar" para eliminar el actual código.

2 Haga clic en el menú "Proyecto" y haga clic en "Agregar referencia". Haga clic en la pestaña de ". net" y haga doble clic en "Microsoft.Office.Interop.Outlook."

3 Empezar por declarar el espacio de nombres siguiente anterior "Moduel Module1:"

Las importaciones Microsoft.Office.Interop

4 Seguir creando las siguientes variables de objeto de Outlook:

Dim Otlk As Outlook.Application = New Outlook.Application

Dim OtlkItem = "IPM.Note"

Dim OtlkNspace As Outlook.NameSpace = Otlk.GetNamespace("MAPI")

Dim OtlkInbox As Outlook.MAPIFolder = OtlkNspace.GetDefaultFolder _

(Outlook.OlDefaultFolders.olFolderInbox)

Dim OtlkMlItms As Outlook.Items = OtlkInbox.Items

Dim OtlkMsg As Outlook.MailItem

Dim xCntr As Integer5

Copie y pegue el código siguiente para crear un "para... Lazo"y mostrar los elementos de correo se encuentran en la carpeta de"Correo"de Outlook:

For xCntr = 1 To OtlkMlItms.Count

If OtlkMlItms.Item(xCntr).MessageClass = OtlkItem Then

OtlkMsg = OtlkMlItms.Item(xCntr)

Console.WriteLine(xCntr)

Console.WriteLine(OtlkMsg.SenderName)

Console.WriteLine(OtlkMsg.Subject)

Console.WriteLine(OtlkMsg.ReceivedTime)

Console.WriteLine(OtlkMsg.Body)

Console.WriteLine("______________________________")

End If

Next6

Liberar las variables objeto de la memoria:

Otlk = Nothing

OtlkNspace = Nothing

OtlkMlItms = Nothing

OtlkMsg = Nothing