Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Серверные продукты Microsoft » Microsoft Exchange Server » Клиенты - Как добавить почтовый ящик с exchange в outlook 2010 через командную строку

Ответить
Настройки темы
Клиенты - Как добавить почтовый ящик с exchange в outlook 2010 через командную строку

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать


Прошу совета
Как добавить почтовый ящик с exchange в outlook 2010 через командную строку
например user1@mycompany.com уже есть и надо добавить ещё один user2@mycompany.com
Именно почтовый ящик (account) а не profile

нужно добавить один почтовый ящик нескольким юзерам домена
туда будут приходить факсы и он будет доступен только этим юзерам
В ручную сделать это трудновато (юзеров 10-20) хотелось бы автоматизировать этот процесс через логинскрипт
много гуглил но нашел только http://www.itefix.no/i2/texprof
не совсем подходит...

Texprof is a small command-line utility that allows you to create Outlook profiles for Exchange. It may be useful during Exchange migrations or profile maintenance via login scripts. It supports all windows platforms (95 to 2003). It accepts three arguments :

profile name
exchange server name
mailbox name
Example :

texprof MyProfile EXCHSERV userid

Отправлено: 10:52, 29-07-2011

 

Аватара для zero55

Ветеран


Сообщения: 723
Благодарности: 128

Профиль | Сайт | Отправить PM | Цитировать


В профиль вы больше одного exchange-аккаунта не добавите.

Отправлено: 12:11, 29-07-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Oleg Krylov

Добрый волшебник


Сообщения: 2125
Благодарности: 499

Профиль | Сайт | Отправить PM | Цитировать


Цитата zero55:
В профиль вы больше одного exchange-аккаунта не добавите. »
Отчего же? В 2010 у меня три

-------
MVP: Exchange Server 2009 - 2018
Microsoft Regional Director 2015 - 2017

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:26, 29-07-2011 | #3


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать


zero55,
Может быть в более старых версиях(outlook,exchange) и нельзя было
у меня outlook 2010 можно добавить хоть 10
вопрос в том как это сделать через login script

Отправлено: 13:02, 29-07-2011 | #4


Аватара для zero55

Ветеран


Сообщения: 723
Благодарности: 128

Профиль | Сайт | Отправить PM | Цитировать


Цитата Oleg Krylov:
В 2010 у меня три »
Подцепленных вторым ящиком?
Этих можно напихать сколько угодно...

Скриптом их все равно не добавить.

Отправлено: 13:03, 29-07-2011 | #5


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата zero55:
Скриптом их все равно не добавить. »
Профиль добавить скриптом проблем нет
Неужели аккаунт нельзя?

Отправлено: 13:11, 29-07-2011 | #6


Аватара для Oleg Krylov

Добрый волшебник


Сообщения: 2125
Благодарности: 499

Профиль | Сайт | Отправить PM | Цитировать


Цитата zero55:
Подцепленных вторым ящиком? »
Почитайте про Multiple Exchange Account in Outlook 2010.
VIPer7, попробуйте вот так: http://technet.microsoft.com/en-us/l.../ee815819.aspx
Но придется запускать установку, если я правильно понял. Установку можно запустить logon-скриптом.
На шаге 8 снимите галку Overwrite Existing Exchange Account.

-------
MVP: Exchange Server 2009 - 2018
Microsoft Regional Director 2015 - 2017

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:16, 29-07-2011 | #7


Аватара для zero55

Ветеран


Сообщения: 723
Благодарности: 128

Профиль | Сайт | Отправить PM | Цитировать


