para - vba leer correo outlook

Outlook ejecuta macro cuando el correo llega a un buzón no predeterminado

Question

Tengo configurados varios buzones en mi Outlook 2010. Me gustaría que se ejecutara una macro cuando reciba un correo en uno de los buzones de correo no predeterminados.

He codificado a continuación e "ThisOutlookSession" el código en "ThisOutlookSession" .

He conseguido que funcione para la bandeja de entrada del buzón predeterminado, pero no para la bandeja de entrada del buzón no predeterminado. Cuando trato de volver a abrir Outlook 2010 insertando el código, me dice: "Compile error in hidden module: ThisOutlookSession". El cuadro no predeterminado se llama ''abc.asia''.

Soy nuevo en vba así que cualquier entrada es apreciada, ¡gracias!

Dim WithEvents myInboxMailItem As Outlook Items

Private Sub myInboxMailItem_ItemAdd(ByVal Item As Object)
    MsgBox("Item Added")
End Sub

Private Sub Initialize_Handler()
    Dim fldInbox As Outlook.MapiFolder
    Dim gnspNameSpace As Outlook.NameSpace

    Set gnspNameSpace = Outlook.GetNameSpace("Mapi")
    Set fldInbox = gnspNameSpace.Folders("abc.asia").Folders("Inbox")
    Set myInboxMailtItem = fldInbox.Items

End Sub

Answer 1

Actualizar Set olRecip = olNs.CreateRecipient("[email protected]") con la dirección de correo electrónico correcta.

Option Explicit
Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
    Dim olNs As Outlook.NameSpace
    Dim Inbox  As Outlook.MAPIFolder
    Dim olRecip As Recipient

    Set olNs = Application.GetNamespace("MAPI")
    Set olRecip = olNs.CreateRecipient("[email protected]")  ''// Owner''s Name or email address
    Set Inbox = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox)
    Set Items = Inbox.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
    If TypeOf Item Is Outlook.MailItem Then
        Debug.Print Item.Subject
    End If
End Sub