none
In Outlook incoming Calls aus zwei Mailboxen einlesen. RRS feed

  • Frage

  • Hallo,

    ich überwache mit VBA eingehende Calls in meiner Mailbox.

    Dazu benutze ich folgenden Code:

    Public WithEvents fNew As Outlook.Items
    
    
    Private Sub Application_Startup()
        Set fNew = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
    End Sub
    
    Private Sub fNew_ItemAdd(ByVal Item As Object)
    /*Hier wird die Mail untersucht und gegebenenfalls werden Anhänge in vorgegebenen Verzeichnissen gespeichert
    :
    :
    :
    
    End Sub

    Nun habe ich an Outlook eine weitere Mailbox angebunden, in die Reporting daten aus einem Projekt einlaufen.

    Kann mir Jemand sagen, wie ich die eingehenden Mails dieser Reporting Mailbox abfangen und die benötigten Anhänge speichern kann.

    Also genau genommen, muss ich ja nur wissen, wie ich in VBA den Trigger auf diese eingehenden Mails stellen muss.

    Ich bin für jeden Tipp dabnkbar.

    Gruß

    cheapy

    Dienstag, 6. September 2016 13:18

Antworten

  • Moin,

    eine ganz krude Methode wäre, die ID des "fremden" Posteingangs mit

    Sub GetFolderID()
        Dim nsMAPI As Outlook.NameSpace
        Dim fldX As Outlook.Folder
        Set nsMAPI = ThisOutlookSession.Application.GetNamespace("MAPI")
        Set fldX = nsMAPI.PickFolder
        Debug.Print fldX.EntryID  
    End Sub

    einmalig auszulesen, und dann in Deinem Code einfach statt

     Set fNew = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items

    in etwa folgendes zu verwenden:

     Set fNew = Application.GetNamespace("MAPI").GetFolderFromID("<ausgelesene Folder-ID>").Items

    EDIT: Hier ist beschrieben, wie man das auch aus dem Namen bekommen kann: https://msdn.microsoft.com/de-de/library/office/ff868990.aspx?f=255&MSPPError=-2147217396

    Ob das auch die Events liefert, hätte ich vor 8-10 Jahren aus dem Kopf sagen können, nu weiss ich es nicht mehr :-(


    Evgenij Smirnov

    msg services ag, Berlin -> http://www.msg-services.de
    my personal blog (mostly German) -> http://it-pro-berlin.de
    Windows Server User Group, Berlin -> http://www.winsvr-berlin.de
    Mark Minasi Technical Forum, reloaded -> http://newforum.minasi.com

    In theory, there is no difference between theory and practice. In practice, there is.


    Dienstag, 6. September 2016 19:56

Alle Antworten

  • Moin,

    eine ganz krude Methode wäre, die ID des "fremden" Posteingangs mit

    Sub GetFolderID()
        Dim nsMAPI As Outlook.NameSpace
        Dim fldX As Outlook.Folder
        Set nsMAPI = ThisOutlookSession.Application.GetNamespace("MAPI")
        Set fldX = nsMAPI.PickFolder
        Debug.Print fldX.EntryID  
    End Sub

    einmalig auszulesen, und dann in Deinem Code einfach statt

     Set fNew = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items

    in etwa folgendes zu verwenden:

     Set fNew = Application.GetNamespace("MAPI").GetFolderFromID("<ausgelesene Folder-ID>").Items

    EDIT: Hier ist beschrieben, wie man das auch aus dem Namen bekommen kann: https://msdn.microsoft.com/de-de/library/office/ff868990.aspx?f=255&MSPPError=-2147217396

    Ob das auch die Events liefert, hätte ich vor 8-10 Jahren aus dem Kopf sagen können, nu weiss ich es nicht mehr :-(


    Evgenij Smirnov

    msg services ag, Berlin -> http://www.msg-services.de
    my personal blog (mostly German) -> http://it-pro-berlin.de
    Windows Server User Group, Berlin -> http://www.winsvr-berlin.de
    Mark Minasi Technical Forum, reloaded -> http://newforum.minasi.com

    In theory, there is no difference between theory and practice. In practice, there is.


    Dienstag, 6. September 2016 19:56
  • Hallo Evgenij,

    ich habe diese "krude" Methode angewandt aber ich muss ja auf beide Mailboxen triggern.
    Da wird mich zweimal Set fNew ja nicht weiter bringen.
    Ich gehe mal davon aus dass ich zusätzlich z.B. ein fNew2 Outlook Items benötige.

    Ist das so richtig?

    Gruß

    cheapy


    Mittwoch, 7. September 2016 12:24
  • ja, würde ich jetzt so sehen. Aber rein aus Interesse: Triggert er die sekundäre Mailbox, wenn Du nur für sie die Events registrierst?

    Evgenij Smirnov

    msg services ag, Berlin -> http://www.msg-services.de
    my personal blog (mostly German) -> http://it-pro-berlin.de
    Windows Server User Group, Berlin -> http://www.winsvr-berlin.de
    Mark Minasi Technical Forum, reloaded -> http://newforum.minasi.com

    In theory, there is no difference between theory and practice. In practice, there is.

    Mittwoch, 7. September 2016 14:10