Vreemde fout bij verwijderen email

[LuckyFm]

Hallo allemaal,

Na het importeren en opslaan van mijn email wil ik de verwerkte email verwijderen.
de email komst door middel van een regel in outlook in een gespecificeerde map in dit geval IJmond/DSP

wanneer ik de email na verwerking wil verwijderen (met een knop Afsluiten) krijg ik de volgende foutmelding:



Klik ik dan op beëindigen en vervolgens weer op de knop Afsluiten dan wordt de email wel netjes verwijderd.

De code van de knop Afsluiten:

Private Sub knop17_Click()

Set olApp = CreateObject("Outlook.Application")
Dim i As Long
Set olNS = olApp.GetNamespace("MAPI")
Set eFldr = olNS.Folders("IJmond").Folders("DSP")
Set MyCurrentFolder = eFldr
Set oItems = eFldr.items

        For i = oItems.Count To 1 Step -1

        oItems.Item(i).Delete
        
        Next
    
    
    
    DoCmd.RunSQL "DELETE * FROM tblMail"
    
DoCmd.Close acForm, "frmMail"
DoCmd.OpenForm "frmDSPRitLog"
End Sub

Iemand enig idee?

alvast bedankt voor de hulp

 

[OctaFish]

Ik heb je macro uitgetest, en bij mij werkt hij in deze variant:

Dim i As Integer
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim eFldr As Outlook.Folder
Dim oItems As Outlook.Items
Dim oItem As Object
    
    Set olApp = CreateObject("Outlook.Application")
    Set olNS = olApp.GetNamespace("MAPI")
    Set eFldr = olNS.PickFolder
    Set oItems = eFldr.Items
    
    For i = oItems.Count To 1 Step -1
        oItems.Item(i).Delete
    Next
    DoCmd.RunSQL "DELETE * FROM tblMail"
    DoCmd.Close acForm, Me.Form.Name

 

[LuckyFm]

OctaFish

Wederom bedankt voor je snelle reactie.

Helaas krijg ik op bijna alle Dim's de volgende error:



deze lijnen 'uitschakelen geeft wederom de zelfde matrix error.
in de code hieronder de 4 lijnen die de bovenstaande error geven met een ' ervoor.

Dim i As Integer
'Dim olApp As Outlook.Application
'Dim olNS As Outlook.NameSpace
'Dim eFldr As Outlook.folder
'Dim oItems As Outlook.items
Dim oItem As Object
    
    Set olApp = CreateObject("Outlook.Application")
    Set olNS = olApp.GetNamespace("MAPI")
    Set eFldr = olNS.Folders("IJmond").Folders("DSP")
    Set oItems = eFldr.items
    
    For i = oItems.Count To 1 Step -1
        oItems.item(i).Delete
    Next
        
    DoCmd.RunSQL "DELETE * FROM tblMail"

ik heb werkelijk geen idee waarom het bij jou werkt en bij mij dus niet?

 

[LuckyFm]

Opgelost


Na enig google-en heb ik de oplossing gevonden de verwijzing naar:

Microsoft Outlook 12.0 Object Library

Stond niet aangevinkt nu wel en nu werkt het prima.

Nogmaals bedankt voor de hulp