Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kalender-Export automatisieren
zurück: Script um einem Outlook Ordner eine Homepage URL zu vergeben weiter: Im öffentlichen Ordner bleibt Ansicht nicht gespeichert Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Andreas09
Neuling


Verfasst am:
26. Jan 2009, 12:13
Rufname: Andreas
Wohnort: Hamburg

Kalender-Export automatisieren - Kalender-Export automatisieren

Nach oben
       Version: Office 2003

Hallo,

ich bin auf der Suche nach einer Möglichkeit, den Export meiner Outlook-Kalenderdaten zu automatisieren. Dafür habe ich mal ein Makro ausprobiert, welches hier zu finden ist:

http://www.wer-weiss-was.de/theme161/article993952.html

Die einzige Schwierigkeit, die ich damit habe: Da ich gerne einen öffentlich einsehbaren Kalender exportieren möchte, (Daten werden von einem Exchange-Server geliefert) muss ich im Makro ja irgendwo angeben, welcher Kalender gemeint ist. In Outlook selbst (also im GUI) wird zwischen "Meine Kalender" und "Andere Kalender" unterschieden. Wie aber erkläre ich diesen Unterschied innerhalb des Scripts?

Hier mal das Script im Ganzen:

Code:

Sub AlleTermineAuflisten()

Dim olApp As Outlook.Application

Dim olNameSpace As Outlook.NameSpace

Dim olCalendar As Outlook.MAPIFolder

Dim olAppointment As Outlook.AppointmentItem

Dim s As String

Dim d As Date

Dim t As Date

Dim ts As String



Dim n As Integer



Set olApp = CreateObject("Outlook.Application") 'oder New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")

Set olCalendar = olNameSpace.GetDefaultFolder(olFolderCalendar)



n = 0

For Each olAppointment In olCalendar.Items

n = n + 1

s = olAppointment.Subject

If s = "" Then s = "-"

d = Fix(olAppointment.Start)

t = CDate(olAppointment.Start - d)

If t = 0 Then

ts = ""

Else

ts = " (" & CStr(t) & ")"

End If 't=0

Debug.Print Fix(d) & ": " & s & ts

Next 'olAppointment



Set olAppointment = Nothing

Set olCalendar = Nothing

Set olNameSpace = Nothing

Set olApp = Nothing



MsgBox "Insgesamt " & n & " Einträge.", vbInformation, "Fertig"

End Sub 'AlleTermineAuflisten


Würde mich freuen, wenn mir da jemand weiterhelfen könnte.

Gruß
Andreas
Michael Bauer
MVP Outlook


Verfasst am:
26. Jan 2009, 19:17
Rufname:
Wohnort: Vollersode


AW: Kalender-Export automatisieren - AW: Kalender-Export automatisieren

Nach oben
       Version: Office 2003

Hallo,
schau Dir mal olNameSpace.Folders an. Da sind alle Topfolder zu finden, die Du auch in Deiner Ordnerliste siehst. Dann hangel Dich einfach durch, z.B.:
Ns.Folders("abc").Folders("def") etc.

_________________
Michael Bauer
Tools für Microsoft Outlook
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook VBA und Formulare: Outlook Anrede automatisieren 2 GeorgK 272 25. Jul 2013, 06:25
Michael Bauer Outlook Anrede automatisieren
Keine neuen Beiträge Outlook VBA und Formulare: Outlook 2010 automatisieren öffnen, lesen, beantworten? 0 DinoSaurier 148 21. Jun 2013, 18:01
DinoSaurier Outlook 2010 automatisieren öffnen, lesen, beantworten?
Keine neuen Beiträge Outlook VBA und Formulare: Antwortformular automatisieren in eine Liste 0 balduin 241 14. März 2012, 23:18
balduin Antwortformular automatisieren in eine Liste
Keine neuen Beiträge Outlook Mail: Mails an einen Kontakt immer "privat" automatisier 4 Parador 435 13. Feb 2012, 09:50
Parador Mails an einen Kontakt immer "privat" automatisier
Keine neuen Beiträge Outlook Hilfe: *T*Zoom Vorschaufenster wie automatisieren? 0 cadillac 612 11. Okt 2011, 10:38
cadillac *T*Zoom Vorschaufenster wie automatisieren?
Keine neuen Beiträge Outlook Mail: Outlook 2003 - Mail automatisieren 1 GWL 503 05. Sep 2011, 12:54
Gast Outlook 2003 - Mail automatisieren
Keine neuen Beiträge Outlook Kalender: Kalenderexport unvollständig 0 Bklaus_hh 537 05. Sep 2010, 11:48
Bklaus_hh Kalenderexport unvollständig
Keine neuen Beiträge Outlook Mail: Mails automatisieren: nur Anhang+Betreff ändern sich 2 Riza 963 01. Jun 2010, 08:47
Riza Mails automatisieren: nur Anhang+Betreff ändern sich
Keine neuen Beiträge Outlook VBA und Formulare: VBA Knopfdruck automatisieren bei neuem Termin. 0 McIceT 453 06. Jan 2010, 16:46
McIceT VBA Knopfdruck automatisieren bei neuem Termin.
Keine neuen Beiträge Outlook Hilfe: outlook automatisieren 1 Killersocke 470 18. Jun 2009, 11:23
Michael Bauer outlook automatisieren
Keine neuen Beiträge Outlook Mail: Signatur: Erstellen von Richtext/HTML/Text automatisieren 1 DJScorpion 4296 14. Jul 2008, 14:09
Christi@n Signatur: Erstellen von Richtext/HTML/Text automatisieren
Keine neuen Beiträge Outlook VBA und Formulare: EMail Versand Automatisieren 4 Ch.M. 1473 02. Jul 2008, 10:26
Andreas.Fischer EMail Versand Automatisieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme