Pickliststring -> auf einzelne Werte zugreifen bzw. abfragen

[wuwu]

Hallo,

möchte in einer Picklist Werte auswählen! Funktioniert alles bis auf das ich abfragen möchte:
Sind mehr oder gleich 2 Einträge ausgewählt worden, soll an diese User ein Mail in CC gehen, ansonsten nur das Mail an den ersten - ausgewählten AN.

Ich wies nicht wie man jetzt auf die einzelnen Einträge im Array zugreifen kann, danke für eure Hilfe im vorhinein!!!

Sub Click(Source As Button)
   Dim session As New NotesSession   
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase   
   Dim uidoc As NotesUIDocument
   Dim uidoc_edit As NotesUIDocument
   Dim doc As notesdocument
   
   Set db = session.CurrentDatabase
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.document
   
   Dim mail As NotesDocument   
   Set mail = db.CreateDocument
   
   Dim mailresult As Integer   
   Mailresult = Msgbox ("Soll ...?",MB_YESNO + MB_ICONQUESTION,"Frage")   
   
   If Mailresult = 6 Then
      
      Dim picklist As Variant
      Dim messagelist As String
      Dim dc As NotesDocumentCollection
      
      picklist = ws.PickListStrings( PICKLIST_CUSTOM, True, db.Server, db.FilePath, "($Produktion)", "Dokument auswählen",_
      "Bitte wählen Sie die User aus!", 2,"Produktion" )
      
      If Isempty(picklist) Then
         Exit Sub
      Else
         
         doc.Counter = doc.Counter(0)+1
         doc.Abteilung = "AZ"
         doc.Autor=Arrayappend(doc.Autor,picklist(0))
         mail.Form = "Memo"
         mail.SendTo = picklist(0)
      
         mail.CopyTo = picklist(1)
                  
         mail.Subject = "Neue!"   ' Text Subject
         Dim body As New NotesRichTextItem(mail, "Body")
         body.AppendText("Es &  Chr$(13) & "Hier der Link --> ")                              'Text Body
         Call body.AppendDocLink(doc,"Click Me")
         Call mail.Send(False)
      End If
   Else
      Exit Sub
   End If
End Sub

[Marinero Atlántico]

vielleicht UBound(picklist)?

[koehlerbv]

Ich glaube, Du kannst Dir das ganz einfach machen, Horst:

Wenn Ubound (picklist) = 0 dann
SendTo = picklist.
Wenn Ubound (picklist) > 0 dann
SendTo = picklist (0)
CopyTo = picklist.

picklist (0) bekommt das Mail sowieso nur einmal, auch, wenn er im CopyTo nochmals aufgeführt wird.

Du kannst Dir aber natürlich picklist auch auseinanderdröseln mit 'ner Schleife ab dem Element 1 und das dann jeweils mit AppendToTextlist an CopyTo anhängen ...

Bernhard

[wuwu]

Hallo Jungs,

genau diese Funktion hab ich gesucht, vielen Dank!!!

Mfg Horst