Hallo René,
hab ich gemacht, bleibt aber immer noch hängen und zwar
Code:
Set DeleteItem = olName.Session.GetItemFromID(EntryID)
Der gesamte Code sieht jetzt so aus ...
Code:
Public Sub ClearJunkMailFolders()
Dim olApp As Outlook.Application
Dim olName As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim EntryID As String 'Element-ID
Dim olFoldersCount As Long
Dim olItemsCount As Long
Set olApp = Application
With olApp
Set olName = .GetNamespace("MAPI")
For olFoldersCount = 1 To .Session.Accounts.Count
Set olFolder = olName.Session.Folders(olFoldersCount).Folders("Junk-E-Mail")
olItemsCount = 0
Do While olFolder.Items.Count > 0
Set olItems = olFolder.Items(1)
EntryID = olItems.EntryID
olItems.Delete
Set DeleteItem = olName.Session.GetItemFromID(EntryID)
DeleteItem.Delete
olItemsCount = olItemsCount + 1
Loop
Next olFoldersCount
End With
End Sub
Hi Bernie,
(19.01.2015, 13:15)Bernie schrieb: [ -> ]hab ich gemacht, bleibt aber immer noch hängen und zwar Code:
Set DeleteItem = olName.Session.GetItemFromID(EntryID)
und wo ist DeleteItem definiert?
Zum Merken:
Jede Variable, die benutzt wird,
sollte/muß vor Benutzung definiert/dimensioniert werden!
Hallo Ralf,
♥lichen Dank für deine Hilfe.
Der gesamte Code inkl. Änderungen stammt von René. Ich selber habe bei Outlook Variablen meine Probleme.
Weißt du, wie die Variable aussehen muss?
"DeleteItem" habe ich Deinem Code entnommen, müsstest Du auch noch deklarieren.
Hallo Rene,
hab aus meinem alten Code die Zeile in den neuen Code eingefügt
Code:
Dim DeleteItem As Object 'Namespace bestimmen
Jetzt hängt es hier
Code:
Set olItems = olFolder.Items(1)
Gesamtcode
Code:
Public Sub ClearJunkMailFolders()
Dim olApp As Outlook.Application
Dim olName As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim EntryID As String 'Element-ID
Dim olFoldersCount As Long
Dim olItemsCount As Long
Dim DeleteItem As Object 'Namespace bestimmen
Set olApp = Application
With olApp
Set olName = .GetNamespace("MAPI")
For olFoldersCount = 1 To .Session.Accounts.Count
Set olFolder = olName.Session.Folders(olFoldersCount).Folders("Junk-E-Mail")
olItemsCount = 0
Do While olFolder.Items.Count > 0
Set olItems = olFolder.Items(1)
EntryID = olItems.EntryID
olItems.Delete
Set DeleteItem = olName.Session.GetItemFromID(EntryID)
DeleteItem.Delete
olItemsCount = olItemsCount + 1
Loop
Next olFoldersCount
End With
End Sub
Das wird bei Dir nichts. Dein Problem ist dass Dein Outlook den programmatischen Zugriff auf die
Session.Accounts sperrt. Weshalb das so ist kann ich nicht sagen. Da bleibt Dir nur, mal direkt im Microsoft-Forum nachzufragen.
http://answers.microsoft.com/de-de/
Hallo René,
Danke für deine Bemühungen!!!
