gelöst Junk Ordner per Buttom (Makro) leeren
L4a-Thompson (Level 1) - Jetzt verbinden
24.02.2007, aktualisiert 18:37 Uhr, 4902 Aufrufe, 4 Kommentare
ich würde es wenn es dies in outlook geben würde ja über die aufzeichnungs funktion machen aber gibts ja nicht
versuche mal eben vba 6 zu lernen sind kläglich gescheitert ^^
also, ich möchte gerne mir einen buttom auf der symbolleiste anlegen welcher mit einem makro versehen ist
"Junk ordner leeren"
und wenn möglich das selbe noch für den ordner ("gesendete objekte" leeren) aber da soll dies ja nicht so einfach seien da jede mail einzeln gelöscht werden muß hab ich das richtig verstanden?
würdet ihr mir helfen 2 solche makros zu schreiben?
mfg
Thompson
ps.
es handelt sich um OL 2003
versuche mal eben vba 6 zu lernen sind kläglich gescheitert ^^
also, ich möchte gerne mir einen buttom auf der symbolleiste anlegen welcher mit einem makro versehen ist
"Junk ordner leeren"
und wenn möglich das selbe noch für den ordner ("gesendete objekte" leeren) aber da soll dies ja nicht so einfach seien da jede mail einzeln gelöscht werden muß hab ich das richtig verstanden?
würdet ihr mir helfen 2 solche makros zu schreiben?
mfg
Thompson
ps.
es handelt sich um OL 2003
4 Antworten
- LÖSUNG miniversum schreibt am 24.02.2007 um 17:54:50 Uhr
- LÖSUNG L4a-Thompson schreibt am 24.02.2007 um 17:59:54 Uhr
- LÖSUNG miniversum schreibt am 24.02.2007 um 18:34:32 Uhr
- LÖSUNG L4a-Thompson schreibt am 24.02.2007 um 18:37:52 Uhr
- LÖSUNG miniversum schreibt am 24.02.2007 um 18:34:32 Uhr
- LÖSUNG L4a-Thompson schreibt am 24.02.2007 um 17:59:54 Uhr
LÖSUNG 24.02.2007 um 17:54 Uhr
Outlook ist echt was schlecht zum erlernen von vba finde ich.
Es ist so das jeder ordner ein Objekt darstellt welchen Elemente (Items) enthällt welche du einzeln löschen must. Hier ein Makro welches dir die Dateien im Junk Ordner löscht (in den Papierkorb verschiebt). Für dne Postausgang must du ja nur den DefaultFolder ändern.
miniversum
Es ist so das jeder ordner ein Objekt darstellt welchen Elemente (Items) enthällt welche du einzeln löschen must. Hier ein Makro welches dir die Dateien im Junk Ordner löscht (in den Papierkorb verschiebt). Für dne Postausgang must du ja nur den DefaultFolder ändern.
01.
Sub junk_loeschen()
02.
Set myOlApp = CreateObject("Outlook.Application")
03.
Set myNameSpace = myOlApp.GetNamespace("MAPI")
04.
Set myfolder = myNameSpace.GetDefaultFolder(olFolderJunk)
05.
06.
For i = 1 To myfolder.Items.Count
07.
myfolder.Items(1).Delete
08.
Next i
09.
End Sub
LÖSUNG 24.02.2007 um 17:59 Uhr
läst sich der ordner junk auch direkt löschen ohne die items vorher erst in den papierkorb zu verschieben?
für gesendete objekte müßte es dann so aussehen oder?
Sub junk_loeschen()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myfolder = myNameSpace.GetDefaultFolder(olFolderSentMail)
For i = 1 To myfolder.Items.Count
myfolder.Items(1).Delete
Next i
End Sub
für gesendete objekte müßte es dann so aussehen oder?
Sub junk_loeschen()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myfolder = myNameSpace.GetDefaultFolder(olFolderSentMail)
For i = 1 To myfolder.Items.Count
myfolder.Items(1).Delete
Next i
End Sub
LÖSUNG 24.02.2007 um 18:34 Uhr
Nein der Ordner "Gesendete Objekte" heißt "olFolderSentMail".
Das direkte Löschen würde der Funktion entsprechen die du ja schon hast wenn Du auf den Ordner "Junk" nen Rechtsklick machst....
miniversum
Das direkte Löschen würde der Funktion entsprechen die du ja schon hast wenn Du auf den Ordner "Junk" nen Rechtsklick machst....
miniversum
LÖSUNG 24.02.2007 um 18:37 Uhr
genau das möchte ich
diese funktion würde ich gerne auf einen buttom legen ist das möglich?
für junk und gesendete objekte
diese funktion würde ich gerne auf einen buttom legen ist das möglich?
für junk und gesendete objekte
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte