使用vba提取電子郵件日期從lotus notes到ms訪問

我試圖從Lotus Notes Inbox文件夾中提取電子郵件日期。我能夠獲得電子郵件的發件人，主題和正文。我嘗試使用「DeliveredDate」和「PostedDate」屬性，但沒有運氣。使用vba提取電子郵件日期從lotus notes到ms訪問

我的代碼如下所示：

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

來源

2016-07-07 Rohith

此代碼接縫是正確的。你有錯誤信息嗎？ –

我沒有看到任何錯誤消息，我只是得到日期的NULL值。 – Rohith

你是否得到所有文件？或者只是第一次碰巧出現？由於收件箱是一個文件夾，而不是一個視圖，因此您可以在其中包含多種文檔，其中一些文檔可能沒有DeliveredDate。你應該使用'if doc.HasItem（「DeliveredDate」）'構造來檢查。（也適用於Subject，From和Body ...） –

-1

嘗試：

doc.GetFirstItem("PostedDate").Text

來源

2018-01-31 09:18:08 user9293536

使用vba提取電子郵件日期從lotus notes到ms訪問

回答

相關問題