¿Cómo puedo leer el correo desde una perspectiva de la subcarpeta? Puedo leer en la Bandeja de entrada pero no tengo idea de cómo leer una carpeta que he creado en la Bandeja de entrada.

Aquí mi código simple para la aplicación de consola:

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

    MsgBox(otkMailItems.Count)
    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

Creo que esta línea debe ser cambiado:

Dim otkInboxFolder As Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

mi carpeta desde la que quiero leer el mail es:

Inbox -> domain.com -> support@domain.com
InformationsquelleAutor Chris | 2012-11-14

2 Comentarios

  1. 0

    puede utilizar el Outlook.Espacio de nombres.Carpetas(«nombrearchivo») de la propiedad. cada vez que se llama a esta propiedad devolverá un MAPIFolder que también tienen las Carpetas de la propiedad, de modo que usted puede utilizar si desea tener acceso de carpetas anidadas

    por ejemplo, digamos que usted desea tener acceso a la carpeta llamada «Bandeja de entrada» que está dentro de la carpeta «domain.com» que está dentro de la carpeta «[email protected]» usted va a estar usando el siguiente:

    Dim otkInboxFolder As Outlook.MAPIFolder = otkNameSpace.Folders("[email protected]").Folders("domain.com").Folders("Inbox")
    • Algunos comentarios pueden ayudar a explicar esta respuesta.
  2. 0

    Si es una subcarpeta de la carpeta Bandeja de entrada, puede utilizar el MAPIFolder.Colección de carpetas para llegar a que el niño subcarpetas.

    Dim otkInboxFolder As Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
    Dim SubFolder = otkInboxFolder.Folders.Item*"TheSubfolderName")
    Dim otkMailItems As Outlook.Items = SubFolder .Items

Dejar respuesta

Please enter your comment!
Please enter your name here