Как обращаться в Outlook 2000 к обычным папкам с документами? - VB

Формулировка задачи:

Privet! Znaet kto-to, kak obrashatsya v Outlook 2000 k obichnim papkam i dokumentam? Eto viglyadit tak, budto Outlook vnutri sebya otkrivaet Explorer s obichnimi papkami i dokumentami, no kak etim upravlyat' programmno???? Spasibo. Roman Soobshenie nomer 778

Решение задачи: «Как обращаться в Outlook 2000 к обычным папкам с документами?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
' Объект семейства MAPI
Public nms As Object
' Объект Папки
Public fldLetters As Object
' Объект ко-во Папок
Public itms As Object
Public ff As Object
Public at As Object
 
' Объект - файл Excel
Public Xl As Attachments
 
Public EXC As Excel.Workbook
 
Private Sub Form_Load()
Dim s As String, i As Integer
' Делаем строку - имя папки
s = 'Доска обявлений '
' Создаем объект MAPI
Set nms = Application.GetNamespace('MAPI')
' Создаем объект Папка
Set fldLetters = nms.Folders('Общие папки').Folders('Все общие папки').Folders(s)
'
Set itms = fldLetters.Items
'Получаю ссылку на сообщение
Set ff = itms.Item('ТЕЛЕФОНЫ')
'ff.Display
Set at = ff.Attachments
'Print at.Count
at.Item(1).SaveAsFile 'c: ' & at.Item(1).DisplayName
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set nms = Nothing
Set fldLetters = Nothing
Set itms = Nothing
Set Xl = Nothing
Set EXC = Nothing
End Sub