Доброго здоровья, ребятки
Подскажите, пожалуйста:
Выбивает 0, хотя папка "входящие" заполнена письмами! Подключаюсь к "отправленные" и выдаёт ответ 8, стоит отметить, что папка содержит больше 8 отправленных.
В итоге увидел, что эти 8 писем содержит не моя учётная запись "...маил.ру", а учётная запись "Файл данных Outlook"!
Вопрос: как считать письма в своей учётке?
Подскажите, пожалуйста:
Код |
---|
Sub look() Dim objOutlApp As Object, oNSpace As Object, oIncoming As Object Dim oIncMails As Object, oMail As Object Dim IsNotAppRun As Boolean Application.ScreenUpdating = False On Error Resume Next Set objOutlApp = GetObject(, "outlook.Application") If objOutlApp Is Nothing Then Set objOutlApp = CreateObject("outlook.Application") IsNotAppRun = True End If Set oNSpace = objOutlApp.GetNamespace("MAPI") Set oIncoming = oNSpace.GetDefaultFolder(6) Set oIncMails = oIncoming.Items x = 0 For Each oMail In oIncMails x = x + 1 Next Application.ScreenUpdating = True MsgBox x End Sub |
В итоге увидел, что эти 8 писем содержит не моя учётная запись "...маил.ру", а учётная запись "Файл данных Outlook"!
Вопрос: как считать письма в своей учётке?