Function getNotes_data(server As String, path As String)
Dim DOMSession As New NotesSession
Dim DOMDB As NotesDatabase
Dim DOMView As NotesView
Dim DOMDoc As NotesDocument
Dim i, ende As Integer
Dim result()
DOMSession.Initialize
Set DOMDB = DOMSession.GetDatabase(server, path)
Set DOMView = DOMDB.GetView("viewTemplatesByNameDE")
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("sSubject")(0)
result(i, 2) = DOMDoc.GetItemValue("sDocType")(0)
result(i, 3) = DOMDoc.GetItemValue("sLanguage")(0)
result(i, 4) = DOMDoc.GetItemValue("sCountry")(0)
result(i, 5) = DOMDoc.GetItemValue("sLocation")(0)
result(i, 6) = DOMDoc.GetItemValue("sDepartment")(0)
result(i, 7) = DOMDoc.GetItemValue("sAttachmentName")(0)
result(i, 8) = DOMDoc.GetItemValue("sRemark")(0)
result(i, 9) = DOMDoc.GetItemValue("sStandardTemplate")(0)
Set DOMDoc = DOMView.GetNextDocument(DOMDoc)
i = i + 1
Loop
getNotes_data = result()
End Function
schreibe halt die daten in ein array und probier grad irgendwie an das attachment dranzukommen!?
vielleicht mit DOMDoc.GetAttachment (result(i, 7))
Function getNotes_data(server As String, path As String)
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 DOMDB = DOMSession.GetDatabase(server, path)
Set DOMView = DOMDB.GetView("viewTemplatesByNameDE")
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("sSubject")(0)
result(i, 2) = DOMDoc.GetItemValue("sDocType")(0)
result(i, 3) = DOMDoc.GetItemValue("sLanguage")(0)
result(i, 4) = DOMDoc.GetItemValue("sCountry")(0)
result(i, 5) = DOMDoc.GetItemValue("sLocation")(0)
result(i, 6) = DOMDoc.GetItemValue("sDepartment")(0)
result(i, 7) = DOMDoc.GetItemValue("sAttachmentName")(0)
result(i, 8) = DOMDoc.GetItemValue("sRemark")(0)
result(i, 9) = DOMDoc.GetItemValue("sStandardTemplate")(0)
Set DOMFile = DOMDoc.GetAttachment(result(i, 7))
DOMFile.ExtractFile "R:\Temp\Test\" & result(i, 7)
Set DOMDoc = DOMView.GetNextDocument(DOMDoc)
i = i + 1
Loop
getNotes_data = result()
End Function