Domino 9 und frühere Versionen > ND8: Entwicklung

Mit Agent Felder aus Dokumenten auslesen

<< < (2/5) > >>

Schnubbel:
So würde ich es machen:

Option Public
Use "MyScripts"
Sub Initialize
  
   Err=0
   On Error Resume Next
   MessageBox "START",1, ""
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim mailfeld as Variant
   Set db = session.CurrentDatabase
   Set collection = db.AllDocuments

   For i = 1 To collection.Count
      Set doc = collection.GetNthDocument( i )
  
      mailfeld = doc.GetItemValue("email1")

            
      MessageBox "Die eMail Adresse Nr. " & i & " lautet " & mailfeld(0) & " und ist vorhanden",1, " E-Mail"
   Next

   MessageBox "ENDE!",1, ""
   Exit Sub
  
End Sub

werner16:
Hallo Schnubbel,

Dein Script funktioniert, muss es mir nach mal in Ruhe ansehen um es zu verstehen,
habe jetzt leider einen Termin, aber melde mich hier nochmal.

Danke erst mal an alle.  :)

Gruß,
Werner

ata:
... uidoc greift auf ein im Frontend geöffnetes Dokument zu - du liest aber per Backend - das kann also nicht gehen...

Toni

Tode:
WICHTIGER TIPP: IMMER Option Declare hinzufügen... (kann man auch einstellen, dass das automatisch hinzugefügt wird).

1. wird man gezwungen, alle Variablen, die man verwendet zu deklarieren
2. Hättest Du sofort gemerkt, dass uidoc <> doc (weil uidoc eben NICHT deklariert wurde...

DAU-in:
Was machst du, wenn die Mailadresse nict auf (0), sondern auf (1) steht?

Und zu deiner Iteration:

http://www-10.lotus.com/ldd/bpmpblog.nsf/dx/finding-docs1

das ist häufig besser aus Performancegründen

Set collection = db.AllDocuments
set doc = collection.getfirstdocument

For i = 1 To collection.Count
'tu was
set doc = collection.getnextDocment(doc)

Next


edith:
Eknori sagt:

bei View und ViewEntryCollection kannst du das nehmen, nur bei Collection nicht

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete