Без текста макроса вряд ли можно сказать достоверно в чем причина.
Дмитрий, большое спасибо за содействие.
Вот пример макроса, с которого начались проблемы.
Макрос выгружаетвыгружает в папку
Мои документы все сообщения, отправление которых датировано сегодняшним днем, а также файлы вложений в эти сообщения.
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