Занести термИны в календарь

[alexb_imported]

Цитата:

Сообщение от 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');