title image


Smiley Re: Arbeitsumgebung kopieren
Hallo Lloyd,



oder so. Hab ich mal zum Setzen der Zeitzone verwendet.



Gruß

FPN60



Dim session As NotesSession

Dim db As New NotesDatabase( "", "" )

Dim view As NotesView

Dim doc As NotesDocument

Dim Item As Notesitem



Set Session = New NotesSession



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", "1")

End If

If doc.hasitem("R5TimeZone") Then

Call doc.ReplaceItemValue("R5TimeZone", "1$58$Westeuropäische Normalzeit$-1")



End If



If doc.hasitem("TimeZone") Then

Call doc.ReplaceItemValue("TimeZone", "-1")

End If

If doc.hasitem("DST") Then

Call doc.ReplaceItemValue("DST", "1")

End If



Call doc.Save( False, True )



Set doc = view.GetNextDocument(doc)



Wend

Messagebox "Betätigen sie anschließend den zweiten Schaltknopf" , MB_OK, MB_ICONINFORMATION









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: