none
Eingehende Mails mit Outlook 2013 VBA auswerten RRS feed

  • Frage

  • Hallo,

    ich habe mein Outlook so erweitert, dass ich via VBA bei bestimmten eingehneden Mails vorgegebene Aktionen ausführe.
    Dazu habe ich das folgende VBA Script:

    Public WithEvents fNew As Outlook.Items Public WithEvents fNewFIGARO 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 erfolgt die Bearbeitung
    End SUB

    Das funktioniert so weit ganz gut. Jetzt habe ich aber ein weiteres Postfach angebunden und möchte auch hier die eingehenden Mails bearbeiten.

    Das scheint irgendwie so zu gehen:

    Set fNew2 = Application.GetNamespace("MAPI").GetFolderFromID("die folderID").ITEMS

    So weit, so gut. Leider habe ich keine Idee, wie ich diese ID ermitteln kann.
    Hat da jemand eine Idee?
    Ich arbeite mit Outlook/Exchange2013
    Die Mails kommen also aus einem Exchange Server

    Bin für jeden Tipp dankbar

    Gruß

    cheapy

    Donnerstag, 1. Februar 2018 06:32

Alle Antworten

  • Hallo,

    in Outlook 2010 nutzen wir diesen Befehl um auf einen Unterordner zuzugreifen:

    Set listenbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("Listen")

    Dies sollte für einen Ordner auf der Hauptebene funktionieren:

        Set myspace = Outlook.GetNamespace("MAPI")
        Set pubfolder = myspace.Folders("Öffentliche Ordner - mailservice@golze.de")
        Set myFolder = myspace.Folders("mailservice@golze.de")
        
        Set pubfolder = pubfolder.Folders("Alle Öffentlichen Ordner")
        Set actfolder = pubfolder.Folders("Zeitpläne")
        Set actfolder = actfolder.Folders("Abwesenheitsplan")
        
        Set dbfolder = myFolder.Folders("Kalender")
        
        Set appitems = actfolder.Items
        Set myitems = dbfolder.Items

    Bin mir aber nicht sicher ob das auch auch für events funktioniert.

    Donnerstag, 1. Februar 2018 09:42
  • Hallo,

    das Problem ist erstmal nicht der Zugriff auf einen Ordner, sonder das Auslösen des NewMail Ereignisses, wenn Mails in der zusätzlichen Mailbox ankommen. Dafür benötige ich scheinbar die ID dieser zusätzlichen Mailbox.
    Mit meiner aktuellen Lösung wird nur auf neue Mail in der Inbox meines Mailaccounts reagiert.
    Und das scheinbar auch nur, wenn es keine Regeln gibt, die Mails direkt in einen anderen Ordner verschieben.

    Gruß

    cheapy

    Donnerstag, 1. Februar 2018 11:18