Цитата:
Сообщение от
Kadawrik
Разумеется, если происходят какие-то изменения в терминах...
1. Как вы думаете, все ли в русскоязычном форуме понимают нем. слово ТермИны (ударение на "и") ?
2. Видел в интернете такой вариант, сам ещё никогда не пользовался:
Код:
Variables:
Name DataType Subtype Length
MyApplication Automation 'Microsoft Outlook 14.0 Object Library'.Application
MyNamespace Automation 'Microsoft Outlook 14.0 Object Library'.NameSpace
MyFolder Automation 'Microsoft Outlook 14.0 Object Library'.Folder
MyAppointmentItem Automation 'Microsoft Outlook 14.0 Object Library'.AppointmentItem
Code:
Код:
IF ISCLEAR(MyApplication) THEN
IF NOT CREATE(MyApplication) THEN
ERROR('Outlook not found!');
MyNamespace := MyApplication.GetNamespace('MAPI');
MyFolder := MyNamespace.GetDefaultFolder(9); 'CALENDER'
MyAppointmentItem := MyFolder.Items.Add(1);
MyAppointmentItem.Subject := 'Test Entry';
MyAppointmentItem.Start := DATI2VARIANT(TODAY, 000000T);
MyAppointmentItem."End" := DATI2VARIANT(TODAY, 000000T);
MyAppointmentItem.AllDayEvent(TRUE); // весь день
MyAppointmentItem.Body('Test Test');