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
