Domino 9 und frühere Versionen > Entwicklung

agent starten

(1/3) > >>

my head:
hallo!

hab zwei agenten, die manuell gestartet wunderbar arbeiten... sie sollten aber eigentlich nach erstellen bzw ändern eines doks anspringen... tun sie aber nicht... woran könnte das liegen??

Axel:
Hi,

wir brauchen ein paar mehr Infos, Code, Fehlermeldung, eingestellte Agentoptionen etc.

Axel

my head:
das ist es ja keine fehlermeldung... der agent wird einfach nicht ausgeführt!! und am code kann's eigentlich nicht liegen, weil er ja manuell funktioniert...

einstellung: "wenn dok geändert oder erstellt wurde"

Sub Initialize
'****************************************************************************************************   
'VARIABLEN   
'****************************************************************************************************   
     'EXCEL-DATEI
   Dim xlFilename As String
'**************************************************************
    'Excel-Export-Datei
   xlFilename = "C:\test1.xls"                                  
'**************************************************************
   Dim Excel As Variant
   Dim xlWorkbook As Variant
   Dim xlSheet As Variant
   Dim row As Integer
   Dim column As Integer
   Dim lva As String
   
   Print "Verbindung zu Excel wird aufgebaut..."
   Set Excel = CreateObject( "Excel.Application.9" )   
   Excel.Visible = False '// Excel unsichtbar machen
   Excel.Workbooks.Open xlFilename 'Excel-Datei öffnen
   Set xlWorkbook = Excel.ActiveWorkbook
   Set xlSheet = xlWorkbook.ActiveSheet
   column = -1
   
   'LOTUS_NOTES
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim entry As NotesViewEntry
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("uebersicht")
   Set collection = view.AllEntries
   Set entry = collection.GetFirstEntry   
   Set doc = entry.Document
'*****************************************************************************************************   
   
'****************************************************************************************************
'EXCEL-INHALTE LÖSCHEN
'****************************************************************************************************
   Excel.Range(xlSheet.Cells(1,1),xlSheet.Cells(70,112)).Select
   Excel.Selection.Font.Bold = False
   Excel.Selection.Value = ""
'****************************************************************************************************
   
   
'****************************************************************************************************   
'EINLESEN:
'****************************************************************************************************
   'EinleseSchleife
   While Not (entry Is Nothing)
      lva = doc.txtLva(0)
      row = 1
      column = column + 2
      With xlSheet
         .Cells(row,column).Select
         Excel.Selection.Font.Bold = True   
         .Cells(row,column).Value = doc.txtLVA(0)         
         row = row +1
         While (lva = doc.txtlva(0))
            .Cells(row,column ).Value = doc.txtNachname(0)&" "&doc.txtVorname(0)
            .Cells(row,column+1 ).Value = doc.nmbTel(0)
            Set entry = collection.GetNextEntry(entry)            
            row = row +1   
            If (entry Is Nothing) Then
               Goto DONE      
            Else
               Set doc = entry.Document
            End If            
         Wend
      End With   
DONE:
   Wend
   
'*******************************************************************************************************
'Excel-Verbindung trennen
'*******************************************************************************************************
   Print "Verbindung zu Excel wird getrennt..."
   xlWorkbook.Close True
   Excel.Quit '// Close Excel
   Set Excel = Nothing 'den Speicher leeren
   Print " " 'Statuszeile löschen   
'*******************************************************************************************************
   
   
End Sub

Axel:
Hi,

dass er getriggert ausgeführt werden soll, hast du im Agent eingestellt. Davon gehe ich mal aus, oder ?

Wo wird der Agent denn ausgeführt. Auf dem Server? Wenn ja ist dort Excel installiert ?


Axel

my head:
nein?!? was ist getriggert?  :-[

er wird lokal ausgeführt...

Navigation

[0] Themen-Index

[#] Nächste Seite