-
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.