Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 12:24:11

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Outlook и VBA
| | |-+  Сбивается связь Outlook с Exchange Server
Страниц: [1]   Вниз
Печать
Автор Тема: Сбивается связь Outlook с Exchange Server  (Прочитано 19424 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Alex_Gur
Старожил
****

Репутация: +11/-0
Офлайн Офлайн

Сообщений: 278


Просмотр профиля
« : 21.08.2015, 21:54:03 »

Написал несколько несложных макросов для выгрузки сообщений и событий из Outlook.
После этого сбилась синхронизация Outlook с Exchange Server.
Outlook запрашивал дополнительный ввод пароля для синхронизации с Exchange, хотя обычно этого не требовалось.
После ввода пароля связь с Exchange формально восстанавливалась. Однако я мог только корректно получать письма, но не мог их отправлять. Отправляемые письма перенаправлялись в папку Исходящие и не отправлялись адресату.
После перезагрузки компьютера синхронизация на некоторое время восстанавливалась, но ненадолго.
В чем может быть причина?
Записан

Мы заинтересованы не только решить ваши задачи, но и помочь вам научиться решать их самостоятельно.
"Дай человеку рыбу, и он будет сыт весь день. Научи человека ловить рыбу, и он будет сыт всю жизнь" Улыбка
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #1 : 21.08.2015, 23:37:22 »

Вряд ли в макросах, если сами говорите, что несложные. И если Вы конечно сами там не меняли какие-то настройки. Доступ к серверу есть? Или это корпоративный? У кого-то еще есть подобные проблемы или только у Вас? Потому как запрос пароля обычно означает изменения именно на сервере, а не на локальной машине.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Alex_Gur
Старожил
****

Репутация: +11/-0
Офлайн Офлайн

Сообщений: 278


Просмотр профиля
« Ответ #2 : 22.08.2015, 05:42:27 »

Вряд ли в макросах, если сами говорите, что несложные. И если Вы конечно сами там не меняли какие-то настройки.

Я тоже так думаю. Но вызвало сомнение то, что аналогичная проблема возникла и у сотрудника, который также запускал мой макрос.
Настройки специально не менял.
Сервер корпоративный, доступа к серверу нет.
Записан

Мы заинтересованы не только решить ваши задачи, но и помочь вам научиться решать их самостоятельно.
"Дай человеку рыбу, и он будет сыт весь день. Научи человека ловить рыбу, и он будет сыт всю жизнь" Улыбка
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #3 : 22.08.2015, 10:04:11 »

Без текста макроса вряд ли можно сказать достоверно в чем причина.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Alex_Gur
Старожил
****

Репутация: +11/-0
Офлайн Офлайн

Сообщений: 278


Просмотр профиля
« Ответ #4 : 22.08.2015, 10:37:30 »

Без текста макроса вряд ли можно сказать достоверно в чем причина.

Дмитрий, большое спасибо за содействие.
Вот пример макроса, с которого начались проблемы.
Макрос выгружаетвыгружает в папку Мои документы все сообщения, отправление которых датировано сегодняшним днем, а также файлы вложений в эти сообщения.

Код: (vb)
Sub DisplayMailItem1()
    Dim MailItem1 As MailItem
    Dim Folder1 As Folder
    Dim Items1 As Items
    Dim Att1 As Attachment
    Dim Att1Path As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Set Folder1 = Session.GetDefaultFolder(olFolderInbox)
    'Сортировка элементов в папке Входящие
    Set Items1 = Folder1.Items
    Items1.Sort "ReceivedTime", True
  
    Debug.Print "Сегодня " & Date
    Debug.Print "В папке Входящие " & Folder1.Items.Count & " элементов"
    Debug.Print ""
    k = 0
    Items1.Sort "ReceivedTime", True
    For i = 1 To Items1.Count
        j = 1
        If Items1(i).Class = olMail Then
            Set MailItem1 = Items1(i)
            If DateValue(MailItem1.CreationTime) = Date Then
                k = k + 1
                Debug.Print "Сообщение " & MailItem1.Subject & " получено: " & DateValue(MailItem1.CreationTime)
                'Выгрузка сообщения
                MailItem1.SaveAs Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Documents\" & MailItem1.Subject & ".msg", olMSG
                Debug.Print "Выгрузка сообщения " & MailItem1.Subject & " выполнена"
                'Выгрузка файлов, приложенных к сообщению
                For Each Att1 In MailItem1.Attachments
                    Att1Path = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Documents\" & MailItem1.Subject & "_" & Att1.DisplayName
                    Att1.SaveAsFile Att1Path
                    Debug.Print "Выгрузка файла " & Att1.DisplayName & " из сообщения " & MailItem1.Subject & " выполнена"
                    j = j + 1
                Next Att1
                Debug.Print ""
            End If
        End If
    Next
    If k = 0 Then
        Debug.Print "Сообщений за указанный период нет"
    End If
    Debug.Print ""
End Sub
« Последнее редактирование: 22.08.2015, 10:39:03 от Alex_Gur » Записан

Мы заинтересованы не только решить ваши задачи, но и помочь вам научиться решать их самостоятельно.
"Дай человеку рыбу, и он будет сыт весь день. Научи человека ловить рыбу, и он будет сыт всю жизнь" Улыбка
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru