| Вопрос: Программирование календаря Outlook | Добавлено: 21.11.07 09:34 |
Автор вопроса:  Sergey
|
| Как программно создать событие или встречу в календаре Outlook на текущую дату? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #1 | Добавлено: 21.11.07 14:03 |
|
Вот пример...
Sub MakeCalendarItem()
Dim myOL As NameSpace, myCF As MAPIFolder, myCd As AppointmentItem Set myOL = Outlook.Application.GetNamespace("MAPI" 
Set myCF = myOL.GetDefaultFolder(olFolderCalendar) Set myCd = myCF.Items.Add With myCd .AllDayEvent = True .Start = Date .Subject = "Элемент календаря" .Location = "Офис" .Categories = "Проба" .Save .Display '<-можно убрать если не нужно показывать End With End Sub |
||
|
Номер ответа: 2 Автор ответа: Sergey Вопросов: 15 Ответов: 55 |
Профиль | | #2 | Добавлено: 21.11.07 16:54 |
| Спасибо, то что нужно! | ||
Страница: 1 |