Var F:Folder; login :_Session; msgs:mapi_tlb.messages; msg:mapi_tlb.appointmentitem; CnxTxt:string;
aux:string;
I:integer;
begin login:=nil;
login:=CoSession.Create;
a:= trim(trim('ServerName') +#10+trim('UserName'));
login.Logon('','',true,true,0,true,a);
f:=idispatch(login.GetDefaultFolder(0)) as mapi_tlb.folder;
msgs:= idispatch(f.messages) as mapi_tlb.messages;
msg:=Idispatch(msgs.GetFirst('IPM.Appointment')) as appointmentitem;
while msg<>nil do begin memo1.lines.add('*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*');
memo1.lines.add('Subject: ' + string(msg.subject));
memo1.lines.add('ID: ' + string(msg.id));
Memo1.lines.add('Start Date: ' + string(msg.starttime));
Memo1.lines.add('End Date: ' + string(msg.endtime));
Memo1.lines.add('TimeCreated: ' + string(msg.TimeCreated));
memo1.lines.add('*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*');
msg:=Idispatch(msgs.GetNext ) as AppointmentItem;
end;
msg:=Idispatch(msgs.GetFirst('IPM.Appointment')) as appointmentitem;
i:=1;
while msg<>nil do begin aux:=msg.subject; msg.subject:=aux + ' Item Nº: (' + inttostr(i) +')';
msg.update(true,True);
inc(i);
msg:=Idispatch(msgs.GetNext ) as AppointmentItem;
end;
msg.delete; end;
Const CdoPropSetID1 = '0220060000000000C000000000000046'; CdoPropSetID2 = '0320060000000000C000000000000046'; CdoPropSetID3 = '0420060000000000C000000000000046'; CdoPropSetID4 = '0820060000000000C000000000000046'; CdoPropSetID5 = '2903020000000000C000000000000046'; CdoPropSetID6 = '0E20060000000000C000000000000046'; CdoPropSetID7 = '0A20060000000000C000000000000046'; TaskReminderOverride = '0x851C'; TaskReminderSound = '0x851E'; TaskReminderSet = '0x8503'; TaskReminderFile = '0x851F'; TaskReminderTime = '0x8502'; TaskBillingInformation = '0x8535'; TaskMileage = '0x8534'; TaskCompanies = '0x8539'; TaskContactNames = '0x853A'; TaskStartDate = '0x8104'; TaskCommonStart = '0x8516'; TaskDueDate = '0x8105'; TaskCommonEnd = '0x8517'; TaskPercentComplete = '0x8102'; TaskDateCompleted = '0x810F'; TaskDuration = '0x8106'; TaskTeamTask = '0x8103'; TaskComplete = '0x811C'; TaskTotalWork = '0x8111'; TaskActualWork = '0x8110'; TaskOwner = '0x811F'; TaskStatus = '0x8101'; TaskIsRecurring = '0x8126'; var cdoAppt: MAPI_TLB.Message;
tmpCdoApptFolder : MAPI_TLB.Folder;
cdoApp: AppointmentItem;
AUX:String;
auxT:TTime;
begin tmpCdoApptFolder := idispatch(login.GetDefaultFolder(0)) as mapi_tlb.folder;
cdoApp:=IDispatch(tmpCdoApptFolder.Messages.Add) as AppointmentItem;
CdoApp.Subject := 'ASUNTO';
cdoApp.Importance := mapiLow ;
cdoApp.Sensitivity := 2;
cdoApp.Fields.Add(TaskStartDate,vbDate,date,CdoPropSetID2);
cdoApp.Fields.Add(TaskDueDate,vbDate,(date+0.1),CdoPropSetID2)
CdoApp.StartTime := date;
CdoApp.EndTime := date+0.1;
cdoApp.Fields.Add(TaskPercentComplete,vbInteger,0,CdoPropSetID2);
cdoApp.Fields.Add(TaskDateCompleted,vbDate,date,CdoPropSetID2);
cdoApp.Fields.Add(TaskDuration,vbLong,(0.1),CdoPropSetID2);
cdoApp.Fields.Add(TaskReminderOverride,vbBoolean,False,CdoPropSetID5);
cdoApp.Fields.Add(TaskReminderSound,vbBoolean,True,CdoPropSetID4);
cdoApp.Fields.Add(TaskReminderSet,vbBoolean,True,CdoPropSetID4);
cdoApp.Fields.Add(TaskReminderFile,vbString,'reminder.wav',CdoPropSetID4);
cdoApp.Fields.Add(TaskReminderTime,vbDate,(strtotime('00:15')),CdoPropSetID4);
cdoApp.Fields.Add(TaskOwner,vbString,'',CdoPropSetID2);
cdoApp.Update(True,True);
end;