Folder References bei Antwortdokumenten

[pl001]

Hallo,

mit Interesse habe ich das Posting "[Views&Folder] Folder References - In welchem Ordner ist das jeweilige Dokument?" gelesen und umgesetzt.

Doch leider habe ich das Problem, dass folgendes Script nur bei Hauptdokumenten funktioniert. Gibt es eventuell auch eine Möglichkeit das Script entprechend abzuändern, dass bei Antwortdokumenten der Ordner des Hauptdokuments angezeigt wird?

Hier das Script:

Code

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim szReference As String
  
  Set db = session.CurrentDatabase
  
  Set collection = db.UnprocessedDocuments
  
  Set doc = collection.GetFirstDocument
  
  Forall r In doc.FolderReferences
     If r = "" Then Goto Empty
     szReference = r & Chr(10) & szReference
  End Forall      
  
  While Not (doc Is Nothing)
     Msgbox "Folder References: " & Chr(10) & Chr(10) &szReference, 64, db.title
     Set doc = collection.GetNextDocument(doc)  'Nächstes Dokument
  Wend
  
  Exit Sub
  
Empty:
  Msgbox "No References in this document....", 64, db.title
  
End Sub

Viele Grüsse
Peter

[Axel]

Hi,

bei Antwortdokumenten kannst du mit der Eigenschaft ParentDocumentUNID die ID des Hauptdokumentes auslesen und anhand dieser ID das Dokument suchen.


Axel

[pl001]

@Axel

Danke, nur leider kenne ich mich mit LotusScript nicht aus. Daher wäre ich für einen entsprechenden Lösungsansatz dankbar.

Viele Grüsse
Peter

[Axel]

Hi,

ich hab mal auf die Schnelle was zusammengebastelt. Ich hoffe es funktioniert.

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim szReference As String
  Dim szDocID As String
  Dim parent As NotesDocument

  Set db = session.CurrentDatabase
 
  Set collection = db.UnprocessedDocuments
 
  Set doc = collection.GetFirstDocument
 
  While Not (doc Is Nothing)

     Forall r In doc.FolderReferences
        If r = "" Then Goto Empty
        szReference = r & Chr(10) & szReference
     End Forall     

     If doc.IsResponse Then
        szDocId = doc.ParentDocumentUNID
        Set parent = db.GetDocumentByUNID(szDocID )
          Forall r In parent.FolderReferences
               If r = "" Then Goto Empty
               szReference = r & Chr(10) & szReference
          End Forall     
     End If
     Msgbox "Folder References: " & Chr(10) & Chr(10) &szReference, 64, db.title
     Set doc = collection.GetNextDocument(doc)  'Nächstes Dokument
  Wend
 
  Exit Sub
 
Empty:
  Msgbox "No References in this document....", 64, db.title
 
End Sub


Axel

[pl001]

Vielen Dank! Funktioniert aber leider auch nur bei den Hauptdokumenten. Bei Antowrtdokumenten meldet das Script immer noch "No References in this document....".

Gruß
Peter

[Axel]

Hi,

wird den die Variable parent sauber gesetzt? Überprüf' das doch mal mit dem Debugger.


Axel

[pl001]

Ich denke es liegt wohl eher an dem "Then Goto Empty".

Peter

[Axel]

Hi,

ja schon, aber Goto Empty wird nur ausgeführt wenn r leer ist.

Ändere doch mal die ForAll - Schleife ab und füge nur mal eine Messagebox ein.


          Forall r In parent.FolderReferences
              MsgBox r
          End Forall     

Axel
 

[pl001]

Habe es wie folgt gelöst:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim collection As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim szReference As String
	Dim szDocID As String
	Dim parent As NotesDocument
	
	Set db = session.CurrentDatabase
	Set collection = db.UnprocessedDocuments
	Set doc = collection.GetFirstDocument
	
	While Not (doc Is Nothing)
		
		If Not doc.IsResponse Then		
			Forall r In doc.FolderReferences
				If r = "" Then Goto Empty
				szReference = r & Chr(10) & szReference
			End Forall
		End If
		
		If doc.IsResponse Then
			szDocId = doc.ParentDocumentUNID
			Set parent = db.GetDocumentByUNID(szDocID )
			Forall r In parent.FolderReferences
				If r = "" Then Goto Empty
				szReference = r & Chr(10) & szReference
			End Forall      
		End If
		Msgbox "Folder References: " & Chr(10) & Chr(10) &szReference, 64, db.title
		Set doc = collection.GetNextDocument(doc)  'Nächstes Dokument
	Wend
	
	Exit Sub
	
Empty:
	Msgbox "No References in this document....", 64, db.title
	
End Sub

Gruß
Peter