Hallo,
ich habe folgendes Problem. Wenn ich mit folgendem Script einen Verteiler auflöse, also mir die darin enthaltenen Namen (Usernamen) anzeigen lasse funktioniert das nur solange Namen im Verteiler stehen. Steht im Verteiler ein anderer Verteiler funktioniert die Auflösung nicht mehr.
Wie kann ich den Verteiler im Verteiler erkennen und auch auflösen?
Hier mal das Script:
Dim GetMembersinGroup As Variant
Dim GroupName As Variant
Dim session As New NotesSession
Dim db As New NotesDatabase("008Noteskal01", "Names.NSF")
Dim doc As NotesDocument
Dim view As NotesView
Dim x As Variant
Dim gn As Variant
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim item As NotesItem
Set uidoc = workspace.CurrentDocument
Call uidoc.Refresh
Set note = uidoc.Document
Set uidoc = workspace.CurrentDocument
gn = uidoc.FieldGetText( "VerteilerSchulungsliste" )
Set view=Db.GetView("($VIMGroups)")
Set doc=View.GetDocumentByKey(GN)
If Not(doc Is Nothing) Then
GetMembersinGroup= Doc.GetItemValue("Members")
End If
GroupLowerBound1= Lbound(GetMembersinGroup)
GroupUpperBound1= Ubound(GetMembersinGroup)
Dim text As String
text = "S_Name_"
For i =GroupLowerBound1 To GroupUpperBound1
text = text & i
Set item=note.ReplaceItemValue(text,GetMembersinGroup(i))
text="S_Name_"
Next i
Ich schreibe die Namen aus dem Verteiler in Textfelder einer Tabelle. (S_Name_1 usw)
Könnt Ihr mir helfen? Bitte aber konkret mit Scriptzeilen.
Schon mal vielen Dank im Voraus.
Bernd