如何设置对共享收件箱文件夹的引用? [英] How to set reference to shared inbox folder?

问题描述

我在另一个搜索中找到了此代码，但是当我运行它时，出现"No Such Folder"错误.

I found this code in another search, but when I run it, I get "No Such Folder" error.

我想计算一个共享收件箱文件夹中的电子邮件.谁能提供有关如何更改此代码以实现此目标的建议?

I would like to count emails in a shared inbox folder. Can anyone advise on how to change this code to accomplish this?

Sub HowManyEmails()

    Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder
    Dim EmailCount As Integer
    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")

        On Error Resume Next
        Set objFolder = objnSpace.Folders("Personal Folders").Folders("Inbox").Folders("report's").Folders("Customer") 
        If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
        End If

    EmailCount = objFolder.Items.Count

    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"

    Dim dateStr As String
    Dim myItems As Outlook.Items
    Dim dict As Object
    Dim msg As String
    Set dict = CreateObject("Scripting.Dictionary")
    Set myItems = objFolder.Items
    myItems.SetColumns ("SentOn")
    ' Determine date of each message:
    For Each myItem In myItems
        dateStr = GetDate(myItem.SentOn)
        If Not dict.Exists(dateStr) Then
            dict(dateStr) = 0
        End If
        dict(dateStr) = CLng(dict(dateStr)) + 1
    Next myItem

    ' Output counts per day:
    msg = ""
    For Each o In dict.Keys
        msg = msg & o & ": " & dict(o) & " items" & vbCrLf
    Next
    MsgBox msg

    Set objFolder = Nothing
    Set objnSpace = Nothing
    Set objOutlook = Nothing
End Sub

Function GetDate(dt As Date) As String
    GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt)
End Function 

推荐答案

您将需要更新以下代码行

Set objFolder = objnSpace.Folders("Personal Folders").Folders("Inbox").Folders("report's").Folders("Customer")

用电子邮件地址更改Personal Folders，并在不需要时删除其余行.Folders("report's").Folders("Customer")

Change Personal Folders with email address and remove the rest of the line if not needed .Folders("report's").Folders("Customer")

或仅使用Set objFolder = Application.Session.PickFolder

这篇关于如何设置对共享收件箱文件夹的引用?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！