Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

VBS - Outlook Kalendereinträge nach Kategorie löschen

Frage Entwicklung VB for Applications

Mitglied: Lionheart

Lionheart (Level 1) - Jetzt verbinden

04.06.2009, aktualisiert 14:57 Uhr, 9633 Aufrufe, 7 Kommentare, 1 Danke

Hallo Leute!

Wir verwenden in Outlook 2003 für bestimmte Kalendereinträge die eigendefinierte Kategorie "Kundentermin".

Nun benötige ich ein VBScript, welches mir aus meinem Outlook alle Kalendereinträge mit dieser Kategorie entfernt.

Ich habe bereits auf der MSDN Homepage gesucht, aber nichts wirklich passendes gefunden. Wie kann ich die Kategorie abfragen und die Einträge löschen?

Vielen Dank für eure Hilfe.

Gruß,
Lionheart
Mitglied: flipworld12
04.06.2009 um 15:23 Uhr
Versuch es mal mit VBA, ich denke damit geht's einfacher...
Bitte warten ..
Mitglied: Lionheart
05.06.2009 um 09:17 Uhr
Hi!

Warum VBA? Ich darf auf Grund von Firmenrichtlinien leider nur mit VBScripten arbeiten. Der Sinn sei einemal dahingestellt, aber ich muss mich danach richten.
Bitte warten ..
Mitglied: flipworld12
05.06.2009 um 15:24 Uhr
hmm... Ich glaube nicht, dass MICROSOFT es vorsieht, dass man mit VBS auf Outlook zugreifen kann. Du könntest mit dem Skript vllt. die Outlook-Datendatei verändern. Oder du suchst nochmal unter Google(oder auch bing nach "outlookzugriff mit vbs" oder so ähnlich. Vielleicht findest du ja eine DLL oder so...
Bitte warten ..
Mitglied: MonoTone
08.06.2009 um 09:47 Uhr
Also man kann mit VBS sehr wohl auf Outlook zugreifen.
01.
On Error Resume Next 
02.
Set myOlApp = GetObject(,"Outlook.Application") 
03.
 
04.
If Not myOlApp = "Outlook" Then 
05.
Set myOlApp = CreateObject("Outlook.Application") 
06.
End If 
07.
On Error goto 0 
08.
With myOlApp 
09.
Set olMAPI = .GetNameSpace("MAPI").GetdefaultFolder(9) 
10.
 
11.
WScript.Echo olMAPI.Items.count 
12.
For Each teil In olMAPI.Items 
13.
With teil 
14.
Alles = .Subject & ";" & .Location & ";" _ 
15.
          & .Categories & ";" & .Start & ";" & .End & ";" & .AllDayEvent & ";" _ 
16.
          & .Duration & ";" & .ReminderMinutesBeforeStart & ";" & .LastModificationTime & ";" 
17.
WScript.Echo Alles 
18.
End With 
19.
Next 
20.
End With
so könnte man sich die Anzahl der Termine und die eigenschaften der einzelnen Kalendereinträge anzeigen lassen.
ergo schreib ich es eben so wie gebraucht um, mom
Bitte warten ..
Mitglied: MonoTone
08.06.2009 um 10:47 Uhr
01.
On Error Resume Next 
02.
Set myOlApp = GetObject(,"Outlook.Application") 
03.
 
04.
If Not myOlApp = "Outlook" Then 
05.
Set myOlApp = CreateObject("Outlook.Application") 
06.
End If 
07.
On Error goto 0 
08.
With myOlApp 
09.
Set olMAPI = .GetNameSpace("MAPI").GetdefaultFolder(9) 
10.
a=1 
11.
For Each teil In olMAPI.Items  
12.
With teil  
13.
If .categories = "Kundentermin" Then  
14.
del = del & "," & a 
15.
End If  
16.
a=a+1 
17.
End With  
18.
Next  
19.
 
20.
itemdel=Split(del,",",-1,1) 
21.
End With 
22.
a = UBound(itemdel) 
23.
Do While a>0 
24.
olMAPI.Items.remove itemdel(a) 
25.
a=a-1 
26.
Loop
so sollte es gehen
Bitte warten ..
Mitglied: Lionheart
08.06.2009 um 11:40 Uhr
@MonoTone
Vielen Dank für das Skript. Funktioniert einwandfrei. Klasse!!!
Bitte warten ..
Mitglied: MonoTone
08.06.2009 um 12:26 Uhr
Bei mir gabs ein Problem wenn die Termine neu sind, ich hab es nochmal überarbeitet, so geht es bei mir jetzt einwandfrei auch bie vielen neuen Terminen

gruss Mono
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook 2013 Kalendereintrag per Regel akzeptieren und löschen (27)

Frage von speedy132 zum Thema Outlook & Mail ...

Microsoft Office
gelöst Outlook Kategorien in anderes Postfach übernehmen (13)

Frage von Hirschix3 zum Thema Microsoft Office ...

Outlook & Mail
gelöst Anzeige von Kalendereinträgen in Oulook 2010 (7)

Frage von Hardrockracer zum Thema Outlook & Mail ...

Administrator.de Feedback
Wünsch Dir was: Kategorien Android oder Tablets (5)

Frage von Lochkartenstanzer zum Thema Administrator.de Feedback ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Internet
gelöst Jeden morgen Internet-Probleme (55)

Frage von pjrtvly zum Thema Internet ...

Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

LAN, WAN, Wireless
gelöst IP Adressen - Modem - Switch - Accesspoint (22)

Frage von teuferl82 zum Thema LAN, WAN, Wireless ...

Windows Server
Upgrade von Win Server 2008 auf 2012 gescheitert (19)

Frage von Ghost108 zum Thema Windows Server ...