Outlook Reminders Collection

Add-in Express™ Support Service
That's what is more important than anything else

Outlook Reminders Collection
How can I access the reminders collection in Outlook > 2000 
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.
Posted 18 Nov, 2006 11:21:13 Top
Dmitry Kostochko


Add-in Express team


Posts: 2887
 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.

Posted 19 Nov, 2006 08:14:44 Top
Thomas Grossen


Guest


Hi Dmitry,

Your solution worked fine. I was missing the "OutlookXP" namespace :(

Thanks for your help.
Posted 20 Nov, 2006 03:39:22 Top