Sub Test()
    Dim Attachments
    Dim I
    If TCSApp.Messages.RunModuleForSelect("Выберите сообщение с вложением", False) Then
        Set Attachments = TCSApp.Messages.Properties("ATTACHMENTS").AsIDispatch
            I = Attachments.ShowModal("Вложения")
        Set Attachments = Nothing
    End If
End Sub