Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: MS Exchange 2013 + Outlook 2010 - нет соединения с сервером

На платформе WinServer2012R2-ru заинсталили по науке MSExchange2013-ru. Через OWA почта ходит без проблем меж любыми учётками АД. По POP3/IMAP с клиентов TheBat и MSOutlook2010 - тоже без проблем. А вот те учётки что в AD имеют русскоязычные имена - не могут через клиентов работать с почтой. Вылетает окошко для авторизации, и что бы туда не вбивалось - доступа по POP3 нет. Ну это ещё пол беды. Собственно POP3 я для эксперимента включил. Авторизоваться надо именно как к серверу Exchange. А тут совсем засада. Ни один Outlook (2007,2010,2013) ни из под одной ОС (XP,7,8) не хотят соединяться с Exchange. Если отключать кеширование (для чистоты эксперимента) пишут что мол сервер недоступен. Подскажите пожалуйста знатоки MS Exchange - что надо ещё сделать, чтобы Оутлуки законектились к родному им Ексчейнджу? Может в АД права какие юзерам надо дать? Или под какой-то учёткой суперадмиской службы запустить ексчейнджевские? Чую что в эксчейндже что-то не донастроил. И кстати, пробовал на двух разных доменах - 2003СП2 и 2012. Картина та же. На лицо постоянное затупление в каком-то моменте с моей строны.
Ответ: Такой галки у меня не установлено в настройках. Да и и дело тут в чем-то другом. Делал я делал чего-то (зачастую сам не понимая чего...), и вдруг... бах и на одной учётке всё заработало. Выяснил, что в системе появился корневой сертификат, в котором прописан exchange. Экспортнул я его, и заимпортил в другие учётки. И у них всё заработало. Правда не без косяков... При входе в Outlook, всегда требуется проверка учётки на ексчейндже. Что вообще не по джидайски. Раз юзер вошел в домен, то внутри он уже имеет все свои права. Видимо надо таки делать в домене центр сертификации со всеми вытекающими. Ну и второе, очень долгий вход в Outlook. Минуты 2-3 наверное входит. Это тоже косяк. Я точно знаю, что такие системы так не работают (видел на других предприятиях). Может есть у кого-то понимающего объяснение? Буду очень признателен.
Вопрос: Как добавить имена вложений Outlook в Excel с последующим сохранением их в указанной папке

Добрый день всем гуру Excel-я.

Благодаря этому форуму мне получилось наладить документооборот в Excel (точнее регистрацию входящих-исходящих писем) в более-менее автоматизированном виде.
В приложенном файле следующие основные макросы:
1. "Первое_MailSave" - прописывает письма из папки входящие Outlook
2. "Второе_в_шаблон" - выдает входящий номер и выводит данные в определенный шаблон (одобренный руководством в плане удобочитаемости)
3. "Завершение_Печать" - сохраняет лист шаблона в формате pdf в папке с входящим номером и пускает на печать.
Т.е. счастье есть, теперь полная обработка 10 писем занимает 3-4 минуты, а не 30-40.

Проблема с обработкой вложений:
1. Как не в ручную прописывать кол-во вложений в письме, а автоматом с выводом в ячейку E4 листа "data" количества + 1 (само письмо)
2. Как в листе "Шаблон" в В5 перечислить все вложения по именам
3. Что добавить в макрос "Завершение_Печать", чтобы вложения сохранялись в новосозданную папку с самим письмом.

Все данные из письма забираются, а вот с вложением так и не придумал как(см.код)
Код Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Первое_MailSave()
Application.EnableEvents = False
    Dim oOutlook As New Outlook.Application
    Dim oNamespace As Outlook.Namespace
    Dim myFolder As Outlook.Folder
    Dim myMail As Outlook.Items
    Dim myItem As Outlook.MailItem
    Dim r
 
        Set oNamespace = oOutlook.GetNamespace("MAPI")
        'папка в Outlook, откуда сохраняем письма
        Set myFolder = oNamespace.GetDefaultFolder(olFolderInbox) 'если письма нужны из вложенной папки, то записывается в следующем виде:
        '.Folders("webley").Folders("test")
        Set myMail = myFolder.Items
                 
                 
                 
        Cells.Clear
        Cells(3, 2) = "От кого"
        'Cells(1, 2) = "E-mail"
        'Cells(1, 3) = "Кому"
        Cells(3, 3) = "Тема"
        Cells(3, 1) = "Дата"
        Cells(3, 4) = "Тело письма"
        Cells(3, 5) = "Кол-во страниц"
 
        r = 4
        For Each myItem In myMail
            On Error Resume Next
                Cells(r, 2) = myItem.SenderName
               ' Cells(r, 2) = myItem.SenderEmailAddress
               ' Cells(r, 3) = myItem.To
                Cells(r, 3) = myItem.Subject
                Cells(r, 1) = myItem.CreationTime
                Cells(r, 4) = myItem.Body
                 
            On Error GoTo 0
            r = r + 1
        Next
        Application.EnableEvents = True 'отключаем обработку события
