Domino 9 und frühere Versionen > ND6: Entwicklung

Schleife für kategorisierte Ansicht

<< < (2/2)

sja:
Hallo,

hab’s so implementiert:

Dim session As NotesSession
Dim db As NotesDatabase

Dim doc As NotesDocument
Dim docAll As NotesDocument
Dim MailDoc As NotesDocument   
Dim view As NotesView
Dim viewAll As NotesView
Dim vecAll As NotesViewEntryCollection
Dim vec As NotesViewEntryCollection   
Dim ve As NotesViewEntry
Dim key As String
Dim tmpKey As String
Dim an As String
...

Set session = New NotesSession
...
   Set db = session.CurrentDatabase
   Set view=db.getview("tmpAktlWoAE")
   Set viewAll=db.getview("tmpAktlWoAE")
   
   Set vecAll = viewAll.AllEntries   
   If Not(vecAll.Count = 0) Then   
      
      Set docAll = viewAll.GetFirstDocument
      key = docAll.Name(0)
      an = key
      Set vec = view.GetAllEntriesByKey(key, True)
      Call MailSenden()  ‘Komplezierte Funktion mit dem Tabellenaubauen usw.
      
      While Not ( docAll Is Nothing )      
         tmpKey = docAll.Name(0)      
         If Not(tmpKey = key) Then
            key = tmpKey
            an = key
            Set vec = view.GetAllEntriesByKey(key, True)
            Call MailSenden()
         End If      
         Set docAll = viewAll.GetNextDocument( docAll )
      Wend
      
   End If
...

Evtl. könnte eleganter macht werden, aber so funktioniert auch...

Noch mal herzlichen Dank, Bernhard, für deine Hilfe!

Schöne Gruesse
Sofia

Navigation

[0] Themen-Index

[*] Vorherige Sete