none
Проблемы с CDOEXM в VBA RRS feed

  • Общие обсуждения

  • Пишу скрипт по созданию пользователей в AD из списка в Excel, на VBA.

    До создания почтового ящика все работает, потом ругается на createmailbox.

    Прочитал в нете про CDOEXM попробовал объявить переменную dim oMailbox AS CDOEXM.IMailboxStore выходит ошибка. Скачал с нета CDOEXM.DLL, но не помогло. Подскажите что не делаю не так.

    Заранее спасибо за советы.

Все ответы

  • код в студию
  •  

    Code Snippet
    Sub CreateUser()
        Dim oUser As Variant
        Set oOU1 = GetObject("LDAP:")
        Set oOU2 = oOU1.OpenDSObject("LDAP://OU=IT,OU=Leadership,OU=Company,DC=Company", "Adm", "***", 0)
        Set oUser = oOU2.Create("user", "CN=" & Cells(2, 1).Value)
        With oUser
            .put "cn", Cells(2, 1).Value
            .put "SamAccountName", Cells(2, 2).Value & Left(Cells(2, 3).Value, 1)
            .put "UserPrincipalName", Cells(2, 2).Value & Left(Cells(2, 3).Value, 1) & "Company"
            .put "givenname", Cells(2, 3).Value
            .put "sn", Cells(2, 2).Value
            .put "Description", Cells(2, 4).Value
            .SetInfo
            .GetInfo
            .AccountDisabled = False
            .SetPassword (Cells(2, 5).Value)
            .AccountDisabled = False
            .put "pwdLastSet", CLng(0)
            .SetInfo
            Set oMailbox = oUser
            oMailbox.CreateMailBox "LDAP://CN=Mailbox Store (MAIL),CN=First Storage group,CN=InformationStore,CN=MAIL,CN=Servers,CN=Company,CN=Administrative groups,CN=Company,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=Company"
            .SetInfo
        End With
    End Sub

     

     

     

     

  • может тут посмотреть
    http://msdn.microsoft.com/en-us/library/aa487558(EXCHG.65).aspx