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, 4915 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
Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 10 StundenErkennung und -Abwehr1 Kommentar

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 18 StundenVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Drucker und Scanner
HP-MF-Drucker per Fax angreifbsr
Information von Lochkartenstanzer vor 2 TagenDrucker und Scanner3 Kommentare

Endlich eine sinnvolle Verwendung für Faxe: Damit kann man offensichtlich den Drucker übernehmen. lks

Router & Routing

Das pfSense Buch ist jetzt für jeden kostenlos zu beziehen

Tipp von magicteddy vor 3 TagenRouter & Routing2 Kommentare

Bisher war das Buch nur für zahlende Unterstützer verfügbar, jetzt steht für Jedermann kostenlos zur Verfügung. Siehe auch The ...

Heiß diskutierte Inhalte
Microsoft
VPN Verbindung kann nicht aufgebaut werden
Frage von AlexderITlerMicrosoft35 Kommentare

Hallo, Ich möchte an einem unserer PCs in unserer Tochterfirma eine VPN zu unserem Netzwerk einrichten. Das schlägt allerdings ...

Windows Server
Domäne einsilbig mit nur einem Namen benannt - sowie AD und MX auf einer VM Kardinalsfehler?
Frage von TomTestWindows Server27 Kommentare

Hallo liebe Freunde gepflegter Probleme, seit kurzem soll ich eine Domäne verwalten die zuvor von einem IT-Dienstleister erstellt und ...

Datenbanken
MySQL Datenbank Import Aufgabe für mehrere .csv dateien
gelöst Frage von Marcel1989Datenbanken19 Kommentare

Hi, ich komm nicht weiter. Ich hab auf einem Windows Server 2012 r2 eine MariaDB/MySQL laufen. Nun soll diese ...

DNS
Gibt es eine Art DNS Proxy?
Frage von icepietDNS15 Kommentare

Hallo Nerds, Ich würde gerne folgendes machen: ts.domain.de:3389 soll auf 1.2.3.4:3389 auflösen ts2.domain.de:3389 soll auf 1.2.3.4:3390 auflösen Gibt es ...