Domino 9 und frühere Versionen > Entwicklung

Agentproblem mit Lotus Script

(1/2) > >>

MrXYZ:
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 !

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

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

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

Bernhard

Freezer:
Liegt´s vielleicht an dieser Zeile?


--- Zitat ---Dim ws As New NotesUIWorkspace  

--- Ende Zitat ---

(UI-Methode im Server-Agenten)

Freezer

Navigation

[0] Themen-Index

[#] Nächste Seite