View Single Post
  #2  
Old October 21st 07, 02:26 PM posted to microsoft.public.outlook.program_vba
Sue Mosher [MVP-Outlook]
external usenet poster
 
Posts: 11,651
Default Smarter NameSpace Reference...

Answered at http://www.outlookcode.com/threads.a...essageid=24546

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"DG" wrote in message ...
I am using the following code in a VB.Net 2005 add-in for Outlook 2003 and on
50% of my workstations I get a Cast Object error. So obviously my approach is
wrong:

Private Sub ThisApplication_Startup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Startup
...
Dim objOutlook As Outlook._Application
objOutlook = New Outlook.Application()
Dim objNS As Outlook._NameSpace = objOutlook.Session
objFolder =
objNS.GetDefaultFolder(Outlook.OlDefaultFolders.ol FolderSentMail)
objFolderItems = objFolder.Items
AddHandler objFolderItems.ItemAdd, AddressOf objFolderItemAdded
...
End Sub

So I believe it's wrong to create a new Outlook session from within Outlook.
How else would I do it to avoid the cast error?

DG

Ads