Hallo Leute,
ich verwende Lotus Notes 5.0.11 (Server & Client) und möchte eine web-fähige Application entwickeln. Die Anwender sollen im Web Browser angehängte Dateien auf das Verzeichnis C:\Temp abspeichern können. Warum funktioniert der untenstehende Code nur im LN Client aber nicht im WEB? (Ich krieg nur eine Meldung "Agent done"...der Agent tut aber offensichtlich nichts..)
Sub Initialize
Dim memo As NotesDocument
Dim session As New notessession
Dim db As NotesDatabase
Set db=session.currentdatabase
Dim Doc As notesdocument
Set session = New NotesSession
Set doc = session.DocumentContext
'Set memo = New NotesDocument (db)
'Dim rtitem As Variant
Dim URL As String
'Print "here I am"
URL = "
http://graz1/Admin/WorksCoux.nsf/$defaultView?OpenView"
'Print "[" + URL + "]"
' Get the attachment
Dim item As NotesItem
Set item = doc.GetFirstItem("$FILE")
originalFileName$ = item.Values(0)
Dim att As NotesEmbeddedObject
Set att = doc.GetAttachment(originalFileName$)
' Extract it to C:\Temp
path$ = "C:\Temp"
tempFileName$ = path$ & "\" & originalFileName$
Call att.ExtractFile(tempFileName$)
Print "[" + URL + "]"
End Sub
Herzlichen Dank im voraus für jede funktionierende Lösung!
Gerhard
