sorry habe keinen designer und nutze eh grad office um an notes dukumente dranzukommen!!!
und GetDocumentByUNID gibt es bei mir nicht!?!?
jemand ne idee warum?
vielleicht weiterer verweis in office nötig?
greetz
Function getfile(server As String, path As String, name As String)
Dim DOMSession As New NotesSession
Dim DOMDB As NotesDatabase
Dim DOMView As NotesView
Dim DOMDoc As NotesDocument
Dim DOMFile As NotesEmbeddedObject
Dim filename As String
DOMSession.Initialize
Set DOMDB = DOMSession.GetDatabase(server, path)
Set DOMView = DOMDB.GetView("viewTemplatesByNameDE")
Set DOMDoc = DOMView.GetDocumentByKey(name)
name = DOMDoc.GetItemValue("sAttachmentName")(0)
Set DOMFile = DOMDoc.GetAttachment(name)
temp = folder_file_func.temp_verz & "mso_templates" ' temp ermitteln
If folder_file_func.FolderExists(temp) = False Then MkDir (temp)
filename = temp & "\" & name
DOMFile.ExtractFile filename
getfile = filename
End Function