Outlook에서 항목 수 계산을위한 Excel 매크로 날짜순 공유받은 편지함

Question

Excel에서 매크로를 작성하여 특정 공유 Outlook 메일 폴더의 항목 수를 계산하여 Excel에서 계산합니다.

지금까지 개인받은 편지함 (사서함 검색을위한 다른 코드)에서 작업 할 수 있었고 공유 사서함 폴더에 액세스하여 총 항목 수를 확인할 수있었습니다 (아래 코드를 사용하여 사서함 검색).

지금 내 문제는 런타임 오류 '438'입니다. 개체가이 속성이나 메서드를 지원하지 않습니다.

iCount를 사용하는 코드의 배열 섹션까지 추적했습니다.

코드에 대한 참조 또는 도움을 얻을 수있는 방향에 대한 정보는 크게 감사하겠습니다.

Sub HowManyDatedEmails() 

' Set Variables 
Dim EmailCount As Integer, DateCount As Integer, iCount As Integer 
Dim myDate As Date 
Dim arrEmailDates() 

Dim olApp As Outlook.Application 
Dim olNS As Outlook.NameSpace 
Dim olFldr As Outlook.MAPIFolder 
Dim olItem As Object 
Dim olMailItem As Outlook.MailItem 

'Call Folder 
Set olApp = New Outlook.Application 
Set olNS = olApp.GetNamespace("MAPI") 
Set olFldr = olNS.Folders("delivery quality team") 
Set olFldr = olFldr.Folders("Inbox") 


' Put ReceivedTimes in array 
EmailCount = olFldr.Items.Count 
For iCount = 1 To EmailCount 
    With olFldr.Items(iCount) 
     ReDim Preserve arrEmailDates(iCount - 1) 
     arrEmailDates(iCount - 1) = DateSerial(Year(.ReceivedTime), Month(.ReceivedTime), Day(.ReceivedTime)) 
    End With 
Next iCount 

' Clear Outlook objects 
Set olFldr = Nothing 
Set olNS = Nothing 
Set olApp = Nothing 

' Count the emails dates equal to active cell 
Sheets("Count_Data").Range("A2").Select 
Do Until IsEmpty(ActiveCell) 

    DateCount = 0 
    myDate = ActiveCell.Value 

    For i = 0 To UBound(arrEmailDates) - 1 
     If arrEmailDates(i) = myDate Then DateCount = DateCount + 1 
    Next i 

    Selection.Offset(0, 1).Activate 
    ActiveCell.Value = DateCount 
    Selection.Offset(1, -1).Activate 
Loop 
End Sub 

Answer 1

는 다음을 수행 : 일반적으로

Dim inItem As Outlook.MailItem 
iCount = 0 
For Each inItem In olFldr.Items 
    iCount = iCount + 1 
    With inItem 
     ReDim Preserve arrEmailDates(iCount - 1) 
     arrEmailDates(iCount - 1) = DateSerial(Year(.ReceivedTime), Month(.ReceivedTime), Day(.ReceivedTime)) 
    End With 
Next inItem 

Answer 2

을, 나는 Find/FindNext 또는 Restrict 방법을 사용하여 대신 폴더의 모든 항목을 반복하는 것을 권 해드립니다. 다음 문서에서 이러한 방법에 대해 자세히 알아보기 :

• How To: Use Find and FindNext methods to retrieve Outlook mail items from a folder (C#, VB.NET)
• How To: Use Restrict method to retrieve Outlook mail items from a folder
• How To: Get unread Outlook e-mail items from the Inbox folder

지금 내 문제는 내가 런타임 오류 '438'을 얻을 : 개체가 '아무튼 이 속성 또는 메서드를 지원합니다.

실제로 Outlook 폴더에는 메일, 메모, 일정 항목 등 다른 항목 유형이 포함될 수 있습니다. 따라서 대부분 코드에서 지정된 속성이없는 항목 유형을 처리하고 있습니다. 루프에서 항목 유형을 먼저 제안한 다음 해당 속성을 처리합니다. 자세한 내용은 When is a MailItem not a MailItem?을 참조하십시오.