End Sub
Поиски в интернете все ссылаются на макросы для outlook, но регистрация и создание необходимых директорий у меня происходит в excel, соответственно все переменные в нем же.
С одной стороны, у меня три разных вопроса, но, мне кажется, что оптимальнее будет реализовать все три вопроса в одном макросе.


С уважением, Лев
Ответ: В итоге получился полный и автоматизированный документооборот.
Для переноса писем с вложениями в excel и соотв. папки
Код Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub Ïåðâîå_MailSave()
Application.EnableEvents = False
    Dim oOutlook As New Outlook.Application
    Dim oNamespace As Outlook.Namespace
    Dim myFolder As Outlook.Folder
    Dim myMail As Outlook.Items
    Dim myItem As Outlook.MailItem
    Dim r
 
        Set oNamespace = oOutlook.GetNamespace("MAPI")
        'ГЇГ*ГЇГЄГ* Гў Outlook, îòêóäГ* ñîõðГ*Г*ГїГҐГ¬ ГЇГЁГ±ГјГ¬Г*
        Set myFolder = oNamespace.GetDefaultFolder(olFolderInbox) 'åñëè ГЇГЁГ±ГјГ¬Г* Г*ГіГ¦Г*Г» ГЁГ§ âëîæåГ*Г*îé ГЇГ*ГЇГЄГЁ, ГІГ® Г§Г*ïèñûâГ*ГҐГІГ±Гї Гў ñëåäóþùåì âèäå:
                                                                                        '.Folders("webley").Folders("test")
        Set myMail = myFolder.Items
    
    destinationFolder = "E:\temp\test\Att\"
    Êîëè÷åñòâî = 0
    ÏîÈìåГ*Г*Г¬ = ""
                
                
        Cells.Clear
        Cells(3, 2) = "ГЋГІ êîãî"
        'Cells(1, 2) = "E-mail"
        'Cells(1, 3) = "Êîìó"
        Cells(3, 3) = "Г’ГҐГ¬Г*"
        Cells(3, 1) = "Г„Г*ГІГ*"
        Cells(3, 4) = "ÑîäåðæГ*Г*ГЁГҐ"
        Cells(3, 5) = "Êîë-ГўГ® Г±ГІГ°Г*Г*ГЁГ¶"
        Cells(3, 6) = "ÂëîæåГ*ГЁГї"
 
        r = 4
        For Each myItem In myMail
            On Error Resume Next
              ''<<<<<<<<<<<<<<< 3  Гў îäГ*îì >>>>>>>>>>>>>>
               
              Set colAttachments = myItem.Attachments
              Êîëè÷åñòâî = colAttachments.Count + 1
              For Each objAttachment In colAttachments
              MkDir (destinationFolder & myItem.SenderName)
              destinationFolder1 = (destinationFolder & myItem.SenderName)
                  objAttachment.SaveAsFile (destinationFolder1 & "/" & objAttachment.Filename)
                  ÏîÈìåГ*Г*Г¬ = ÏîÈìåГ*Г*Г¬ & objAttachment.Filename & "; "
              Next
            ''<<<<<<<<<<<<<<<>>>>>>>>>>>>>>
                Cells(r, 2) = myItem.SenderName
               ' Cells(r, 2) = myItem.SenderEmailAddress
               ' Cells(r, 3) = myItem.To
                Cells(r, 3) = myItem.Subject
                Cells(r, 1) = myItem.CreationTime
                Cells(r, 4) = myItem.Body
                Cells(r, 5) = Êîëè÷åñòâî
                Cells(r, 6) = ÏîÈìåГ*Г*Г¬
                
            On Error GoTo 0
            r = r + 1
       Next
        Application.EnableEvents = True 'îòêëþ÷Г*ГҐГ¬ îáðГ*áîòêó ñîáûòèÿ
End Sub
Вопрос: Outlook Anywere 2013. Как ограничить доступ для группы польз

