Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: MrXYZ am 28.11.03 - 10:30:14

Titel: Agentproblem mit Lotus Script
Beitrag von: MrXYZ am 28.11.03 - 10:30:14

Das folgende Script läuft einwandfrei auf einem Client, bringt aber bei scheduled Einsatz auf dem Server den Fehler "Unknown Lotus Script Error". Jemand eine Idee ??

Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (Byval lpszPath As String) As Long

Sub Initialize
Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace  
   Dim db As New NotesDatabase ("Server","DB.nsf")
   Dim doc As NotesDocument  
   Dim object As NotesEmbeddedObject
   Dim path As String
   Dim rtitem As Variant
   
   path = "y:\"
   
   
   FileExists = (PathFileExists("y:\list.txt") <> 0)
   
   If FileExists = True Then
      
      Dim text As String, fileNum As Integer
      fileNum% = Freefile()
      
      Open "y:\list.txt" For Input As fileNum%
      
      Do Until Eof(1)
         Line Input #1, text$
         
         'Set db = session.CurrentDatabase
         
         Set doc = New NotesDocument( db )
         doc.Form = "Memo"
         doc.subject="Neue Bestellanforderung"
'
         Set rtitem = New NotesRichTextItem( doc, "Body" )
         Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", path & text$)
         Call doc.Send( False, "Mailaddresse" )
         Kill path & text$
         
      Loop
      
      Close fileNum%
      Kill path & "list.txt"
      
      
   End If
   
   FileExists = (PathFileExists("y:\listhps.txt") <> 0)
   
   If FileExists = True Then
      fileNum% = Freefile()
      
      Open "y:\listhps.txt" For Input As fileNum%
      
      Do Until Eof(1)
         Line Input #1, text$
         
         Kill path & text$
         
      Loop
      
      Close fileNum%
      
      Kill path & "listhps.txt"
   End If
   
   
   
End Sub

Hupps ... hätte ich fast vergessen
Agent ist mit meioner ID signiert und ich darf auf dem Server uneingeschränkt Agenten mit Script etc.
ausführen ! Auch mit der Server-ID signiert bekomme ich den gleichen Fehler !

Titel: Re:Agentproblem mit Lotus Script
Beitrag von: eknori (retired) am 28.11.03 - 10:35:20

ist die shlwapi.dll auch auf dem Server ( Windows\System32 ) ??

Titel: Re:Agentproblem mit Lotus Script
Beitrag von: MrXYZ am 28.11.03 - 10:36:55

yepp, habe den Part auch schon mal rausgenommen, weil ich dachte,
es liegt daran, aber gleicher Fehler  :'(

Titel: Re:Agentproblem mit Lotus Script
Beitrag von: koehlerbv am 28.11.03 - 10:40:38

Bau mal einen ErrorHandler ein, damit wir wissen, in welcher Zeile es überhaupt scheppert.

Bernhard

Titel: Re:Agentproblem mit Lotus Script
Beitrag von: Freezer am 28.11.03 - 10:52:44

Liegt´s vielleicht an dieser Zeile?

Zitat

Dim ws As New NotesUIWorkspace  

(UI-Methode im Server-Agenten)

Freezer

Titel: Re:Agentproblem mit Lotus Script
Beitrag von: koehlerbv am 28.11.03 - 11:00:51

Oops, das hätte mir auch gleich auffallen müssen ... Das ist natürlich ein No-No ...

Titel: Re:Agentproblem mit Lotus Script
Beitrag von: MrXYZ am 28.11.03 - 11:24:22

Gute Idee mit dem Errorhandler, damit war der Fehler ziemlich schnell behoben  ;D

Error in Routine: Agent Server
Error Code: 4164
Error in Line: 5
Error Message: Cannot open databases on machines other than the server running your program

habe

 dim ws as New NotesUIWorkspace
dim db as New NotesDatabase ("Server","DB.nsf")

rausgenommen

dim db as NotesDatabase
set db = session.Currentdatabase

eingefügt.

funzt wunderbar !!

DANKÄÄ ;D