Добавить учетную запись LDAP в MS Outlook программно - PullRequest
Новая
       85

Добавить учетную запись LDAP в MS Outlook программно

0 голосов
/ 13 января 2020

Я использую библиотеку RDO для Outlook.

Я без проблем добавил учетную запись POP3. 

        RDOSession Session = new RDOSession();
        Session.Logon();
        var AllAccounts = Session.Accounts;
        bool AccFound = false;
        foreach (RDOAccount acc in AllAccounts)
        {
            if (acc.Name.Equals("testacc@mail.loc", StringComparison.OrdinalIgnoreCase))
                AccFound = true;
        }
        if (!AccFound)
        {
            try
            {
                var POP3Account = AllAccounts.AddPOP3Account("Test Account", "testacc@mail.loc", "pop3.mail.loc", "smtp.mail.loc", "testacc@mail.loc", "Password");
                POP3Account.SMTP_UseAuth = true;
                POP3Account.Save();
            }
            catch
            { }
        }
        Session.Logoff();

Все отлично.

Но я не понимаю, как я могу добавить учетную запись адресной книги LDAP в мою конфигурацию Outlook.

Возможно? Можете ли вы дать мне простой образец (C#)?.

Спасибо за любую помощь.

ОБНОВЛЕНО

Может быть, полезно для кого-то 

     Dim Profiles = CreateObject("ProfMan.Profiles")
     Dim MyProfile = Profiles.Item("Outlook")
     Dim LDAPService = NewProfile.Services.Add("EMABLT", "Personal Folders", False)
     Dim Properties = CreateObject("ProfMan.PropertyBag")

     Properties.Add(PR_DISPLAY_NAME,"Name LDAP Address Book")
     Properties.Add(PR_LOCAL_HOST_NAME,"LDAP server")
     PropertiesLDAP.Add(&H66230003, "0") 'Enable custom search base
     Properties.Add(PR_PROFILE_USER,"dc=comp,dc=loc") 'Search base   
     Properties.Add(&H6615000B, "true") 'Enable SPA
     Properties.Add(&H6601001E, "3268") 'Port

     LDAPService.Configure(0, , Properties)

1 Ответ

1 голос
/ 13 января 2020

В настоящее время могут быть добавлены только учетные записи POP3 / SMTP, PST и делегировать Exchange. Вы должны иметь возможность использовать библиотеку ProfMan , но это более низкий уровень - вы будете обязаны установить все свойства, ожидаемые провайдером LDAP: возможно, вы захотите взглянуть на существующий LDAP учетная запись с OutlookSpy (щелкните IProfAdmin или IMAPISession | AdminServices).

ОБНОВЛЕНИЕ : начиная с версии 5.23, погашение будет поддерживать добавление учетных записей LDAP. Перед выпуском 5.23, пожалуйста, свяжитесь с redemption (at) dimastr (dot) com для бета-версии. 

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set LdapAccount = Session.Accounts.AddLDAPAccount("Test LDAP Account", _
                                     "www.zflexldap.com", 389, _
                                     "cn=ro_admin,ou=sysadmins,dc=zflexsoftware,dc=com", _
                                     "zflexpass")
...