개체 지원되지 않음

Question

다음 코드를 통과했지만 컴퓨터에서 작동하지 않는 것 같습니다. 형식 (Item.ReceivedTime, "MMDDYYYY") = 형식 (현재, "MMDDYYYY") 부분에서 개체가 지원되지 않습니다.

내받은 편지함에 ELN이라는 폴더를 만들고 여기에 .xls 파일과 함께 이메일을 저장했지만 여전히 작동하지 않습니다. Excel에서 DOA 및 Outlook 참조를 추가했습니다. 조언이 있습니까?

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 

Answer 1

"항목"은 메일 항목 일 수도 있고 아닐 수도 있습니다.

이 트릭을 할 수 있습니다

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