title image


Smiley Re: Autorenfeld
hi,



versuche es doch mal über "appendtotextlist", evtl. sollte es so (oder so ähnlich) gehen:



Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc1 As notesdocument

Dim doc2 As notesdocument

Set uidoc = workspace.CurrentDocument

...

Dim item1 As NotesItem

Dim item2 As NotesItem

Dim item3 As NotesItem

Set doc1 = uidoc.document

set doc2 = ... 'das andere dokument

Set item1 = doc1.GetFirstItem( "namesfeld1" )

Set item2 = doc2.GetFirstItem( "namesfeld2" )



Set item3 = doc.GetFirstItem( "autorenfeld" )

Call item3.AppendToTextList( item1 )

Call item3.AppendToTextList( item2 )

Call doc1.Save( True, True )



gruß acbmw

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: