|
Вот код на VB, который выбирает папку:
Dim nms As NameSpace
Dim its As Integer
'Dim MyContItem As ContactItem
Dim Adr As String
'Создание объекта, указывающего на данные в Outlook
Set out = New Outlook.Application
Set nms = out.GetNamespace("MAPI")
'Создание объекта, указывающего на папку "Контакты"
Set MyCont = nms.Folders("Общие папки")
Set MyCont = MyCont.Folders("Все общие папки")
Set MyCont = MyCont.Folders("Журналы")
MyCont.CreateItem(...
|