none
neues Outlook-AddIn macht Spaß, aber zeigt mir keine eMails mehr an RRS feed

  • Frage

  • Moin moin,

    ich versuche immer noch mein altes Outlook-AddIn zu migrieren in neue Version.

    Ich habe darin auch eine Funktion, die mir in der Ordnerliste voreingestellte Öffentliche Ordner aufklappt.
    Und abermals stört sich Outlook an folgender Zeile:

    oExpl.CurrentFolder = fld


    Das Ergebnis ist, dass die Liste mit vorhandenen eMails leer dargestellt wird.
    (Im Einzelschritt-Modus sieht eigentlich alles gut aus, bis das letzte Ribbon-Ereignis abgefragt ist, dann verschwinden alle eMails aus der Ansicht. Lediglich im Lesebereich bleibt die Vorschau der zuletzt ausgewählten eMail erhalten.)

    Die Prozedur, die das Problem verursacht sieht so aus:

                Friend Shared Sub EinenOrdnerAufklappen(ByVal Pfad As String)
                    Dim fld As MSOutlook.MAPIFolder
                    Dim oExpl As MSOutlook.Explorer
                    Dim strFolderNames() As String
                    Dim i As Integer = 0
    
                    oExpl = mOutApp.ActiveExplorer
    
                    'übergebenen Pfad in Einzelteile zerlegen
                    strFolderNames = Split(Pfad, "\")
                    'und zum entsprechenden Ordner gehen
                    'MsgBox(strFolderNames(i))
                    If strFolderNames(i) = "Öffentliche Ordner" Then
                        fld = GetPublicFolder()
                    Else
                        fld = mOutApp.Session.Folders(strFolderNames(0))
                    End If
                    For i = 1 To UBound(strFolderNames)
                        'MsgBox(strFolderNames(i))
                        fld = fld.Folders(strFolderNames(i))
                    Next i
                    'entsprechenden Ordner auswählen und zum gemerkten Ordner wieder zurückspringen
                    oExpl.CurrentFolder = fld
    
                End Sub
    

    Könnte es das gleiche Problem wie beim letzten Mal sein und sich mit Delegate umgehen lassen?
    Allerdings würde ich es gerne verstehen und Delegate habe ich nicht hingekriegt (s. Nachbarthread) :(

    Vielen Dank für Eure Unterstützung.

    Reiner



    Freitag, 16. August 2019 13:20