Hallo,
wir hatten dieses Problem auch und haben es per Mail an jedem Client eingestellt.
Ich hoffe das hilft dir weiter; :-)
Schaltfläche 1 :
Sub Click(Source As Button)
%REM
""
°(0) (0)°
--ooo----(_)----ooo--
Agentenname : Zeitumstellung
Version 1.0
****************************************************************
Sommer Zeit in Lotus Notes Anpassen
****************************************************************
%END REM
Dim s As NotesSession
Dim db As New NotesDatabase ("","")
Dim view As NotesView
Dim doc As NotesDocument
Dim item As Notesitem
Set s = New NotesSession
Call db.Open("","names.nsf")
Set view=db.GetView("Locations")
Set doc = view.GetFirstDocument
REM Umbauen der Arbeitsumgebungs - Dokumente
While Not (doc Is Nothing)
REM DaylightSavingTime -> Sommerzeit
REM auf 1 stellen damit Häckechen im Betriebssystem gestezt wird
If doc.hasitem("DST") Then
Call doc.ReplaceItemValue("DST","1")
End If
REM Zeitzone soll die einstellung -1 bekommen
If doc.hasitem("TimeZone") Then
Call doc.ReplaceItemValue("TimeZone","-1")
End If
REM Einstellung Zeitzone des Betriebssystems verwenden auf nein stellen
If doc.hasitem("UseOSTZ") Then
Call doc.ReplaceItemValue("UseOSTZ","0")
End If
REM Vorgabe welche Zeitzone verwendet wird
If doc.hasitem("R5TimeZone") Then
Call doc.ReplaceItemValue("R5TimeZone","1$58$Westeuropäische Normalzeit$-1")
End If
Call doc.Save(False,True)
Set doc = view.GetNextDocument(doc)
Wend
REM Setzten des INI - Eintrags für Daylight Saving Time (Sommerzeit) auf 1
REM Call s.SetEnvironmentVar("DST","1",True)
Messagebox "Bitte Starten Sie nun Notes Neu und önffnen Sie diese Mail erneut - Danke"
End Sub
Schaltfläche 2:
Sub Click(Source As Button)
%REM
""
°(0) (0)°
--ooo----(_)----ooo--
Agentenname : Zeitumstellung
Version 1.0
****************************************************************
Sommer Zeit in Lotus Notes Anpassen
****************************************************************
%END REM
Dim s As NotesSession
Dim db As New NotesDatabase ("","")
Dim view As NotesView
Dim doc As NotesDocument
Dim item As Notesitem
Set s = New NotesSession
Call s.SetEnvironmentVar("UseNotesTimeZone","1",True)
Call s.SetEnvironmentVar("DST","0",True)
Call db.Open("","names.nsf")
Set view=db.GetView("Locations")
Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
If doc.hasitem("DST") Then
Call doc.ReplaceItemValue("DST","0")
End If
Call doc.Save(False,True)
Set doc = view.GetNextDocument(doc)
Wend
Messagebox "Bitte starten Sie Notes noch einmal neu - danke "
End Sub