Здравствуйте.
Установлен exchange 2013. Outlook anywhere опубликован на tmg сервере. Когда был exchange 2007 в правиле публикации можно было задать группу пользователей которым из интернета разрешено пользоваться Outlook anywhere. Но при публикации exchange 2013 правило работает только если в авторизации выставлено ALL USERS - т. е. любой пользователь может соединиться из интернета к Outlook anywhere. Может через tmg или IIS настройки есть возможность ограничить группе пользователей доступ к Outlook anywhere?
Ответ: Здравствуйте.
Установлен exchange 2013. Outlook anywhere опубликован на tmg сервере. Когда был exchange 2007 в правиле публикации можно было задать группу пользователей которым из интернета разрешено пользоваться Outlook anywhere. Но при публикации exchange 2013 правило работает только если в авторизации выставлено ALL USERS - т. е. любой пользователь может соединиться из интернета к Outlook anywhere. Может через tmg или IIS настройки есть возможность ограничить группе пользователей доступ к Outlook anywhere?
Вопрос: Странное поведение Outlook при подключении к Exchange 2013

Всем привет.
Недавно началась такая петрушка:
Outlook 2007/2010 при подключении к Exchange 2013 сначала долго думает, потом выдает сообщение о невозможности подключиться и кнопками "повторить", "работать автономно" и "отмена". При нажатии на "Повторить" Outlook опять долго думая подключается к почтовику.

В чем причина понять не могу. Что делал до того, как все началось:
1. Настроил бэкап тома с базой через WSB.
2. На этом же томе почистил папку System Volume Information. Чистил криво, установка прав выдавала ошибки.
3. Сменил железный шлюз ZyWall USG 50 на свежий релиз Kerio Control 8 со сменой адреса шлюза.
4. (было еще до этих событий) в ДНС постоянно сваливаются IPv6 записи в том числе и почтовика. Один раз заметил, что после удаления IPv6 адреса из ДНС и сброс кэша у сотрудника Outlook подключился. Но тогда проблема показалась мне единичной и я благополучно забыл про нее.

Сейчас худо-бедно у себя вроде как открывается с первого раза, но все так же думает. Это я в Керио добавил в "Таблицу хостов" адрес почтовика. Но это только у меня "заработало". Сотрудники все так же жмут "Повторить"...

OWA работает прекрасно. Почта сама по себе ходит в обе стороны.

Версия почтовика: Microsoft Exchange Server 2013 RTM 15.0.516.32 (ни одного обновления не ставил)
Система: Windows Server 2012 R2

Я застрял.
Ответ: 1. Пришлите версию сервера Exchange после обновления
Get-ExchangeServer | fl name, edition, admindisplayversion
2. Установите на outlook 2007 Sp3

3. После выполнения этих двух пунктов выполните тестирование outlook ом:

4. Далее смотрите логи на сервере и рабочей станции.
Вопрос: Учетка Exchange в Outlook в терминальной сессии

Некоторые сотрудники работают на терминальном сервере, в Outlook настроено несколько учетных записей (Pop3, Imap), наши партнеры прислали логин пароль учетной записи Exchange, добавляю её в Outlook, по умолчанию стоит другая pop3, пытаюсь отправить письмо через запись pop3, оно отправляется через Exchange.
Может быть проблема в том, что Outlook запущен на терминальном сервере?
Для тестирования добавил учетку Exchange в Outlook на локальном ПК, всё нормально.
Помогите разобраться, с Exchange не сталкивался, спасибо.
Ответ: При этом отправленное сообщение в Outlook помещается в папку Отправленные учетки pop3, но выглядит вот так:
[/url]
Вопрос: Отправка сообщений Outlook

Здравствуйте, уважаемые участники форума! Имеется данный код отправки сообщения на выбранную почту. Должен открывать форму отправки Outlook и после нажатия кнопки "отправить", отправлять сообщение. Однако, после нажатия кнопки ничего не происходит. Сообщение отправляется только после того как будет открыт Outlook. Как исправить эту проблему?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
public sub SendEMail(ToMail, ObjId, FileName)
dim objEmail, ms_num, ms_org, fName
dim tmpDir, fs, f, rs_file, i
Dim objOutlookMsg 
Dim objOutlookRecip 
''''''''''''''''''''''''''''''''
'Чтобы открывалась форма Outlook
''''''''''''''''''''''''''''''''
set ms_org = DataSpace.QueryData("select trim(o.shortname) shortname from edorganizations_ o where o.objid= " & db & "fn_edGetParam(2)", false, null, adCmdText)
Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(0) 'olMailItem
  objOutlookMsg.ReplyRecipientNames = rs_set("edemail").Value 'текущее мыло
  objOutlookMsg.To = ToMail
  objOutlookMsg.Subject = "Письмо"
  objOutlookMsg.Body = "Вам направлено письмо от организации " & ms_org("shortname").Value
  objOutlookMsg.Attachments.Add FileName
