0
Lotus Notesの受信トレイフォルダから電子メールの日付を抽出しようとしています。私は、メールのFrom、To、Subject、Bodyを取得することができます。私は "DeliveredDate"と "PostedDate"属性を使用しようとしましたが、運はありませんでした。Lotus Notesの電子メールからvbaを使用して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
このコードの継ぎ目正しいこと。エラーメッセージが表示されますか? –
エラーメッセージは表示されません。日付のNULL値を取得するだけです。 – Rohith
あなたはすべての文書でそのようになっていますか?それとも、最初に起こったのが起きただけですか?受信トレイはビューではなくフォルダであるため、そこにはさまざまな種類のドキュメントを置くことができ、その中にはDeliveredDateがないものもあります。これを確認するには、if doc.HasItem( "DeliveredDate")コンストラクトを使用する必要があります。 (Subject、From、Body ...の場合も同様) –