Not if you don't have an Exchange 2000/2003 server.



You'll have to move to PowerShell.



Regards,



Michael B. Smith

MCITP:SA,EMA/MCSE/Exchange MVP

http://TheEssentialExchange.com



From: ADSIANDDirectoryServices@yahoogroups.com
[mailto:ADSIANDDirectoryServices@yahoogroups.com] On Behalf Of Yantis,
Richard
Sent: Tuesday, September 09, 2008 11:13 PM
To: ADSIANDDirectoryServices@yahoogroups.com
Subject: [ADSI-DirSrv] Creating a mailbox



We have been using the code below for a few years to create all of the
mailboxes for our university. We are moving from Exchange 2003 to
Exchange 2007 and have already move AD to 2008. Is my CDOEXM still
going to work?

Dim IMailbox As CDOEXM.IMailboxStore =
CType(adsUser.NativeObject, CDOEXM.IMailboxStore)
MDBURL = "LDAP://" & adsHost & "/" &
mdbData.GetMDBURL(mdbStoreData) & "," & adsRoot
IMailbox.CreateMailbox(MDBURL)
PutProp("mailNickname", adsUser.Username) 'use
samAccountName as mailNickname
PutProp("proxyAddresses", "SMTP:" & eMailAddress & "@" &
adsDomain)
PutProp("mDBUseDefaults", True) 'We want this value to
always be true for new MBs.
' enable immediate-logon for the user
PutProp("msExchUserAccountControl", 0) 'just added this on
7/5/2005.
adsUser.CommitChanges()

Richard





[Non-text portions of this message have been removed]