Hallo zusammen,
dies ist mein erster Beitrag. Bitte habt Nachsicht, wenn ich ne blöde Frage stelle .
Ich habe eine Notes-DB, in welcher sich Daten (Textfelder und Anhänge) befinden.
Diese muss ich extrahieren. Leider habe ich keinen Zugriff/Rechte auf den Designer.
Nach einigem googeln habe ich etwas gefunden, mit dem ich via VBA (ich mache viel in Access) auf die DB zugreifen kann und Daten auslesen und speichern kann.
Der Code sieht so aus:
Code
Function getNotes_data()
On Error Resume Next
Dim DOMSession As New NotesSession
Dim DOMDB As NotesDatabase
Dim DOMView As NotesView
Dim DOMDoc As NotesDocument
Dim DOMFile As NotesEmbeddedObject
Dim i, ende As Integer
Dim result()
DOMSession.Initialize
Set Dir = DOMSession.GetDbDirectory(getParameter("NotesServer") & "/" & getParameter("NotesMailDB"))
Set DomDir = DOMSession.GetDatabase(CStr(Dir), getParameter("Vertrag"))
Set DOMView = DomDir.GetView(getParameter("VertragView"))
Set DOMDoc = DOMView.GetFirstDocument
i = 0
ende = DOMView.EntryCount
ReDim Preserve result(0 To ende, 0 To 10)
Do Until (DOMDoc Is Nothing)
result(i, 0) = i
result(i, 1) = DOMDoc.GetItemValue("CON_Bemerk")(0)
result(i, 2) = DOMDoc.GetItemValue("CON_Firma")(0)
result(i, 3) = DOMDoc.GetItemValue("CON_LfdNummer")(0)
result(i, 4) = DOMDoc.GetItemValue("$File")(0)
Set DOMFile = DOMDoc.GetAttachment(result(i, 4))
DOMFile.ExtractFile "c:\_work\" & result(i, 3) & "_" & result(i, 2) & "_" & result(i, 4)
Set DOMDoc = DOMView.GetNextDocument(DOMDoc)
i = i + 1
Loop
getNotes_data = result()
End Function
Alles anzeigen
Der Wert in $File kann aber öfters (0-20x) vorkommen. Es wird aber nur jeweils 1 Anhang gespeichert. Da steht sowas von "Doppeleintrags-ID: ...".
Meine Frage: wie komme ich an die anderen Anhänge ran? Der Rest funktioniert.
Habt Ihr einen Tipp für mich?
Herzlichen Dank
edvpomm