Список Папок Из Mailin Пользователя

Sub Initialize
Dim v As Variant
Dim session As New NotesSession
Dim mdb As NotesDatabase
Set mdb = session.GetDatabase("", "", False)
Call mdb.OpenMail
Dim ws As New NotesUIWorkspace
v = ws.PickListStrings(4, False, mdb.Server, mdb.FilePath)
Msgbox v(0)
End Sub

@SetProfileField( "MainProfile"; "FolderList"; @PickList( [Folders] : [Single]; @MailDbName ); @UserName );
@Command( [RunAgent]; "Copy in MailDB" )

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim stringAuthors As String
Dim stringStrings As String
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("MainProfile", session.UserName)
profileFL = doc.FolderList
If profileFL(0) = "" Then
Messagebox "Ошибка: нет записи в проф. документ!", 0+48,"Звони админу!"
Exit Sub
End If
Dim dc As NotesDocumentCollection
Dim docCopy As NotesDocument
Dim reg As New NotesRegistration
reg.RegistrationServer = db.Server
Call reg.GetUserInfo(session.UserName, mailserver$, mailfile$)
Dim MailDb As New NotesDatabase( mailserver$, mailfile$ )
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While Not (doc Is Nothyng)
Set docCopy = doc.CopyToDatabase( MailDb )
Call docCopy.PutInFolder (profileFL(0))
Set doc = dc.GetNextDocument(doc)
Wend
End Sub