BorlandTalk.com

Freddy Rademeyer · Guest

Hi every one.

I have a need to know which item is selected in the shared folder in
Outlook. I used to following code to connect to the Calendarfolder of a
shared account.

MyApp := CreateOleObject('Outlook.Application');
NmSpace := OutlookApp.GetNamespace('MAPI');
MyRecipient := NmSpace.CreateRecipient('Jack Black');
MyRecipient.Resolve;
if MyRecipient.Resolved then
TmpFolder := NmSpace.GetSharedDefaultFolder(MyRecipient,
olFolderCalendar);

Now I can't figure out how to select the "selected" item.

If I was doing this with a normal folder the code would have been:

MyApp := CreateOleObject('Outlook.Application');
MyItem := MyApp.ActiveExplorer.Selection.Item[1];

Nice and simple.

Well I am sure someone has done something similiar.

Thanks in advance.

Freddy

Dmitry Streblechenko · Guest

A shared folder is not any different from any other folder when it is being
displayed; what's wrong with Explorer.Selection?
Since you never display the shared folder, nothing is selected - do you call
TmpFolder.Display or TmpFolder.GetExplorer?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Freddy Rademeyer" <Freddyr (AT) octagon (DOT) co.za> wrote

Freddy Rademeyer · Guest

Hi Dmitry,

I have a eventsink on the "OutlookItemsEvents" on the ItemRemove I have the
following code:

MyApp := CreateOleObject('Outlook.Application');
Try
MyItem := MyApp.ActiveExplorer.Selection.Item[1];
Except
on E:SysUtils.Exception do showmessage(E.Message);
end;

In the normal folder It gets the correct "selected" item, which I use to
update our DB.

Now when I run the same code for "SharedFolder" it gives me an error :
"Array index out of bounds"

So I tried using :
MyApp := CreateOleObject('Outlook.Application');
NmSpace := OutlookApp.GetNamespace('MAPI');
MyRecipient := NmSpace.CreateRecipient('Jack Black');
MyRecipient.Resolve;
if MyRecipient.Resolved then
TmpFolder := NmSpace.GetSharedDefaultFolder(MyRecipient,
olFolderCalendar);

To get the correct "SharedFolder" but when I use :
TmpFolder.Selection.Item[1] I get the following error :
"Method 'Selection' not supported by automation object"

Now I most likely have the idea incorrect. I have tried using the
TmpFolder.Display and that creates a new folder that is diaplayed. And that
tells me that I am going about this the wrong way.

All my other events works correctly in the SharedFolder except the
"ItemRemove".

Any help and suggestions welcome.

Regards,

Freddy

"Dmitry Streblechenko" <dmitry (AT) dimastr (DOT) com> wrote

Dmitry Streblechenko · Guest

1. Why do you need to create an instance of Outlook.Application again? If
you already hooked up the events, that means you already have that object,
right? Why not keep it around?
2. Do check the selection count (MyApp.ActiveExplorer.Selection.Count) first
before accessing its elements (that's what index out of bounds means).
3. Correct, MAPIFolder object does not have the Selection collection,
Explorer object does - see the interface definitions or look at the type
library
4. As I noticed before:

Explorer := TmpFolder.GetExplorer;
Explorer.Display;
if Explorer.Selection.Count > 0 then begin
...

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Freddy Rademeyer" <Freddyr (AT) octagon (DOT) co.za> wrote

Freddy Rademeyer · Guest

Hi Dmitry,

I have played with different options ... no joy.

When I use the MyApp.ActiveExplorer.Selection.Count( And I have somethings
Selected) I get 0 in the sharedfolder, but in a normal folder I get the
correct amount of selected items.

As per your recommendation I kept the instance of the "Outlook.Application"
same result(No Selected items), and I can't use the :
Explorer := TmpFolder.GetExplorer;
Explorer.Display;
if Explorer.Selection.Count > 0 then
begin
...
end

This creates a new folder that is displayed and not the one I am currently
viewing.

Now I have to say, that on all other events in the sharedfolder it is
working but not on the "ItemRemove".

And I am now clueless.

If there is any more suggestions, I am all ears.

Regards,

Freddy

"Dmitry Streblechenko" <dmitry (AT) dimastr (DOT) com> wrote

Dmitry Streblechenko · Guest

If you want to display a folder in the current explorer: set the
Explorer.CurrentFolder property:

Application.ActiveExplorer.CurrentFolder := TmpFolder;

You get Selection.Count = 0 because nothing is selected. Are you saying that
you can see multiple messages selected, but when you query Selection.Count
you get 0? Note that if you just made an explorer visible, it might not have
a chance to initialize itself properly so the count will 0 if if you hit the
selection collection immediately.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Freddy Rademeyer" <Freddyr (AT) octagon (DOT) co.za> wrote

Freddy Rademeyer · Guest

Hi Dmitry,

Thanks for the response,

I tried the Application.ActiveExplorer.CurrentFolder := TmpFolder, but get
the following message: "You do not have sufficient permission to perform
this operation on this object. See folder contact or your system
administrator". I have all the available rights on this shared folder, so no
no.

And to the second part: Yes I have multiple items selected in the shared
folder but when I check the Selection.count in the "ItemRemove" event I get
zero.

Perhaps I need to solve this problem from a different angle.

Let me explain what my goal is and perhaps you know of another way:

I Log all activity the user has in their outlook, like creating appointments
and tasks( I add a unique Ref to each Subject for tracking). So when they
delete items(appointments) I track that and update my DB. In this particle
case the user will be working on someone elses calendar updating their
calendar(adding and removing) appointments.

Goal: Need to update which Appointments was deleted in my DB. But if I don't
know which appointment I can't update...

Well perhaps I need to go home and tomorrow the solutions will present
itself to me...

Once again thanks a mill for the advise.

Regards,

Freddy

"Dmitry Streblechenko" <dmitry (AT) dimastr (DOT) com> wrote

Dmitry Streblechenko · Guest

The problem with setting Explorer.CurrentFolder property is probably due to
Delphi unable to handle set-by-ref properties. Are you using early or late
binding?
Secondly, do *not* use events for any kind of synchronization - they are a
simple FYI, subject to be dropped under heavy loads. Plus you cannot track
deleted items - the item being deleted (already deleted actually) is not
passed to you handler.
For Exchange (that's what you are using, right?), use the special interfaces
designed for this very purpose - search for IExchangeExportChanges etc on
MSDN. The Platform SDK has a sample app that synchronizes an Exchange
folder. Essentially you will be able to ask Exchnage to play back the
changes (add/edit/delete) since the last sync cycle.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Freddy Rademeyer" <Freddyr (AT) octagon (DOT) co.za> wrote