habe eine Combobox6 in der die Betreffs von E-Malis geladen werden.
Ich kann diese E-mails abspeichern und zugleich löschen(.delete)
Aber wie bekomme ich den Eintrag nach dem löschen der E-Mail auch aus der Combobox6?
Private Sub CommandButton6_Click()
Dim StoreID As String
Dim EntryID As String
Dim strTxtSZ As String
Dim strAddress As String
Dim varAddress As Variant
Dim lngVarSZ As Long
Dim Item As Outlook.MailItem
Const strReplaceSZ As String = "_.;:_#+?)=%$&(/\"
StoreID = TextBox2.Text
EntryID = ComboBox9.Value
Set olName = olApp.GetNamespace("MAPI")
If ComboBox3.Text = "" Or ComboBox6.Text = "" Then
MsgBox "Es sind keine Datensätze vorhanden. Bitte zuerst die Datensätze in die grünen Felder _
laden!"
Else
Set olFolder = olName.Session.Folders(ComboBox1.Text).Folders("Posteingang").Folders(ComboBox3. _
Text)
Set Item = olName.GetItemFromID(EntryID, StoreID)
varAddress = Split(ComboBox11.Value, "@")
If UBound(varAddress)
Ich hätte es schon überComboBox6.Items.Remove (ComboBox6.SelectedItem)
probiert aber dann bringt er den Fehler.
Methode oder Datenobjekt nicht gefunden.
Weis jemand warum?