Creating a Mailbox-Enabled Recipient
Creating a Mailbox-Enabled Recipient
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
In the following example, a new recipient and an accompanying mailbox are created. The IMailboxStore interface is aggregated onto the Person object. This allows the person information to be used when creating the mailbox.
Example (CDOEXM)
Create a mailbox for a mail recipient. The example uses the CreateUserURL subroutine, which is described in the topic Creating a User URL.
Visual Basic
Sub CreateMailboxCDOPerson(strFirstName As String, _ strLastName As String, _ strHomeMDBUrl As String) ' strHomeMDBUrl should look like this ' strHomeMDBUrl = "CN=Mailbox Store (MYSTORE),CN=First Storage Group, ' CN=InformationStore,CN=MYSTORE,CN=Servers, ' CN=First Administrative Group,CN=Administrative Groups, ' CN=IASI,CN=Microsoft Exchange,CN=Services,CN=Configuration, ' DC=mydomain,DC=fourthcoffee,DC=com" Dim oPerson As New CDO.Person Dim oMailbox As CDOEXM.IMailboxStore Dim strUserName As String Dim strURL As String Dim strContainerName As String strUserName = strFirstName & strLastName strContainerName = "Users" ' Create a URL for the user. CreateUserURL strURL, strContainerName, False, strUserName oPerson.FirstName = strFirstName oPerson.LastName = strLastName oPerson.DataSource.SaveTo strURL ' Create a mailbox. Set oMailbox = oPerson oMailbox.CreateMailbox strHomeMDBUrl ' Save. oPerson.DataSource.Save ' Clean up. Set oPerson = Nothing Set oMailbox = Nothing End Sub
VBScript
Sub CDOCreateMailBoxRecipient(MDBName, _ domainName, _ exchangeOrg, _ adminGroup, _ storageGroup, _ storeName, _ emailname, _ firstName, _ lastName) ' MDBName - the MDB name, for example "MyMDB6" ' domainName - the server's domain, for example "MYDOMAIN3.microsoft.com" ' exchangeOrg - the Exchange organization housing the mailbox store. For example "First ' Organization" ' adminGroup - the Exchange administrative group name, for example "First Administrative Group" ' storageGroup - the storage group for the mailbox store, for example "First Storage Group" ' storeName - the mailbox store name, for example "Mailbox Store (SERVERNAME)" ' emailname - the user's e-mail name, for example "jamessmith" ' firstName - the user's first name, for example "James" ' lastName - the user's last name, for example "Smith" Dim objPerson Set objPerson = CreateObject("CDO.Person") Dim objMailbox Dim domTokens domTokens = split(domainName,".",-1,1) domainDN = join(domTokens,",dc=") domainDN = "dc=" & domainDN ' First, create the user in Active Directory. objPerson.FirstName = FirstName objPerson.LastName = LastName objPerson.Fields("userPrincipalName") = LastName objPerson.Fields("userAccountControl") = 512 objPerson.Fields("userPassword") = "password" objPerson.Fields.Update objPerson.DataSource.SaveTo "LDAP://CN=" + MDBName + _ ",CN=" + emailname + _ ",CN=users," + domainDN ' Now, create a mailbox in a specified location. Set objMailbox = objPerson.GetInterface("IMailboxStore") objMailbox.CreateMailbox "LDAP://CN=" + _ MDBName + _ ",CN=" + _ StoreName + _ ",CN=" + _ StorageGroup + ",CN=InformationStore,CN=" + _ ServerName + _ ",CN=Servers,CN=" + _ AdminGroup + "," + _ "CN=Administrative Groups,CN=" + _ ExchangeOrg + "," + _ "CN=Microsoft Exchange,CN=Services," + _ "CN=Configuration," + domainDN objPerson.DataSource.Save End Sub
Send us your feedback about the Microsoft Exchange Server 2003 SDK.
Build: June 2007 (2007.618.1)
© 2003-2006 Microsoft Corporation. All rights reserved. Terms of use.