Operation Failed [RESOLVED]

[Gensor]

I'm using Outlook via Visual Basic 6

When I use the command :

Set itmClient = otlApp.GetNamespace("MAPI").GetItemFromID(rstClient.Fields("EntryID"))

I get the error "The operation failed"

Sometimes it works and sometimes it fails !

Anybody knows why?

[Ecniv]

You will have to do some debugging work to find out why.

I am taking a guess, but if it fails on different records then the entryID is referring to something which no longer exists in the mapi space.

If however it is the same record, but for some reason at different times, perhaps something is stopping the request?
Maybe outlook has new protection which detects when somethiung triesto use it and tries to stop the request. Just guessing really

[RobDog888]

Its because your trying to retrieve a Public Outlook Object before the public folders have been cached. Its a bug in Outlook. I had this problem when trying to make a startup Add-In that loaded a Public Calendar. It would only work if I clicked the calendar first, clicked somewhere else, then it would display the Public Calendar.

[Gensor]

Is there anything on Office Update for this bug ?

[RobDog888]

No, seems its a issue with the navigation panel on the left side where you can select the folder to view. I tried everything. Time delays, different methods of programmatically initializing the destination folder, monitored the registry to see if there was something I could duplicate to trick it into populating the public cache, etc.

That stupid activeX control they use for the navigation is the issue. Seems that it only caches public data on the click or check. If you do find something please post back though. I really would like to finish this last feature of my Add-In.

[Gensor]

I'm using the GetItemFromID function to retrieve the item and modify each time it's modified in a VB Application. Will I have this error each time ?

[RobDog888]

If the item is located in a public folder and you have not opened any public folders then it wil. It doesnt matter if you getting an item or folder.

[Gensor]

I need a solution for this.

The fastest way to retrieve the Item is to use GetItemFromID and it crash each time!!

[RobDog888]

But it should only be crashing if Outlook is just been started and the public folder has not been cached yet.

[Gensor]

The error occurred even if outlook is open on the public folder where the item is in

[Gensor]

This occurs on Outlook 2000.

On Outlook 2003 the error don't occur if Outlook is open on the public folder where the item is in!

[Gensor]

That make me sick. I had find the best and fastest way to do the job and now, I'll have to change it until Microsoft create an update for this!

[RobDog888]

If you noticed that in the Options of Outlook you can not even set it to startup to a Public folder either.

[Gensor]

I found a way of doing it!!!

I add the line :

Set folContact = GetFolder(otlApp, "Contacts GRB")

And here's the code of GetFolder

Public Function GetFolder(ByVal otlApp As Outlook.Application, ByVal sFolderName As String) As MAPIFolder
  Dim iFolders            As Integer
  Dim iPublicFolders      As Integer
  Dim iAllPublicFolders   As Integer
  Dim folSearched         As MAPIFolder
  Dim folPublicFolders    As MAPIFolder
  Dim folAllPublicFolders As MAPIFolder
  
  For iFolders = 1 To otlApp.Session.Folders.Count
    If otlApp.Session.Folders.Item(iFolders).Name = "Public Folders" Or _
       otlApp.Session.Folders.Item(iFolders).Name = "Dossiers publics" Then
      Set folPublicFolders = otlApp.Session.Folders.Item(iFolders)
      
      For iPublicFolders = 1 To folPublicFolders.Folders.Count
        If folPublicFolders.Folders.Item(iPublicFolders).Name = "All Public Folders" Or _
           folPublicFolders.Folders.Item(iPublicFolders).Name = "Tous les dossiers publics" Then
          Set folAllPublicFolders = folPublicFolders.Folders.Item(iPublicFolders)
          
          For iAllPublicFolders = 1 To folAllPublicFolders.Folders.Count
            If folAllPublicFolders.Folders.Item(iAllPublicFolders).Name = sFolderName Then
              Set folSearched = folAllPublicFolders.Folders.Item(iAllPublicFolders)
            End If
          Next
        End If
      Next
    End If
  Next
  
  Set GetFolder = folSearched
End Function

[Gensor]

Forget it... this is only working with Outlook 2003. I still have the error in Outlook 2000 !!!

[Gensor]

My boss ordered Microsoft Office XP, do you think it's going to work on Outlook XP if it works on 2003 ?

[RobDog888]

You can try this way to drill down.

oNS.Folders("Public Folders").Folders("All Public Folders").Folders("Blah")

[Gensor]

I guess my only choice now is to put the MDB Contact Id in the ContactItem.User1 and do a loop to find it but it's going to slow it down a lot!

[RobDog888]

I just remembered the you could programmatically do an AdvancedSearch but it is only for 2003, I cant remember 100%. I have this thread in CodeBank.

[Gensor]

I only have 1 outlook 2003, all the others are 2000

[RobDog888]

This is one of the few things I dont like about Outlook, the way it handles Public Folders and caching.

[Gensor]

If you're sure that Outlook 2002 and Outlook XP is the same product, so the code I wrote up there is working on Outlook XP too because I found a station with Outlook 2002 on it and I tested my program !

[RobDog888]

Outlook XP IS Outlook 2002 OR Outlook 10.0.

Make sure you do an Office Update so all version of Office are updated and the same.

[Gensor]

Ok then, so everything is okay for now. I'm sure that users will say that it's too slow for now but I can't do anything else!! And as soon as Office XP (2002) arrives, I install it everywhere and modify my code to add GetItemFromID !

Thanks for your help RobDog.. You're the man!

[RobDog888]

No problem I wish I could get my clients to upgrade as easily as you did.