Исходный текст

Option Explicit
Call CreateFolder(ThisApplication.MailFolders)

'==============================================================================
'Создать новую почтовую папку в ящике текущего пользователя
'==============================================================================
Sub CreateFolder(FCol)
        Dim MailFolderDlg, NewFolder
        
        'Создать новый объект TDMSMailFolder в коллекции
        Set NewFolder = FCol.Create
        'Присвоить описание
        NewFolder.Description = "Test"        
        
        'Открыть созданную папку в диалоге
        Set MailFolderDlg = ThisApplication.Dialogs.MailFolderDlg
        MailFolderDlg.Object = NewFolder
        MailFolderDlg.Show
End Sub
'==============================================================================