On 7 Jul., 15:31, "Ken Slovak - [MVP - Outlook]"
wrote:

Thank you for your reply, Ken.

Yes, it is a POP3 account. "Debug.Print objRDOAccount.AccountType"
returns "0".

Peter

This is a POP3 account, the "test" account? Have you tried casting your
account object to a RDOPOP3Account object?

--
Ken Slovak
[MVP - Outlook]http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.http://www.slovaktech.com/products.htm

"Peter Marchert" wrote in message

...
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