Feiertage die Zweite

[morpheus2002]

Hallo ich hab auch ein Porb wegen den Feiertagen
die stehen bei mir nur bis 2001 im Adressbuch muß ich die von hand weiterführen oder kann ich da ein update fahren

[Axel]

Hi,

mir ist im Moment kein Automatismus bekannt. Meines Erachtens ist Handarbeit angesagt.
Ein Teil der Feiertage kann man ja wiederholend eintragen, z.B. Weihnachten oder Neujahr.

Axel

[eknori]

Wir haben momentan auch das Problem, dass der Import der Feiertage mal wieder unheimlich zuverlässig funktioniert.

Habe hier ein Stück Code gefunden, mit dem man den Import selbst steuern kann. Werde mir das die tage manl genauer ansehen und wohl eine kleine Appl. stricken

Sub Click(Source As Button)
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim session As New NotesSession
Dim dateTime1 As NotesDateTime
Dim dateTime2 As NotesDateTime
Set db = session.CurrentDatabase

' The following code must be repeated for each Holiday:

Set doc = New NotesDocument(db)
Set dateTime1 = New NotesDateTime("01/01/99 12:01:01 AM")
Set dateTime2 = New NotesDateTime("01/01/99 12:01:01 AM")


doc.Subject = "New Year's Day"
doc.Form = "Appointment"
doc.AppointmentType = "2"
Set doc.CalendarDateTime = dateTime1
Set doc.StartDateTime = dateTime1
Set doc.EndDateTime = dateTime2
doc.CHAIR = session.UserName
doc.Duration = 1
doc.From = session.UserName
doc.ExcludefromView = "D"
doc.ORGTABLE = "P0"
doc.Broadcast = " "
doc.Categories = " "
Call doc.AppendItemValue("_ViewIcon", 9)
doc.BookFreeTime = " "
Call doc.AppendItemValue("$BusyName", session.UserName)
Call doc.AppendItemValue("BusyPriority", "1")
Call doc.AppendItemValue("NoPurge", dateTime1)
Call doc.AppendItemValue("$PurgeAccess", "1")
doc.Save True, True