Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Junk Ordner per Buttom (Makro) leeren

Mitglied: L4a-Thompson

L4a-Thompson (Level 1) - Jetzt verbinden

24.02.2007, aktualisiert 18:37 Uhr, 4906 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
Mitglied: miniversum
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.

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
miniversum
Bitte warten ..
Mitglied: L4a-Thompson
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
Bitte warten ..
Mitglied: miniversum
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
Bitte warten ..
Mitglied: L4a-Thompson
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
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Makro ausführen: Liste ist leer
gelöst Frage von mupan7Outlook & Mail3 Kommentare

Bin sicher kein VBA-Neuling, aber mit Outlook, seinem riesigen Objektmodell und seinem <gnx$$§%&> Sicherheitssystem habe ich noch kaum Erfahrung. ...

VB for Applications
Makro auf alle Dateien im Ordner
gelöst Frage von 130497VB for Applications1 Kommentar

Hallo liebe Community, Ich schreibe momentan meine Bachelorarbeit über die Preisanalyse von Regelenergie. Hierzu habe ich mir für die ...

Batch & Shell

Verknüpfungen von leeren Ordnern löschen

Frage von AmiKegoBatch & Shell2 Kommentare

Hallo, ich schreibe gerade ein Skript mit Batch das leere Ordner mit Unterordner löscht. Jetzt will ich es ein ...

E-Mail

Alle Emails landen direkt im Junk Ordner Windows Mail

Frage von 90584E-Mail2 Kommentare

Brauche Hilfe. Ich weiß ncih warum. Aber im aktuellen Windows Mail landen alle Mails direkt im Junk Ordner. Ich ...

Neue Wissensbeiträge
Microsoft
Shadow Defender
Tipp von Hyrule vor 1 StundeMicrosoft

Ich denke viele kennen es: Ein Update oder ein neues Programm und vieles funktioniert nicht mehr wie gewünscht. Die ...

Microsoft
Microsoft verarztet 50 Sicherheitslücken
Tipp von Hyrule vor 4 TagenMicrosoft

Microsoft verarztet mal wieder ein "paar" Sicherheitslücken in ihren Produkten: Und mal wieder Remote Code Execution und der abartige ...

Sicherheit

Prüfskript gegen Spectre und Co. wurde erweitert

Tipp von DerWoWusste vor 5 TagenSicherheit

Moin. Get-SpeculationControlSettings sagt sicherlich den meisten etwas. Mit den neuen Spectrevarianten muss man nun weitere Schritte machen, um zu ...

LAN, WAN, Wireless

IPhone und iPad scheinen Verbindungsprobleme mit Unifi v5.7.23 und 802.11r (schnelles Roaming) zu haben

Erfahrungsbericht von StefanKittel vor 8 TagenLAN, WAN, Wireless4 Kommentare

Hallo, vielleicht hilft dieser recht kurze Bericht doch den Einen oder Anderen. Ausgangspunkt Ein Kunde von mir setzt einen ...

Heiß diskutierte Inhalte
Hyper-V
Hyper V startet nicht wenn eine Offline geschaltene HD integriert wird
Frage von DieAzubinneHyper-V11 Kommentare

Hallö, bei einem PC der mit Windows 10 Pro installiert ist habe ich das Problem, dass der Virtuelle PC ...

CPU, RAM, Mainboards
ASUS P5W DELUXE startet nur manchmal und nur mit 2 GraKas
Frage von Windows10GegnerCPU, RAM, Mainboards10 Kommentare

Hallo, ich habe das o.g. Motherboard erhalten. Egal ob C2D 8400, Pentium D 945 oder P4 670, das teil ...

Rechtliche Fragen
Vorlage "private Nutzung dienstlicher Mobiltelefone"
Frage von linos2Rechtliche Fragen8 Kommentare

Hallo zusammen, ich bin auf der Suche nach einer Vorlage für die private Nutzung von dienstlichen Mobiltelefonen. Unsere Firma ...

Hosting & Housing
Netzwerkeinrichten auf Windows damit man auf Stratoserver zugreifen kann
Frage von derblunckHosting & Housing6 Kommentare

Hallo und Moin also meine Chefin möchte gerne auf Ihren Windows 10 Rechner unter Netzwerk eine Verbindung zum Stratoserver ...