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

Question

当我运行下面的模块时，我得到一个显示“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)。

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

谢谢！

Answer 1

在获取任何 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

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

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

vba

datetime

outlook

items

creation-timestamp

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

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

vba

datetime

outlook

items

creation-timestamp

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