I use the following code to create draft messages in a PST file. However when the draft is viewed in Outlook 2013 no create date is displayed (see attachment). Any ideas on how to set the date?
Code:
Dim Pst As Aspose.Email.Outlook.Pst.PersonalStorage = Aspose.Email.Outlook.Pst.PersonalStorage.FromFile("\x\x\x\x.pst")
Dim Drafts As Aspose.Email.Outlook.Pst.FolderInfo = Pst.RootFolder.GetSubFolder(“Drafts”)
Dim Msg As New Aspose.Email.Outlook.MapiMessage()
Msg.Recipients.Add(LCInfo(“x”), LCInfo(“x”), Aspose.Email.Outlook.MapiRecipientType.MAPI_TO)
Msg.Subject = NotifyInfo(“EMAIL_SUBJECT”)
Msg.SetBodyContent(GetHtml(NotifyInfo(“x”)), Aspose.Email.Outlook.BodyContentType.Html)
Msg.Attachments.Add(LCInfo(“x”) & Now.Month & Now.Day & Now.Year & Now.Hour & Now.Minute & Now.Second & “.xlsx”, CreateXlsx(x, NotificationControlId).GetAsByteArray)
Msg.DeliveryTime = Now
Msg.ClientSubmitTime = Msg.DeliveryTime
Msg.SetMessageFlags(Aspose.Email.Outlook.MapiMessageFlags.MSGFLAG_UNSENT Or Aspose.Email.Outlook.MapiMessageFlags.MSGFLAG_FROMME)
Drafts.AddMessage(Msg)
Pst.Dispose()