none
Outlook AddIn und Delegate RRS feed

  • Frage

  • Moin moin,

    ich wollte versuchen, eine FolderSwitch-Prozedur mittels delegate zu umschiffen.
    Originalfrage steht im Zusammenhang mit diesem Thread von mir.

    Meine Versuche mit Delegate scheitern aber daran, dass ich kein Formular und kein Control habe, über das ich BeginInvoke aufrufen kann.
    Von daher sieht mein Code-Versuch dazu derzeit so aus:

        Private Sub outExplorer_FolderSwitch() Handles outExplorer.FolderSwitch
            OutlookFolderSwitch()
        End Sub
    
        Private Delegate Sub dlgCallOutlookFolderSwitch()
        Private Sub OutlookFolderSwitch()
            Dim ExecOutlookFolderSwitch As New dlgCallOutlookFolderSwitch(AddressOf FolderSwitch)
            BeginInvoke(ExecOutlookFolderSwitch)
        End Sub
    
        Private Sub FolderSwitch()
            Dim cView As Outlook.View
    
            With _ribbonConnector
                If outExplorer.CurrentView.Name = "unerledigt" Then
                    .mPressed = True '.IsPressed(outExplorer)
                Else
                    .mPressed = False
                End If
    
                .Ribbon.Invalidate()
    
            End With
        End Sub

    Scheitert aber verständlicher Weise am BeginInvoke.
    Meine Recherche zum Starten davon ohne Formular/Control war etwas fruchtlos bzw. ich hab's nicht verstanden.

    Hat hier jemand ein Codesnippet für mich oder noch besser einen Hinweis, der mich auf den richtigen Weg bringt?

    Vielen Dank
    Reiner

    Freitag, 16. August 2019 13:10