Что нового

[Автоматизация] Подключение адресной книги Outlook 2007

megabyte

Новичок
Сообщения
3
Репутация
0
Я абсолютный новичек как в программировании так и в AutoIT, прошу оценить скрипт и помочь доработать!

Описание: Скрипт для автоматизации добавления в Outlook адресной книги LDAP.
Проблемы:
1. Стартовое окно "Outlook сегодня - Microsoft Outlook" по умолчанию, но некоторые пользователи сменили его на "Входящие - Microsoft Outlook". Как сделать так, чтобы скрипт в обоих вариантах стартового окна. Конечно можно вообще убрать проверку, и поставить задержку, но не думаю что это корректно.
2. У некоторых пользователей печатаются русские буквы, как принудительно сменить раскладку всех нажатий на EN.
Например:
Код:
ControlSend("Добавление новой учетной записи электронной почты","","RichEdit20WPT2","admin")

выдает не admin, а фвьшт

AutoIt: 3.
Версия: 1.0

Категория: Администрирование, Сеть

Код/Пример:

Код:
Run("C:\Program Files\Microsoft Office\Office12\outlook.exe")
WinWaitActive("Outlook сегодня - Microsoft Outlook")
Sleep(500)
Send("{ALT}")
Sleep(500)
Send("{RIGHT}")
Sleep(200)
Send("{RIGHT}")
Sleep(200)
Send("{RIGHT}")
Sleep(200)
Send("{RIGHT}")
Sleep(200)
Send("{UP}")
Sleep(200)
Send("{UP}")
Sleep(200)
Send("{UP}")
Sleep(200)
Send("{UP}")
Sleep(200)
Send("{UP}")
Sleep(300)
Send("{ENTER}")
Sleep(1000)
;добавление адресной книги
Send("^+{TAB}")
Sleep(300)
Send("{TAB}")
Sleep(300)
Send("{ENTER}")
Sleep(500)
ControlClick("Добавление новой учетной записи электронной почты","&Далее >","Button4")
Sleep(500)
ControlSend("Добавление новой учетной записи электронной почты","","RichEdit20WPT1","server")
Sleep(200)
ControlCommand("Добавление новой учетной записи электронной почты","Требуется вход на сервер ","Button1","Check")
Sleep(200)
ControlSend("Добавление новой учетной записи электронной почты","","RichEdit20WPT2","admin")
ControlSend("Добавление новой учетной записи электронной почты","","RichEdit20WPT3","password")
ControlClick("Добавление новой учетной записи электронной почты","Другие настро&йки ...","Button3")
ControlClick("Добавление учетной записи","ОК","Button1")
Sleep(500)
Send("Название контактов")
Sleep(500)
Send("+{TAB}")
Sleep(500)
Send("{RIGHT}")
Sleep(100)
ControlClick("Каталог Microsoft LDAP","Дру&гая:","Button5")
ControlSend("Каталог Microsoft LDAP","","RichEdit20W3", "OU=Пользователи,DC=Domain,DC=ru")
ControlClick("Каталог Microsoft LDAP","В&ключить просмотр (требуется серверная поддержка)","Button6")
ControlClick("Каталог Microsoft LDAP","ОК","Button7")
WinWaitActive("Добавление новой учетной записи электронной почты")
ControlClick("Добавление новой учетной записи электронной почты","","Button7")
ControlClick("Добавление новой учетной записи электронной почты","","Button8")
ControlClick("Настройка учетных записей","","Button1")
;;Закрыть Outlook
WinWaitActive("Outlook сегодня - Microsoft Outlook")
WinClose("")



Добавлено:
Сообщение автоматически объединено:

неужели никто не подскажет?
 

Malkolmmgdn

Новичок
Сообщения
1
Репутация
0
Выложил тут: http://depositfiles.com/files/05eig8dzp

Скрипт с блокировкой ввода и запретом множественного запуска. Запускает скрипт, вводит типовые данные, и закрывает клиент. В архиве билд, исходник скрипта и autoit для вашего удобства.
 
Верх