title image


Smiley Re: Selektierte Dokumente ohne Unprocessed Documents auslesen?
Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace

Dim uiView As NotesUIView

Dim docs As NotesDocumentCollection

Dim session As NotesSession

Dim doc As NotesDocument

Set session = New NotesSession

Set uiView = ws.currentview

Set docs = uiView.Documents

n=docs.count

If n < 2 Then

Set doc = session.DocumentContext

Msgbox "Das Dokument mit dem Titel " & doc.Feldbezeichnung(0) & " hat den Fokus"

Else

Msgbox n & " Dokumente wurden markiert - sie können über die Klasse" & Chr$(10) &_

"NotesDocumentCollection weiter bearbeitet werden"

End If

End Sub



EOM ;)

jo@chim
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: