I then need to be able to take the message that is selected and copy (or move) it into the current DB.
This is what I have in LS so far:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim collection As NotesDocumentCollection
Dim MailDb As Variant
Dim folder As String
Dim I As Integer
'get folder list
Set collection=workspace.PickListCollection(PICIKLIST_CUSTOM, True, MailDb(0), MailDb(1), folder, "Copy Mail", "Select mail to copy:")
If Collection.Count>O Then
For I=1 To SrcCal.Count
' Copy Message
In LS I know I can do the copying if I use a Collection. My problem is that I cannot find a way to do the first picklist abova in LS. I need to know the folder prior to calling PickListCollection.
My other thought is to do a collection in Formula langage but I don't think that is available.