![]() |
#6 |
Участник
|
Цитата:
Код: Outlook: Automation 'Microsoft Outlook 12.0 Object Library'.Application Appointment: Automation 'Microsoft Outlook 12.0 Object Library'.AppointmentItem VariantDate: Variant ********************* CREATE(Outlook, TRUE); Appointment := Outlook.CreateItem(1); VariantDate := CURRENTDATETIME; // Через CREATEDATETIME любое время указать можно Appointment.Start := VariantDate; Appointment.Save; |
|