WinFuture-Forum.de: VB.Net VSTO Outlook Addin mit RibbonGallery - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
Seite 1 von 1

VB.Net VSTO Outlook Addin mit RibbonGallery Die Gallery wird beim Laden mit Inhalt gefüllt - das funktioniert nur


#1 Mitglied ist offline   Murdoc 

  • Gruppe: aktive Mitglieder
  • Beiträge: 322
  • Beigetreten: 03. Januar 05
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 12. Februar 2016 - 11:53

Ich arbeite an einem Outlook-Addin das beim Öffnen einer Email ein zusätzlichen RibbonTab mit einer Gallery anzeigt.
Die Gallery soll Einträge aus einer SQL-Abfrage erhalten. Das funktioniert beim ersten Mal auch alles.
Nur schließt man die Email und öffnet diese wieder, hat die Gallery keine Einträge mehr, obwohl die Daten aus der Datenbank korrekt gelesen werden.

Private Sub gallery_Anschriften_ItemsLoading(sender As Object, e As RibbonControlEventArgs) Handles gallery_Anschriften.ItemsLoading
        
        Dim insp As Outlook.Inspector = Nothing
        Dim mi As Outlook.MailItem = Nothing

        insp = TryCast(Me.Context, Outlook.Inspector)
        If Not insp Is Nothing Then mi = TryCast(insp.CurrentItem, Outlook.MailItem)

        If Not mi Is Nothing Then FindMailContentsinSMP(mi)

    End Sub

    Public Shared Sub FindMailContentsinSMP(item As Outlook.MailItem)

        Dim sMailAddress As String = ""
        Dim dtResults As New Data.DataTable
        Dim sSQL As String = ""
        Dim smpribbon As RibbonBase = New SMP_Ribbon

        sMailAddress = item.SenderEmailAddress

        sSQL = "Select * From Anschriften"

        dtResults = mod_SMP.GetSQLData(sSQL)

        If Not dtResults Is Nothing Then
            For Each dr As Data.DataRow In dtResults.Rows

                Dim rdi As RibbonDropDownItem

                rdi = Globals.Factory.GetRibbonFactory().CreateRibbonDropDownItem()

                rdi.Label = dr.Item("Firma1") & ", " & dr.Item("Strasse") & ", " & dr.Item("LKZ") & "-" & dr.Item("PLZ") & " " & dr.Item("Ort")
                rdi.Tag = dr.Item("AnschriftID")
                rdi.ScreenTip = ""
                rdi.SuperTip = ""

                Globals.Ribbons.SMP_Ribbon.gallery_Anschriften.Items.Add(rdi)

            Next

            Globals.Ribbons.SMP_Ribbon.RibbonUI.InvalidateControl("gallery_Anschriften")
            

        End If

    End Sub

Dieser Beitrag wurde von Murdoc bearbeitet: 12. Februar 2016 - 11:58

0

Anzeige



#2 Mitglied ist offline   Murdoc 

  • Gruppe: aktive Mitglieder
  • Beiträge: 322
  • Beigetreten: 03. Januar 05
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 13. Mai 2016 - 06:53

Für alle die auch mal das problem haben - die RibbonGallery ist dafür nicht geeignet :wacko:
0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0