for i =0 to nfiles-1
  objOutlookMsg.Attachments.Add ArrFiles(i)
next
  objOutlookMsg.Display
Set OutApp = Nothing
end sub
Ответ: А зачем вам форма? Вы же сами пишите:
Сообщение от SERN
только после того как будет открыт Outlook. Как исправить эту проблему?
Вопрос: Странное поведение Outlook

Здравия всем. При попытке запустить outlook 2003 выскакивает окно об ошибке, после чего предлагает загрузиться в безопасном режиме. В таком режиме outlook норм грузиться, но сотруднику это не нравиться. Пробовал переустановить прог-у, но на ~75% установки комп. зависает намертво, приходиться делать ребут. В сис. журнале есть след. запись: Faulting application outlook.exe, version 10.0.2627.1, faulting module mso.dll, version 10.0.2625.0, fault address 0x0001c172. Что делать?
Ответ: Дело в том, что у нас MS Exchange. Пробовал Thunderbird - в упор не находит настроек почты. Что может работать из почтовых клиентов с AD и Exchange?
Вопрос: Microsoft Outlook: отправить письмо еще раз

Доброго всем дня.

Есть такая проблемка. Допустим, я написал и отправил письмо в Outlook-e. Письмо по каким-то причинам не дошло до адресата, надо отправить его еще раз. Но в Outlook-e это письмо как-то внутренне помечается как отправленное и кнопка "Отправить" не появляется. Если нажать кнопку "Переслать", то приходится повторять адрес и править текст письма.

Это как-то решаемо?
Ответ: Kaiden,
+
Вопрос: Скрипт внедрения адресной книги в Outlook

Здравствуйте! На просторах интернета нашел скрипт внедрения адресной книги LDAP в outlook.
Но есть в этом скрипте недоработочка (на мой взгляд).
При внедрении скрипта через GPO, он запускается при каждом входе в систему и при запуске outlook вылазит вот такое окно

Можно как-нибудь заполнить поля "Имя пользователя" и "Пароль" и соответственно спрятать это окно от пользователя?
И второй момент, это установка внедряемой книги по умолчанию. Возможно ли это все?
Ответ: Вот сам скриптик

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\" _
    & strComputer & "\root\default:StdRegProv")
RegistryFolder = "Software\Microsoft\Windows NT" & _ 
  "CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook"
 
LDAPdisplayname = "имя"
LDAPserver = "адрес"
LDAPport = "389"
LDAPsearchbase = "ou=Contact,dc=тест,dc=тест"
 
'Add Ldap Type Key
 
