为什么我的 Outlook 项目的创建时间 属性 返回任意日期?

Why is the creation time property of my Outlook items returning an arbitrary date?

当我 运行 下面的模块时,我得到一个显示“1/1/4051”的消息框。

Sub CreateNoteItem()
 
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.NameSpace
    Dim olNoteItm As Outlook.NoteItem

    Set olApp = Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    
    Set olNoteItm = olApp.CreateItem(olNoteItem)
    
    MsgBox olNoteItm.CreationTime
 
 End Sub

我期待的是日期值,例如 44701 等,或者类似于我显示“现在”时的字符串 (m/dd/yyyy hh:mm:ss)。

这不仅发生在便条项目上,也发生在邮件项目上。我的最终目标是使用此创建时间来处理创建时间较晚的任何项目。

谢谢!

在获取任何 date-specific 属性之前调用 Save 方法。

Sub CreateNoteItem()
 
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.NameSpace
    Dim olNoteItm As Outlook.NoteItem

    Set olApp = Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    
    Set olNoteItm = olApp.CreateItem(olNoteItem)
    
    olNoteItm.Save
    
    MsgBox olNoteItm.CreationTime
 
 End Sub