Как обращаться в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д