Thomas Grossen
Guest
|
Hi,
I need to access the Reminders collections in Oultook 2002 and 2003. I could not find how to do it, I think it is because it was not available in Outlook 2000.
I was using it with your .Net version of Add-In Express, how can I do it with Delphi VCL?
Thank you. |
|
Dmitry Kostochko
Add-in Express team
Posts: 2880
Joined: 2004-04-05
|
Hi Thomas,
See the code below. If you have other questions feel free to ask me.
uses {...}, Outlook2000, Dialogs;
//...
TAddInModule = class(TadxCOMAddInModule)
adxOlExplorerCommandbar1: TadxOlExplorerCommandbar;
procedure adxOlExplorerCommandbar1Controls0Click(Sender: TObject);
private
protected
public
end;
implementation
{$R *.dfm}
uses OutlookXP;
procedure TAddInModule.adxOlExplorerCommandbar1Controls0Click(Sender: TObject);
var
i, Ver: Integer;
IReminders: OutlookXP._Reminders;
begin
Ver := StrToInt(Copy(OutlookApp.Version, 1, Pos('.', OutlookApp.Version) - 1));
if Ver >= 10 then begin
IReminders := IDispatch(OleVariant(OutlookApp.DefaultInterface).Reminders) as OutlookXP._Reminders;
if Assigned(IReminders) then
try
ShowMessage('Reminders: ' + IntToStr(IReminders.Count));
for i := 1 to IReminders.Count do
ShowMessage(IReminders.Item(i).Caption);
finally
IReminders := nil;
end;
end;
end;
P.S. Note that we take up your forum requests in the order we receive them.
Besides, it may take us some time to investigate your issue. Please be sure we will let you know as soon as the best possible solution is found.
|
|
Thomas Grossen
Guest
|
Hi Dmitry,
Your solution worked fine. I was missing the "OutlookXP" namespace :(
Thanks for your help. |
|