sKeyPath = RegistryFolder & "e8cb48869c395445ade13e3c1c80d154"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath 
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "00033009", Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "00033e03", Array(&H23,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3006", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e300a", "EMABLT.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d0c", Array(&H5c,&Hb9,&H3b,&H24, &Hff,&H71,&H07,&H41,&Hb7,&Hd8,&H3b,&H9c,&Hb6,&H31,&H79,&H92)
 
'Add Ldap connection settings key
 
sKeyPath = RegistryFolder & "5cb93b24ff710741b7d83b9cb6317992"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "00033009", Array(&H20,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6613", Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6615", Array(&H01,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6622", Array(&H01,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "00036623", Array(0,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e3001", LDAPdisplayname
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e3d0a", "BJABLR.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e3d0b", "ServiceEntry"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6600", LDAPserver
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6601", LDAPport
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6602", ""
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6603", LDAPsearchbase
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6604", "(&(mail=*)(|(mail=%s*)" & "(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6605", "SMTP"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6606", "mail"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6607", "60"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6608", "100"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6609", "120"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e660a", "15"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e660b", ""
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e660c", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e660d", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e660e", "NONE"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e660f", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6610", "postalAddress"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6611", "cn"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, "001e6612", "1"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "001e67f1", Array(&H0a)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023615", Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,&Hd3,&H11,&H9d,&H60,&H00,&Hc0,&H4f,&H4c,&H8e,&Hfa)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,&H54,&H45,&Had,&He1,&H3e,&H3c,&H1c,&H80,&Hd1,&H54)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026631", Array(&H98,&H17,&H82,&H92,&H5b,&H43,&H03,&H4b,&H99,&H5d,&H5c,&Hc6,&H74,&H88,&H7b,&H34)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "101e3d0f", Array(&H02,&H00,&H00,&H00,&H0c,&H00,&H00,&H00,&H17,&H00,&H00,&H00,&H45,&H4d,&H41,&H42,&H4c,&H54,&H2e,&H44,&H4c,&H4c,&H00,&H42,&H4a,&H41,&H42,&H4c,&H52,&H2e,&H44,&Hc,&H4c,&H00)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "S001e67f1", Array(&H01,&H00,&H00,&H00,&Hd0,&H8c,&H9d,&Hdf,&H01,&H15,&Hd1,&H11,&H8c,&H7a,&H00,&Hc0,&H4f,&Hc2,&H97,&Heb,&H01,&H00,&H00,&H00,&H9e,&Hd4,&H44,&H3f,&H6d,&He5,&Hf4,&H4b,&H96,&Hd8,&H9a,&H5f,&Hf7,&Ha7,&H66,&H15,&H00,&H00,&H00,&H00,&H14,&H00,&H00,&H00,&H53,&H00,&H30,&H00,&H30,&H00,&H31,&H00,&H65,&H00,&H36,&H00,&H37,&H00,&H66,&H00,&H31,&H00,&H00,&H00,&H03,&H66,&H00,&H00,&Ha8,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&H01,&H74,&H6e,&Hb5,&Hd9,&H45,&H7d,&Hef,&H86,&H05,&H26,&H37,&H44,&H5f,&H80,&H17,&H00,&H00,&H00,&H00,&H04,&H80,&H00,&H00,&Ha0,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&Hbe,&H95,&H9a,&Hbc,&Hc3,&H8c,&Hda,&He1,&Hf7,&H91,&Hcd,&H38,&Hd9,&Hc7,&H85,&Hf4,&H08,&H00,&H00,&H00,&H52,&H53,&H22,&H56,&Hfe,&H6e,&Hee,&Hff,&H14,&H00,&H00,&H00,&Hd8,&H3a,&Hc5,&H26,&Hea,&H76,&H8c,&Hb0,&H85,&Hea,&H2b,&H21,&H96,&H77,&H95,&H03,&H74,&H7d,&H8a,&H4c)
 
'Append to Backup Key for ldap types
 
sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup
Dim oldLength
oldLength = UBound (Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &He8
Backup(oldLength+2) = &Hcb
Backup(oldLength+3) = &H48
Backup(oldLength+4) = &H86
Backup(oldLength+5) = &H9c
Backup(oldLength+6) = &H39
Backup(oldLength+7) = &H54
Backup(oldLength+8) = &H45
Backup(oldLength+9) = &Had
Backup(oldLength+10) = &He1
Backup(oldLength+11) = &H3e
Backup(oldLength+12) = &H3c
Backup(oldLength+13) = &H1c
Backup(oldLength+14) = &H80
Backup(oldLength+15) = &Hd1
Backup(oldLength+16) = &H54
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", Backup
 
 
'Append to Backup Key for ldap connection settings
 
sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d0e",Backup
oldLength = UBound (Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &H5c
Backup(oldLength+2) = &Hb9
Backup(oldLength+3) = &H3b
Backup(oldLength+4) = &H24
Backup(oldLength+5) = &Hff
Backup(oldLength+6) = &H71
Backup(oldLength+7) = &H07
Backup(oldLength+8) = &H41
Backup(oldLength+9) = &Hb7
Backup(oldLength+10) = &Hd8
Backup(oldLength+11) = &H3b
Backup(oldLength+12) = &H9c
Backup(oldLength+13) = &Hb6
Backup(oldLength+14) = &H31
Backup(oldLength+15) = &H79
Backup(oldLength+16) = &H92
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d0e", Backup
 
 
'Delete Active Books List Key
 
sKeyPath = RegistryFolder & "9375CFF0413111d3B88A001" & "04B2A6676\{ED475419-B0D6-11D2-8C3B-00104B2A6676}"
oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath
Вопрос: Outlook 2010 - Календарь, отключение ответов на встречу.

Всем привет.
Такая заруба: Outlook 2010?когда в календаре создаёшь встречу, то можно выбрать в "Варианты ответов", "Запросить ответы" - убрать галку, тогда ответы от участников приходить не придут. При открытии новой встречи - галка по умолчанию установлена. Как сделать так чтобы по умолчанию этой галки не было? Я нашёл вариант скрипта, но не могу понять куда его писать.
Ответ: Всем привет.
Такая заруба: Outlook 2010?когда в календаре создаёшь встречу, то можно выбрать в "Варианты ответов", "Запросить ответы" - убрать галку, тогда ответы от участников приходить не придут. При открытии новой встречи - галка по умолчанию установлена. Как сделать так чтобы по умолчанию этой галки не было? Я нашёл вариант скрипта, но не могу понять куда его писать.