Hi,
da ich noch nicht so einen Plan von Lotus Script habe suche ich eine Möglichkeit eine ID aus einer DB auszulesen, die ID liegt in einem RichTextFeld und soll wenn möglich mit einer ID die auf einem Lokal Pfad liegt (c:\ids) ersetzt werden. Wenn er keine ID im Dokument findet soll er weiter zum nächsten User gehen (denke mit goto ende der Schleife müsste es gehen).
Hier mal mein Vorläufiger Quelltext seid bitte nicht sauer aber ich kenn mich halt noch nicht so gut aus. Falls ihr Fragen habt bitte unbedingt sagen.
Code
Sub Initialize
Dim session As NotesSession
Dim thisdb As NotesDataBase
Dim userview As NotesView
Dim userdoc As NotesDocument
Dim allusers As NotesViewEntryCollection
Dim user As NotesViewEntry
Dim field As NotesItem
Dim idfilename As String
Dim object As NotesEmbeddedObject
Set session = New NotesSession
Set thisdb = session.CurrentDataBase
Set userview = thisdb.GetView("$AU")
Set allusers = userview.AllEntries
Set user = allusers.GetFirstEntry()
While Not user Is Nothing
Set userdoc = user.Document
Set field = userdoc.GetFirstItem("USEADM_Userid")
idfilename = field.Values
idfilename = Right$(idfilename,Len(idfilename)-3)
'bis hier hin wird der Name der ID gelesen z.b. (user.id)
'################################
'war ein sinnloser versuch
'Set rtitem=New NotesRichTextItem(doc,"test")
'pathName$ = "c:\ids\"
'Set object = rtitem.EmbedObject( EMBED_OBJECT,"",pathName$ & idfilename)
'################################
Set user = allusers.GetNextEntry(user)
Wend
End Sub
Alles anzeigen