Mail in Junkfolder - Ursache

Hallo Michael,

hab den Code gerade eingefügt und laufen lassen. Bekomme aber wieder Fehlermeldung in zwar in dieser Zeile
Set olFolder = GetJunkFolder(olName.Folders(olFoldersCount)) mit dem Hinweis "Array-Index außerhalb des gültigen Bereichs.

Gruß

Bernd

Änderung:

Das war mein alter Code, der zu mindestens des Konto Outlook.pst bearbeitet hat und die Mails löschte.

Sub JunkMails_loeschen()

    Dim myNameSpace As NameSpace 'ein NameSpace Objekt halt

    Dim JunkFolder As MAPIFolder 'Junk-Ordner

    Dim JunkMail As MailItem 'Objekt im Junk-Ordner

    Dim a As Long 'Anzahl der Elemente

    Dim EntryID As String 'Element-ID

    Dim DeleteItem As Object 'Namespace bestimmen

    

    Set myNameSpace = Application.GetNamespace("MAPI")        'JunkFolder bestimmen

    Set JunkFolder = myNameSpace.GetDefaultFolder(6).Parent.Folders("Junk-E-Mail")         'Anzahl der Elemente im JunkFolder bestimmen

    a = 0

    Do While JunkFolder.Items.Count > 0

        Set JunkMail = JunkFolder.Items(1)

        EntryID = JunkMail.EntryID          'Element-ID speichern

        JunkMail.Delete                           'Element löschen

        'Anhand der Element-ID werden die Elemente permanent gelöscht

        Set DeleteItem = myNameSpace.Session.GetItemFromID(EntryID)

        DeleteItem.Delete                       'Element (ID) permanent löschen

        a = a + 1

    Loop

    Set myNameSpace = Nothing

    Set JunkFolder = Nothing

    Set JunkMail = Nothing

    Set DeleteItem = Nothing

'    MsgBox "Es wurden " & a & " Elemente gelöscht"

End Sub

Verstehe die Ursache nicht.

Habe versucht über die Mail App für Win 10 das Konto einzurichten. Funktioniert einwandfrei.

Gruß

Heiner

Danke,

das war auch die Ursache hier ...

Mit der rechten Maustaste konnte man auf Mails, Kalender etc. auch bei der UNSICHTBAREN Session zugreifen.

Danke sehr!!

Franz

www.pno.cc

"In der Einstellung: outlook /safe kommen die E-Mails in den jeweiligen Ordnern an."

Na dann ist die Ursache doch klar, da ist ein inkompatibles Add-In am Werk.

Gert

Hallo Gerd,





vielen Dank für deine Anfrage.





Die Ursache könnte dein installiertes Antivirenprogramm sein, am besten mal testweise deinstallieren(wenn es nicht der Windows Defender ist!)



Sollte das nicht die Ursache sein, erstell bitte mal ein neues Mail-Profil. Eine Anleitung dazu findest du hier >>
http://support.microsoft.com/kb/829918/de





Gruß

Mario