1: 2: 3: 4:
set Lernabschnitt = CreateObject („Redemption.RDOSession“) Session.LogonPstStore pstFile, 1, „PST für“ u. username gesetzter Speicher = Session.Stores.DefaultStore Store.ValidateIPMTree
1: 2: 3: 4: 5:
using Abzahlung; ..... Redemption.RDOSession RDSession = (Redemption.RDOSession) neues Redemption.RDOSession (); RDSession.LogonPstStore (pstFile, 1, „PST für“ + UsertName, 0, 0);
1: 2:
set Speicher = Session.Stores.DefaultStore Store.ValidateIPMTree
1:
RDSession.Stores RDStore = neues Session.Stores.DefaultStore
Redemption.RDOPstStore RDPstStore = (Redemption.RDOPstStore) neues Redemption.RDOPstStore (); RDPstStore.ValidateIPMTree ();
1: 2: 3:
stellte Lernabschnitt = CreateObject ein („Redemption.RDOSession“) Session.Logon MsgBox „der Name des Rückstellungsspeichers ist“ u. vbCrLf u. Session.Stores.DefaultStore.Name
Redemption.RDOPstStore RDStores; RDStores = (Redemption.RDOPstStore) RDSession.Stores.DefaultStore;