为什么我的 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
当我 运行 下面的模块时,我得到一个显示“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