Yo trabajo en una perspectiva de la aplicación de VBA y necesito acceder a mi bandeja de entrada, pero me parece que estoy teniendo algunos problemas. Yo estoy usando la GetDefaultFoldder(olFolderInbox) método, sin embargo, tengo varias direcciones de correo electrónico configurar y ninguno de ellos aparece en mi carpeta personal de la bandeja de entrada.

Así que mi pregunta es, ¿dónde está esta carpeta predeterminada definida? ¿Cómo puedo saber que la bandeja de entrada es la de por defecto? Sé que hay también la GetFolderFromID método, si yo fuera a utilizar este,

¿cómo puedo encontrar una de las carpetas de identidad a punto?

Este es el código que estoy utilizando. Esto es de un tutorial sobre Timothy Allen Chen blog de como se ve aquí Timoteo Blog. El código:

Sub find_unread()
    On Error GoTo eh:
    Dim ns As Outlook.NameSpace
    Dim folder As MAPIFolder
    Dim item As Object
    Dim msg As MailItem

    Set ns = Session.Application.GetNamespace("MAPI")
    Set folder = ns.GetDefaultFolder(olFolderInbox)

    For Each item In folder.Items
        DoEvents
        If (item.Class = olMail) And (item.UnRead) Then
            Set msg = item
            Debug.Print msg.SenderEmailAddress
            msg.Display True
        End If
    Next

    MsgBox "All messages in Inbox are read", vbInformation, "All Read"
    Exit Sub
eh:
    MsgBox Err.Description, vbCritical, Err.Number
End Sub
sugiero que escribas el código real

OriginalEl autor loveforvdubs | 2011-05-24

1 Comentario

  1. 8

    Puede utilizar las Carpetas de la propiedad, y la cadena de múltiples propiedades de Carpetas juntos, para llegar a cualquier carpeta en el espacio de nombres. Algunos ejemplos

    La Bandeja de entrada (el mismo que GetDefaultFolder(olInbox))

    ns.Folders("Personal Folders").Folders("Inbox")

    Una subcarpeta de la Bandeja de entrada de nombre de Copia de seguridad

    ns.Folders("Personal Folders").Folders("Inbox").Folders("Backup")

    La OtherInbox en el mismo nivel que las Carpetas Personales

    ns.Folders("OtherInbox")

    El GetDefaultFolder es bueno para llegar rápidamente a una carpeta predeterminada, pero si usted necesita algo que no sea el predeterminado, simplemente desplácese hacia abajo en el árbol de Carpetas de la propiedad del espacio de Nombres de objetos.

    OriginalEl autor Dick Kusleika

Dejar respuesta

Please enter your comment!
Please enter your name here