Объект не поддерживается - PullRequest
Новая
       35

Объект не поддерживается

0 голосов
/ 07 сентября 2011

Я просматривал следующий код, но он не работает на моем компьютере.Это выдает ошибку: Объект не поддерживается в формате (Item.ReceivedTime, «MMDDYYYY») = Format (теперь, «MMDDYYYY»).

Я создал папку с именем ELN в своей папке входящих и поместил электронное письмотам с файлом .xls, но он все еще не работает.Я добавил ссылки DOA и Outlook в Excel. Любой совет? 

Dim appOl As New Outlook.Application
Dim ns As Outlook.Namespace
Dim Inbox As Outlook.MAPIFolder
Dim Atmt As Outlook.Attachment
Dim SubFolder As Outlook.MAPIFolder
Dim Item As Object
Dim FileName As String
Dim i As Integer
Dim varResponse As VbMsgBoxResult

Set ns = appOl.GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder = Inbox.Folders("ELN")
i = 0

For Each Item In SubFolder.Items
  If Format(Item.ReceivedTime, "MMDDYYYY") = Format(Now, "MMDDYYYY") Then
    For Each Atmt In Item.Attachments

        If Right(Atmt.FileName, 3) = "xls" Then
            FileName = "SomeFile.xls"
            Atmt.SaveAsFile FileName
            smkSubject = Item.Subject
            i = i + 1
        End If
    Next Atmt
  End If
Next Item

1 Ответ

1 голос
/ 07 сентября 2011

«Товар» может быть или не быть почтовым отправлением.

Это может помочь: 

For Each Item In Inbox.Items
        If Item.Class = olMail Then 'Make sure it's a mail item
            If Format(Item.ReceivedTime, "MMDDYYYY") = Format(Now, "MMDDYYYY") Then
                For Each Atmt In Item.Attachments
                    If Right(Atmt.FileName, 3) = "doc" Then
                        FileName = "SomeFile.xls"
                        Atmt.SaveAsFile FileName
                        smkSubject = Item.Subject
                        i = i + 1
                    End If
                Next Atmt
            End If
        Else
            Debug.Print "This is not a mail item:" & Item.Class 'Some class constant that's not supported as a mail item.
        End If
    Next Item
...