Excel это не сложно

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

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

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

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

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

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