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

Hilfe
Neues Thema
Antworten


Nach oben