оказывается можно.
нашел у себя в архиве вот такой скриптик.
Скажу сразу не проболвал...
Код: Выделить весь код
Const PR_STORE_PROVIDERS = &H3D000102 
Const PR_PROVIDER_UID = &H300C0102 
Const PR_DISPLAY_NAME = &H3001001E 
Const PR_PROFILE_MAILBOX = &H660B001E 
Const PR_PROFILE_SERVER = &H660C001E 
Const PR_PROFILE_SERVER_DN = &H6614001E 
Const PR_EMAIL_ADDRESS = &H3003001E 
Dim sTitle,sMessage, iKount 
sMailBoxName = InputBox("Enter the name of the mailbox to add","Add 
Additional Mailbox") 
' look up in ad to see if it exists 
Set Conn = CreateObject("ADODB.Connection") 
Conn.Open "Provider=ADsDSOObject;" 
Set Cmd = CreateObject("ADODB.Command") 
Cmd.ActiveConnection = Conn 
Cmd.CommandText = "<GC://dc=example,dc=com>;(&(objectCategory=person) 
(|(displayName=*" & sMailBoxName & "*) (sAMAccountName=*" &sMailBoxName & 
"*)));displayName,sAMAccountName;subtree" 
Set Rst = Cmd.Execute 
If Rst.RecordCount = 1 Then 
   ' found exact match 
   ' assume mailbox id is the sAMAccountName 
   sMailBoxID = Rst.Fields("sAMAccountName") 
   sMailSvr = "MAILSERVER1" ' the mail server the mailbox is on 
   sMailBoxDN = "/o=example/ou=staff/cn=Recipients/cn=" & sMailBoxID 
   sServerDN = "/O=example/OU=staff/cn=Configuration/cn=Servers/cn=" & 
sMailSvr 
   AddMailBox "",sMailBoxName,sMailBoxDN,sMailSvr,sServerDN 
   MsgBox "The mailbox for " & Rst.Fields("displayName") & "has been added. 
Please check that it has been added to your profile " & _ 
          "correctly. If there is still a problem please report it to the 
Service Desk ",0,"Finished" 
Else 
   If Rst.RecordCount = 0 Then 
      ' not found 
      sTitle = "Mailbox not found" 
      sMessage = "Unable to add mailbox for " & sMailBoxName & ". The 
mailbox cannot be found." 
   Else 
      ' multiple entries found 
      sTitle = Rst.RecordCount & " mailbox" 
      If Rst.RecordCount > 1 Then 
         sTitle = sTitle & "es" 
      End If 
      sTitle = sTitle & " found" 
      sMessage = "Unable to add mailbox for " & sMailBoxName & ". There are 
multiple mailboxes that meet the " & _ 
                 "specified criteria " 
      If Rst.RecordCount < 30 Then 
         sMessage = "Unable to add mailbox for " & sMailBoxName & ". There 
are multiple mailboxes that meet the " & _ 
                 "specified criteria as listed below:" & vbCrLf & vbCrLf 
         For iKount = 1 To Rst.RecordCount 
            If iKount < 10 Then 
               sMessage = sMessage & "     " 
            Else 
               sMessage = sMessage & "   " 
            End If 
            sMessage = sMessage & CStr(iKount) & ". " & 
Rst.Fields("displayName") & " - " & Rst.Fields("sAMAccountName") & vbCrLf 
            Rst.MoveNext 
         Next 
      Else 
         sMessage = "Unable to add mailbox for " & sMailBoxName & ". There 
are too many mailboxes that " & _ 
                    "matched the criteria to list." & vbCrLf 
      End If 
      sMessage = sMessage & vbCrLf & "Please re-run this program and enter a 
more specific mailbox name." 
   End If 
   MsgBox sMessage, 0, sTitle 
End If 
' clean up 
Rst.Close 
Set Rst = Nothing 
Set Cmd = Nothing 
Conn.Close 
Set Conn = Nothing 
Sub AddMailBox(strProfile, strDisplayName, strMailboxDN, strServer, 
strServerDN) 
  Set Profiles=CreateObject("ProfMan.Profiles") 
  If strProfile = "" Then 
    Set Profile = Profiles.DefaultProfile 
  Else 
    Set Profile = Profiles.Item(strProfile) 
   End If 
  'find the Exchange service 
  Set Services = Profile.Services 
  For i = 1 To Services.Count 
    Set Service = Services.Item(i) 
    If Service.ServiceName = "MSEMS" Then 
      'Add "EMSDelegate" provider 
      Set Properties = CreateObject("ProfMan.PropertyBag") 
      Properties.Add PR_DISPLAY_NAME, strDisplayName 
      Properties.Add PR_PROFILE_MAILBOX, strMailboxDN 
      Properties.Add PR_PROFILE_SERVER, strServer 
      Properties.Add PR_PROFILE_SERVER_DN, strServerDN 
      Set Provider = Service.Providers.Add("EMSDelegate", Properties) 
      'update the old value of PR_STORE_PROVIDERS so that Outlook 
      'will show the mailbox in the list in Tools | Services 
      Set GlobalProfSect = Profile.GlobalProfSect 
      OldProviders = GlobalProfSect.Item(PR_STORE_PROVIDERS) 
      strUID = Provider.UID 
      GlobalProfSect.Item(PR_STORE_PROVIDERS) = OldProviders & strUID 
    End If 
  Next 
End Sub
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:16, 29-07-2011 | #8



Компьютерный форум OSzone.net » Серверные продукты Microsoft » Microsoft Exchange Server » Клиенты - Как добавить почтовый ящик с exchange в outlook 2010 через командную строку

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - Media Player Classic как через командную строку или плейлист поставить повтор Anarasius Скриптовые языки администрирования Windows 4 09-06-2017 17:05
Как скачать файл через командную строку? dascon Хочу все знать 5 18-07-2011 17:27
Службы - Как добавить командную строку в реестр LenGasT Microsoft Windows 2000/XP 2 20-11-2010 16:20
Службы - Как изменить тип запуска службы через командную строку ? ALEKCEN Microsoft Windows 2000/XP 1 29-08-2010 11:27
V. 5.5/2000/2003 - Как добавить второй почтовый домен в Microsoft Exchange 2003 djony Microsoft Exchange Server 18 06-02-2009 15:25




 
Переход