... das wäre ein Ansatz:
In einem Agenten, der auf die aktuelle View geht - so auf die schnelle...
Option Explicit
'
Sub Initialize( )
'On Error GoTo ErrorHandle
' # lokale Deklarationen...
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim view As NotesView
Dim item As NotesItem
Set docThis = session.CurrentDatabase.CreateDocument
Set view = ws.CurrentView.View
Print view.Name
docThis.ColumnFormula = view.SelectionFormula
Set item = docThis.getFirstItem( "ColumnFormula" )
MsgBox item.ValueLength & Chr(10) & Chr(10) & view.SelectionFormula , 0 , view.Name & " => Ansichts-Formel"
'
Forall column in View.Columns
docThis.ColumnFormula = column.Formula
Set item = docThis.getFirstItem( "ColumnFormula" )
MsgBox item.ValueLength & Chr(10) & Chr(10) & column.Formula , 0 , view.Name & " => " & column.ItemName
End Forall
WayOut:
Exit Sub
ErrorHandle:
MsgBox |FEHLER | & erl & | => | & Error , 16 , |Fehler in Zeile | & Erl
End Sub
Toni
Was sagt denn Dein Log? Ich würde mir dort auch die Fehlerzeile ausgeben lassen.
Ist es sicher, dass *dieser* Code den Fehler verursacht? Dein Agent "SetNewMailInfoToHistory" klingt das schon wahrscheinlicher - wenn Du in ein Feld immer nur anhängst ...
Bernhard
PS: Ein Hinweis noch (hat aber mit der Fehlermeldung nichts zu tun:
Dim MailAddress, subject, UserTech,UserTech1, dspUserTech, Empfaenger,Empfaenger_1, dspEmpfaenger,BodyNurText, History,
UserTechAdd, UserTechAdd1, UserReq, Priority, NewProcess, Projects, Status, TextForMessage001, TextForMessage002, TextForMessage003,
TextForMessage004, TextForMessage005 As String