30.09.2014, 09:31
Hallo zusammen,
ich habe mal vor längerer Zeit nachfolgendes Makro im Web gefunden und nutze es um mit einem Klick den Inhalt des Spamordner zu löschen. Allerdings wird nur im Hauptkonto gelöscht, die Konten "Hotmail bzw. Live" und "Gmail" bleiben unberühert.
Nun meine Frage: Wie muss ich den Code verändern, damit auch die beiden anderen Konten mit einbezogen werden.
Danke schon mal im Voraus!!!
ich habe mal vor längerer Zeit nachfolgendes Makro im Web gefunden und nutze es um mit einem Klick den Inhalt des Spamordner zu löschen. Allerdings wird nur im Hauptkonto gelöscht, die Konten "Hotmail bzw. Live" und "Gmail" bleiben unberühert.
Nun meine Frage: Wie muss ich den Code verändern, damit auch die beiden anderen Konten mit einbezogen werden.
Code:
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
Danke schon mal im Voraus!!!
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.