每小时计算收件箱中的电子邮件并保存到文本文件

Question

我试图在Outlook中编写一些VBA来计算每小时收件箱文件夹中的电子邮件（未读和读取），并在每次发生时将类似下面的内容转储到文本文件中：

28/02/2018 01:00 - 1,320

我已经看过各种代码段，但我不知道如何实现这一点。有人可以帮忙吗？

Answer 1

这应该很简单 -

实施例

Option Explicit
Public Sub example()
    Dim Items As Outlook.Items
    Set Items = Application.Session.GetDefaultFolder( _
                                    olFolderInbox).Items

    Debug.Print Now() & " - " & Items.Count

    Dim FSO As New FileSystemObject
    Dim TS As TextStream
    Set TS = FSO.OpenTextFile("C:\Temp\Emails_Count.txt", ForAppending, True)
        TS.Write Now() & " - " & Items.Count
        TS.Close
End Sub