0
Я пытаюсь извлечь дату электронной почты из папки «Входящие» Lotus Notes. Я могу получить сообщение «От», «Кому», «Тема» и «Тело» письма. Я пробовал использовать атрибуты «DeliveredDate» и «AddDate», но не повезло.Извлечь дату электронной почты из лотосных писем электронной почты для доступа к ms с помощью vba
Мой код выглядит следующим образом:
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 ...) –