title image


Smiley Re: Arbeitsumgebung kopieren
hi lloyd!



also mit folgendem script sollte das eigentlich soweit funktionieren... das sollte eine kopie der aktuell ausgewählten arbeitsumgebung machen, mit anschließenden feldänderungen.



habs einfach mal nur so runtergeschrieben... also ohne gewähr. ;-)



Sub Initialize



Dim s as New NotesSession

Dim nab as NotesDatabase

Set nab = s.GetDatabase( "", "names.nsf" )



If nab Is Nothing Then

Msgbox "Das persönliche Namens- und Adressbuch konnte nicht gefunden werden."

Exit Sub

End If



Dim view As NotesView

Set view = nab.GetView( "Locations" )



Dim loc_name As String

loc_name = s.GetEnvironmentString( "Location", True )



Dim positionOfChar As Long

positionOfChar = Instr( 1, loc_name, "," )

loc_name = Left( loc_name, positionOfChar -1 )



Dim loc_doc as NotesDocument

Set loc_doc = view.GetDocumentByKey( locname )



Dim new_loc as NotesDocument

Set new_loc = loc_doc.CopyToDatabase( nab )



new_loc.Feld1 = "blabla"

new_loc.Feld2 = "blablub"



Call new_loc.Save(True, False, True)



End Sub





gruß dirk
Wir hören nicht auf zu Spielen weil wir ÄLTER werden...
...sondern wir werden ALT, wenn wir aufhören zu Spielen!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: