Store.FilePath problem

[af2604]

Hi all.
I'm trying to develop an AddIn using Visual Syudio 2008 Visual Basic,
for Outlokk 2007.
I'm able to detect the "SelectionChange" event for the current explorer,
the program work fine, but the problem is that I have an IMAP account
and so 2 different PST files : OUTLOOK.PST and IMAP.PST

As soon as the program start it correctly detect that I'm working on the
OUTLOOK.PST default file.

But if I change selection and go in the "send folder" of Imap account
I'm able to see the corrent user name : (e-mail address removed) but I'M NOT
ABLE TO DETECT THE CORRECT PST FILE.

What I use to do this is :
-----------------------------------------------------------------------
Public WithEvents CurExplorer As Outlook.Explorer

Private Sub CurExplorer_Activate() Handles _
CurExplorer.SelectionChange

Dim CurFldName As String
Dim CurFldPath As String
Dim CurUser As String
Dim CurEntryId As String
Dim CurStoreId As String
Dim i As Integer

CurUser = Me.Application.Session.CurrentUser.Address

CurFldName = CurExplorer.CurrentFolder.Name
CurFldPath = CurExplorer.CurrentFolder.Store.FilePath
CurEntryId = CurExplorer.CurrentFolder.EntryID
CurStoreId = CurExplorer.CurrentFolder.StoreID

pippo = Me.Application.GetNamespace("MAPI"). _
GetFolderFromID(CurEntryId, CurStoreId).Items


End Sub
------------------------------------------------------------------------
when I'm using OUTLOOK.PST file all is ok but when I select a IMAP
folder the CurStoreId is always empty

Any idea ?

Alberto

 

[Sue Mosher [MVP-Outlook]]

It looks to me like you're making this too hard. Your code gets the IDs from the current folder, then gets the same current folder again using GetFolderFromID. Why not cut out the extra steps and just use:

pippo = CurExplorer.CurrentFolder.Items

I've never heard of or seen a blank StoreID for any store.

 

[af2604]

Sue Mosher [MVP-Outlook] ha scritto:

It looks to me like you're making this too hard. Your code gets the IDs from the current folder, then gets the same current folder again using GetFolderFromID. Why not cut out the extra steps and just use:

pippo = CurExplorer.CurrentFolder.Items

I've never heard of or seen a blank StoreID for any store.

I try to explain:

1) I activate an event trigger with "pippo" on the current folder

2) If the user changes the current folder I have to redirect "pippo" on
an other folder so I have an event trigger also on CurExplorer the
trigger starts when the user change folder better the folder is
activated (from "Sent mail" to "incoming" and so on)

3) the istruction : CurFldName = CurExplorer.CurrentFolder.Name is only
a debug I want to see the name of the new selected folder

4) to redirect pippo on the new folder items, with events, I have to use
the istruction :

pippo = Me.Application.GetNamespace("MAPI"). _
GetFolderFromID(CurEntryId, CurStoreId).Items

now I have 2 email account on my outlook:

1) (e-mail address removed)
2) (e-mail address removed)

with the first one is ALL ok

CurFldName = "sent email"
pippo detect event on this folder

the problem is on the IMAP account

CurFolder is correct
but
CurFldPath = CurExplorer.CurrentFolder.Store.FilePath
is empty

thanks for the anwer

Alberto

 

[af2604]

af2604 ha scritto:

Sue Mosher [MVP-Outlook] ha scritto:

It looks to me like you're making this too hard. Your code gets the
IDs from the current folder, then gets the same current folder again
using GetFolderFromID. Why not cut out the extra steps and just use:

pippo = CurExplorer.CurrentFolder.Items
I've never heard of or seen a blank StoreID for any store.

I try to explain:

1) I activate an event trigger with "pippo" on the current folder

2) If the user changes the current folder I have to redirect "pippo" on
an other folder so I have an event trigger also on CurExplorer the
trigger starts when the user change folder better the folder is
activated (from "Sent mail" to "incoming" and so on)

3) the istruction : CurFldName = CurExplorer.CurrentFolder.Name is only
a debug I want to see the name of the new selected folder

4) to redirect pippo on the new folder items, with events, I have to use
the istruction :

pippo = Me.Application.GetNamespace("MAPI"). _
GetFolderFromID(CurEntryId, CurStoreId).Items

now I have 2 email account on my outlook:

1) (e-mail address removed)
2) (e-mail address removed)

with the first one is ALL ok

CurFldName = "sent email"
pippo detect event on this folder

the problem is on the IMAP account

CurFolder is correct
but
CurFldPath = CurExplorer.CurrentFolder.Store.FilePath
is empty

thanks for the anwer

Alberto

ERRATA CORRIGE:

SOOOOORRY

but when i select a folder of an IMAP account I STILL SEE the POP3 account

sorry again

why ?