Set oDB = CreateObject("CDOEXM.MailboxStoreDB")
strDB = "CN=Mailbox Store (E2K3),CN=First Storage Group,CN=InformationStore,CN=E2K3,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=Exchange 2003,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=domain,DC=com"
oDB.DataSource.Open strDB
oDB.Dismount()
|