![]() |
Outlook 2003 VB6 Add-In: Loop folders in AddinInstance_OnConnectio
Hello out there,
my first VB6-add-in for Outlook 2003 does not work on all machines. If other add-ins are loaded, it sometimes failes with an error "Client process could not be completed". The error occurs when in AddinInstance_OnConnection my add-in looks for a certain folder. Dim oStores As Outlook.Folders Dim oFolder As Outlook.MAPIFolder Dim oSubFolder As Outlook.MAPIFolder Dim sMyEntryID As String Set oStores = oMyOLNameSpace.Folders For Each oFolder In oStores For Each oSubFolder In oFolder.Folders If oSubFolder.Name = "NeedThis" Then sMyEntryID = oSubFolder.EntryID End If Next oSubFolder Next oFolder Is there anything wrong with looping through Outlook folders in AddinInstance_OnConnection? Is this bad practice? Thanks for your advice! Jochen |
Outlook 2003 VB6 Add-In: Loop folders in AddinInstance_OnConnectio
How dows the complete procedure look like? -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook Synchronize Color Categories & Ensure that Every Item Gets Categorized: http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6 Am Mon, 29 Oct 2007 14:31:00 -0700 schrieb jochen: Hello out there, my first VB6-add-in for Outlook 2003 does not work on all machines. If other add-ins are loaded, it sometimes failes with an error "Client process could not be completed". The error occurs when in AddinInstance_OnConnection my add-in looks for a certain folder. Dim oStores As Outlook.Folders Dim oFolder As Outlook.MAPIFolder Dim oSubFolder As Outlook.MAPIFolder Dim sMyEntryID As String Set oStores = oMyOLNameSpace.Folders For Each oFolder In oStores For Each oSubFolder In oFolder.Folders If oSubFolder.Name = "NeedThis" Then sMyEntryID = oSubFolder.EntryID End If Next oSubFolder Next oFolder Is there anything wrong with looping through Outlook folders in AddinInstance_OnConnection? Is this bad practice? Thanks for your advice! Jochen |
Outlook 2003 VB6 Add-In: Loop folders in AddinInstance_OnConne
This is a readable version of the procedure which sometimes showing error
"Client process could not be completed". Meanwhile I have a better version of the add-in using Redemption's GetSharedDefaultFolder-method. Nevertheless I'd like to know if my former looping the folders in AddinInstance event is bad design? Maybe not all Exchange folders are ready at this moment? In this procedure I try to get the StoreIDs and EntryIDs of the user's Sent-Item-folders (own plus delegate mailboxes). The error occurs when trying to get the EntryID of an Exchange folder (probably a Calendar). I do have sufficient rights and the error still happens with some users only, not always and with all users. Thanks for your advice! Regards, Jochen ----------- Private Type UserSentFolder UserName As String FolderID As String StoreID As String End Type Private Sub AddinInstance_OnConnection(ByVal Application As Object, _ ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _ ByVal AddInInst As Object, custom() As Variant) Dim oOLNameSpace As Outlook.NameSpace Dim oStores As Outlook.Folders Dim oFolder As Outlook.MAPIFolder Dim oSubFolder As Outlook.MAPIFolder Dim j As Long Dim sTempUserName As String Dim sTempFolderName As String Set oOLNameSpace = Application.GetNamespace("MAPI") Set oStores = oOLNameSpace.Folders For Each oFolder In oStores sTempUserName = oFolder.Name sTempUserName = Mid$(sTempUserName, 12) 'Text behind "Mailbox - " '(in German "Postfach - ") For Each oSubFolder In oFolder.Folders sTempFolderName = oSubFolder.Name If (sTempFolderName = "Gesendete Elemente") Or _ (sTempFolderName = "Gesendete Objekte") Then With m_udtUserSentFolders(j) .UserName = sTempUserName .FolderID = oSubFolder.EntryID '!!!Error occurs here .StoreID = oSubFolder.StoreID End With j = j + 1 End If Next oSubFolder Next oFolder End Sub "Michael Bauer [MVP - Outlook]" wrote: How dows the complete procedure look like? -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook Synchronize Color Categories & Ensure that Every Item Gets Categorized: http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6 Am Mon, 29 Oct 2007 14:31:00 -0700 schrieb jochen: Hello out there, my first VB6-add-in for Outlook 2003 does not work on all machines. If other add-ins are loaded, it sometimes failes with an error "Client process could not be completed". The error occurs when in AddinInstance_OnConnection my add-in looks for a certain folder. Dim oStores As Outlook.Folders Dim oFolder As Outlook.MAPIFolder Dim oSubFolder As Outlook.MAPIFolder Dim sMyEntryID As String Set oStores = oMyOLNameSpace.Folders For Each oFolder In oStores For Each oSubFolder In oFolder.Folders If oSubFolder.Name = "NeedThis" Then sMyEntryID = oSubFolder.EntryID End If Next oSubFolder Next oFolder Is there anything wrong with looping through Outlook folders in AddinInstance_OnConnection? Is this bad practice? Thanks for your advice! Jochen |
All times are GMT +1. The time now is 12:58 PM. |
Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com