View Single Post
  #1  
Old July 7th 08, 07:30 AM posted to microsoft.public.outlook.program_vba
Peter Marchert[_2_]
external usenet poster
 
Posts: 12
Default DeliverToStore does not work on 2003?

Hello,

I tried to set the DeliverToStore property in Outlook 2003 SP3 by the
following code:

Sub StoreTest()

Dim objRDOSession As Redemption.RDOSession
Dim objRDOAccount As Redemption.RDOAccount
Dim objRDOStore As Redemption.RDOStore

Set objRDOSession = CreateObject("Redemption.RDOSession")
objRDOSession.MAPIOBJECT = Outlook.Session.MAPIOBJECT
Set objRDOAccount = objRDOSession.Accounts("test")

Set objRDOStore = objRDOSession.Stores.AddPSTStore("c:\test", 1,
"Store for test")
objRDOAccount.DeliverToStore = objRDOStore
objRDOAccount.Save

Set objRDOStore = Nothing
Set objRDOAccount = Nothing
Set objRDOSession = Nothing

End Sub

In the line "objRDOAccount.DeliverToStore = objRDOStore" the error
"Error in IOlkAccount.SetProp: E_ACCT_NOT_FOUND" occurs. The account
object is referenced and the name property for example can be
retrieved.

I tried this on english and german systems with the Redemption version
4.5.0.812.

With 2007 it works fine. On the homepage of Dmitry I read that
"DeliverToFolder" is a specific 2007 method (because this function was
not implemented in earlier versions). Is this also true for the
"DeliverToStore" method which is present in Outlook 2003 and earlier?

Thanks
Peter

--
Infos, Workshops & Software for
OutlookŪ: www.outlook-stuff.com
Ads