Microsoft Office Tutorials and References
In Depth Information
9.4.12 Terminserie erzeugen
' Anwendung Outlook starten
Set appOutlook = CreateObject("Outlook.Application")
' Neuen Termin erzeugen
Set Element = appOutlook.CreateItem(olAppointmentItem)
' Eigenschaften zuweisen
Element.Start = "31.03.2010 12:00"
Element.Duration = 45
Element.Subject = "Test"
' Muster für Terminserie erzeugen
Set Muster = Element.GetRecurrencePattern
' Eigenschaften zuweisen
Muster.RecurrenceType = olRecursWeekly
Muster.DayOfWeekMask = olWednesday Or olSaturday
Muster.PatternStartDate = "31.03.2010"
Muster.PatternEndDate = "17.04.2010"
' Terminserie speichern
Element.Save
appOutlook.Quit
End Sub
Informationen zu der erstellten Terminserie:
Abbildung 9.40
Uhrzeit und Dauer
Abbildung 9.41
Wiederholungsmuster
Search JabSto ::




Custom Search