Domino 9 und frühere Versionen > ND7: Entwicklung

Agent: Names.nsf -Datei

<< < (5/7) > >>

rasacani:
Hallo

Da bin ich wieder. Ich habe mich getraut (LS). Ich gebe eine Excel-Datei aus und es klapp auch, aber nicht auf dem Server. Ich habe hier gelesen, das man als alterative auch eine CSV-Datei ausgeben kann. Dies habe ich dann promt eingebaut

-->  OLE: Automation object error       -->       ???

hier die Stelle wo ich es eingebaut habe:

   Else  ' alle Documente
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set abc = fs.CreateTextFile("c:\Raitest.csv", True)     
      Set otherdoc = otherview.GetFirstDocument 
      While Not otherdoc Is Nothing 
         abc.writeline otherdoc.columnvalues(1)     
         For colmn = 0 To Ubound(otherview.Columns)
           
            MulCol = otherdoc.columnvalues(colmn)
            If Isarray(MulCol) Then
               ColCat = Cstr(MulCol(0) )
               For ColNum=1 To Ubound(MulCol)
                  ColCat=ColCat & " | " & Cstr(MulCol(ColNum))
               Next ColNum
               
               xlApp.cells(row,colmn+1) = ColCat
            Else
               xlApp.cells(row,colmn+1) = Cstr( MulCol )
            End If
      'xlApp.cells(row,colmn+1) = otherdoc.columnvalues(colmn)     
         Next   
         row=row+1 
         Set otherdoc = otherview.GetNextDocument(otherdoc)     
      Wend

      abc.close
   End If

Was kann das denn schon wieder sein?

Rainer

m3:
1) Ist das überhaupt ein Windows-Server, auf dem der Agent läuft?
2) Welches Windows am Server?
3) In welcher Zeile kommt der Fehler?

MS meint zu der Fehlermeldung:

--- Zitat ---Dieses Verhalten tritt auf, wenn Sie für das Klassenargument der CreateObject- oder der GetObject-Funktion einen falschen Wert verwenden. Das Klassenargument besteht aus dem Name der Anwendung, die das Objekt (Anwendung) bereitstellt, dem eine Periode und der Typ des Objekts Klasse folgen, um (Objecttype) zu erstellen, oder zurückzugeben.

--- Ende Zitat ---

rasacani:
Hallo

Der Agent soll später auf einem Windows-Server laufen. In meinem Test läuft er noch Lokal.

Der Fehler kommt bei        abc.open


Dein Zitat klingt wunder schön, aber es verwirrt mich nur noch mehr. Wenn du den Fall verfolgt hast ist dir sicher aufgefallen, daß ich mit LS biher noch nicht viel am Hut hatte.  :-:


Rainer

koehlerbv:
Zwei Dinge, Rainer: abc.open (wo angeblich der Fehler provoziert wird) ist in Deinem geposteten Code nicht zu finden.
Weiters: Warum machst Du das via Windows und FSO und nicht direkt über Notes-Bordmittel (DesignerHelp-Stichwort: "File Handling")?

Bernhard

rasacani:
Hallo

Ich habe Das Skript noch einmal umgebaut:

Sub Initialize
   Dim s As New notessession
   Dim db As notesdatabase
   Set db= s.currentdatabase
   Dim uiw As New NotesUIWorkspace
   Dim otherdoc As NotesDocument
   Dim otherview As NotesView
   Dim othercol As NotesDocumentCollection
   Dim uiv As notesuiview
   Set uiv = uiw.currentview
   Dim MulCol As Variant
   
   currentviewname="_Personen"
   
   Set otherview = db.GetView(currentviewname)
   
'     alle Documente
'                                                                                                                             Datei zuweisen
   Open "E:\Domino\data\Adressbuch.txt" For Output Access Write As #1     ' auf Server
'                Open "C:\Adressbuch.txt" For Output Access Write As #1                          ' aus Aktionen
'                                                                                                                            Ansicht lesen     
   Set otherdoc = otherview.GetFirstDocument 
   While Not otherdoc Is Nothing 
'                                                                                                                            Datei schreiben
      Print #1,otherdoc.columnvalues(1)
      Print #1, otherdoc.columnvalues(3)
'                                                                                                              Ansicht lesen nächster Satz   
      Set otherdoc = otherview.GetNextDocument(otherdoc)     
   Wend
'                                                                                                                             Datei schließen
   Close #1
   
End Sub


Starte ich den Agenten per Hand an läuft er. Signiere ich die Datenbank und lasse den Agenten mit dem Schedul laufen bekomme ich folgende Fehlermeldung:

Error creating product objekt     ???

Kann das ein Rechteproblem sei?
Was kann man tun?

Gruß Rainer

 

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete