1: 2: 3: 4:
set = CreateObject („Redemption.RDOSession“) pstFile Session.LogonPstStore, 1, „PST voor“ & gebruikersbenaming vastgestelde Opslag = Session.Stores.DefaultStore Store.ValidateIPMTree
1: 2: 3: 4: 5:
using Afkoop; ..... Redemption.RDOSession RDSession = (Redemption.RDOSession) nieuwe Redemption.RDOSession (); pstFile RDSession.LogonPstStore (, 1, „PST voor“ + UsertName, 0, 0);
1 heb gehad: 2:
set = Session.Stores.DefaultStore Store.ValidateIPMTree
1:
RDSession.Stores RDStore = nieuwe Session.Stores.DefaultStore type
1: 2:
Redemption.RDOPstStore RDPstStore = (Redemption.RDOPstStore) nieuwe Redemption.RDOPstStore (); RDPstStore.ValidateIPMTree ();
1: 2: 3:
plaatsen Zitting = CreateObject („Redemption.RDOSession“) Session.Logon MsgBox de „Naam van de standaardopslag is“ & vbCrLf & Session.Stores.DefaultStore.Name
Redemption.RDOPstStore RDStores; RDStores = (Redemption.RDOPstStore) RDSession.Stores.DefaultStore;