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, 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
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 deckerE-Mail2 Kommentare

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

Neue Wissensbeiträge
Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 4 StundenWindows Update

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 14 StundenMicrosoft Office2 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Humor (lol)

Warum man sein Gast-WLAN nicht beliebig nennen sollte

Erfahrungsbericht von Henere vor 1 TagHumor (lol)5 Kommentare

Servus, mal was aus dem Alltag. Zu Hause. Eigentlich wollte ich nur einen weiteren WLAN-AP ins Netz bringen, damit ...

Sicherheit

Schwachstelle in Intel SPI Flash Firmware kann manipuliert werden

Information von sabines vor 2 TagenSicherheit

Es existiert ein Problem in einigen Intel Chipsätzen, das durch einen lokalen Angreifer genutzt werden könnte. Die Firmware befindet ...

Heiß diskutierte Inhalte
Off Topic
1st , 2nd Level Support Techniker - Patchfeld und Switche etc.
Frage von pixel0815Off Topic30 Kommentare

Moin zusammen, ich weiß gar nicht ob es hier richtig ist, aber mich würde mal interessieren wie ihr das ...

Windows Netzwerk
LAN nur 10MB pro s trotz gb lan
Frage von tsunamiWindows Netzwerk19 Kommentare

Hallo zusammen, ich brauche mal wieder einen Anstoß in die richtige Richtung. Ich habe einen Windows 10 pc mit ...

Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid14 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Windows 7
Alle Windows Updates Offline installieren
Frage von akadawaWindows 713 Kommentare

Hallo liebe Community, ich habe mehrere Rechner die das Internet schon eine weile nicht gesehen haben und eine menge ...