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