VN aracılığıyla LotusNote Öğesi Sayısı

Question

LotusNotes uygulamasından bazı veriler alan bir VBA makrosu kullanıyorum. Çoğu işe yarıyor, ancak bir Öğedeki öğelerin sayısını almaktan alamıyorum. Örneğin

:

Dim DomSession As Object 
Dim DomDir As NotesDatabase 
Dim DomContacts As NotesView 
Dim DomDoc As NotesDocument 

While Not (DomDoc Is Nothing) 
GetItemValue("name of item")(0) 
Set DomDoc = DomContacts.GetNextDocument(DomDoc) 
Wend 

GetItemValue ("öğesinin adı") (0) Beni Item ilk veya tek değer alır. Bununla birlikte, bir Öğede daha fazla eleman varsa, bu gerçekleşirse, kaç tane olduğunu bilmiyorum. Endeksler (i) ile döngü yapmak, liste sınırlar dışına çıkana kadar VBA'da bir çalışma zamanı hatasıyla sonuçlanır.

LotusScript'te, istediğimi yapması gereken @Count var, ancak bu VBA ile çalışmaz. Baska öneri?

Answer 1

GetitemValue, bir öğedeki tüm değerlere sahip bir dizi döndürür.

Dim DomSession As Object 
Dim DomDir As NotesDatabase 
Dim DomContacts As NotesView 
Dim DomDoc As NotesDocument 
Dim varValues 

While Not (DomDoc Is Nothing) 
    varValues = DomDoc.GetItemValue("name of item") 
    max = ubound(varValues) 
    For i = 0 to max 
     yourValue = varValues(i) 
     '- do whatever you want with values 
    Next 
    Set DomDoc = DomContacts.GetNextDocument(DomDoc) 
Wend