Question

我正在尝试从Lotus Notes收件箱文件夹中提取电子邮件日期。我能够收到电子邮件的From，To，Subject和Body。我尝试使用＆＃34; DeliveredDate＆＃34;和＆＃34; PostedDate＆＃34;属性，但没有运气。

我的代码如下所示：

Set db = objNotesSession.GetDatabase(mailServer, mailFile, False)
Set folder = db.GetView("Inbox")
Set doc = folder.GetFirstDocument
Do Until doc Is Nothing

  Set docNext = folder.GetNextDocument(doc)
  msgTo = doc.sendto
  For Each recipient In msgTo
    recipients = recipients & recipient
  Next
  msgFrom = doc.GetItemValue("From")(0)
  msgSubject = doc.GetItemValue("Subject")(0)
  msgBody = doc.GetItemValue("Body")(0)
  msgDate = doc.GetItemValue("DeliveredDate")(0)
  Set doc = docNext
Loop

Answer 1

试试：

doc.GetFirstItem("PostedDate").Text

使用vba将Lotus电子邮件中的电子邮件日期提取为ms访问

1 个答案: