0
Ich versuche, E-Mail-Datum aus meinem Lotus Notes Inbox-Ordner zu extrahieren. Ich bin in der Lage, das Von, An, Betreff und Text der E-Mail zu erhalten. Ich habe versucht, "DeliveredDate" und "PostedDate" Attribute, aber kein Glück.E-Mail-Datum von Lotus Notes E-Mail zu MS-Zugriff mit VBA extrahieren
Mein Code sieht wie folgt aus:
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
Dieser Code Nähte korrekt zu sein. Erhalten Sie eine Fehlermeldung? –
Ich sehe keine Fehlermeldung, ich bekomme nur einen NULL-Wert für das Datum. – Rohith
Erhalten Sie das für alle Dokumente? Oder nur das erste, was passiert? Da es sich bei dem Posteingang um einen Ordner und nicht um eine Ansicht handelt, können Sie viele Arten von Dokumenten darin finden, von denen einige möglicherweise kein DeliveredDate haben. Sie sollten ein 'if doc.HasItem ("DeliveredDate") - Konstrukt verwenden, um dies zu überprüfen. (Auch für Betreff, Von und Körper ...) –