Cómo leer correos electrónicos en Visual Basic

Escrito por jaime avelar | Traducido por juliana star
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo leer correos electrónicos en Visual Basic
Lee correo electrónico usando Visual Basic. (email image by Soja Andrzej from Fotolia.com)

Saber cómo leer el correo electrónico de Microsoft Office Outlook usando Microsoft Visual Basic puede ayudarte a desarrollar poderosas aplicaciones de correo electrónico. Outlook es un sistema de administración de correo incluido en la suite de Microsoft Office. Visual Basic es un lenguaje de programación de computadoras orientado a objetos que a menudo es preferido por los programadores por su flexibilidad y facilidad de uso. En unos cuantos pasos puedes crear una aplicación de Windows con Visual Basic que pueda leer tu bandeja de entrada de Outlook y mostrar contenido de correo electrónico a través de la ventana de la consola.

Nivel de dificultad:
Moderadamente fácil

Otras personas están leyendo

Necesitarás

  • Microsoft Visual Basic.NET

Lista completaMinimizar

Instrucciones

  1. 1

    Abre Microsoft Visual Basic Express y haz clic en "Nuevo proyecto..." en el panel izquierdo de la pantalla. Haz doble clic en "Aplicación de consola". Presiona "Ctrl" y "A" y luego presiona "Delete" para eliminar el código que se encuentre ahí.

  2. 2

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

    Imports Microsoft.Office.Interop

    Module Module1 Sub Main() Dim otkApp As Outlook.Application = New Outlook.Application Dim otkMailItem = "IPM.Note" Dim otkNameSpace As Outlook.NameSpace = otkApp.GetNamespace("MAPI") Dim otkInboxFolder As Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder _ (Outlook.OlDefaultFolders.olFolderInbox) Dim otkMailItems As Outlook.Items = otkInboxFolder.Items

    Dim otkMessage As Outlook.MailItem Dim iCntr As Integer For iCntr = 1 To otkMailItems.Count If otkMailItems.Item(iCntr).MessageClass = otkMailItem Then 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("______") End If Next

    otkApp = Nothing otkNameSpace = Nothing otkMailItems = Nothing otkMessage = Nothing End Sub End Module

  3. 3

    Presiona "F5" para ejecutar el programa.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles