asked on

Exchange ADSi

I am trying to create a mailnox using EXCDO

I get the following error

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objMailbox.CreateMailbox'

when I do this

Set objMailbox = Usr
objMailbox.CreateMailbox "LDAP://"&homeDB
usr.SetInfo
Set objMailbox = Nothing

works on a test system just not on production, same permissions and everything any ideas.

ramani_gr

Hope this function helps you.

Function CreateMailboxCDOPerson(strFirstName As String, _
strLastName As String, _
strHomeMDBUrl As String) As Boolean
'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=extest,DC=microsoft,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
Dim Result As Boolean

Result = True

strUserName = strFirstName & strLastName

strContainerName = "Users"
' Create URL for the user
Result = Result And CreateUserURL(strURL, strContainerName, False, strUserName)

oPerson.FirstName = strFirstName
oPerson.LastName = strLastName

oPerson.DataSource.SaveTo strURL
Result = Result And CheckError("SaveTo " & strURL)

Set oPerson = New CDO.Person
' Bind
oPerson.DataSource.Open strURL
Result = Result And CheckError("Bind to CDO User " & strUserName)

' Create Mailbox
Set oMailbox = oPerson
oMailbox.CreateMailbox strHomeMDBUrl
Result = Result And CheckError("Create Mailbox for CDO User " & strUserName)

' Save
oPerson.DataSource.Save
Result = Result And CheckError("Save CDO User " & strUserName)

'CleanUp
Set oPerson = Nothing
Set oMailbox = Nothing

CreateMailboxCDOPerson = Result
End Function

ASKER CERTIFIED SOLUTION

ramani_gr

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

ramani_gr

and check whether the Exchange services are running.

gladxml

No comment has been added lately and it seems that this question have been abandoned. So it's time to clean up this TA.

I will leave a recommendation in the Cleanup topic area that this question or invite a Moderator to close this question if there's no reply from you after seven days.

In the absence of responses, I will recommend the following:

To accept the comment and points awarded to ramani_gr

** PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER **

Just trying to help for the cleanup...
gladxml