Tach Timo,
und, hat's geklappert?
Für alle Fälle - hier ein kompletter Agent, sogar getestet...
Eine etwas andere Lösung mit der bequemen Mail-DB-Auswahl.
[color=006600]Sub Initialize
'Agent (Agent_Signatur)
Dim nuiws As New notesuiworkspace
Dim ndoc As notesdocument
Dim dc As notesdocumentcollection
Dim xAdressbuch As String
Dim ns As New NotesSession
Dim mailDb As NotesDatabase
Dim mailprof As NotesDocument
Dim xServer As String
Dim xDB As String
Dim fileNum As Long
xServer = ns.Currentdatabase.Server
xAdressbuch = "names.nsf"
fileNum = Freefile()
Open "c:\test.txt" For Output As fileNum
Set dc = nuiws.PickListCollection(PICKLIST_CUSTOM, True, xServer, xAdressbuch, "Personen", "Mail-Datenbanken", "Wählen Sie..." )
Set ndoc = dc.getfirstdocument
While Not ndoc Is Nothing
xDB = ndoc.MailFile(0) + ".nsf"
Set mailDb = ns.GetDatabase( xServer, xDB, False )
'Auf diese DB muss der Script-Ausführer min. die Leserechte haben!
Set mailprof = maildb.GetProfileDocument("CalendarProfile") 'Benutzer-Profil, auf dieses Doc muss der Script-Ausführer min. die Leserechte haben!
Print #fileNum, mailprof.Signature(0); '<-- Dieser Befehl überträgt den Inhalt des Text-Feldes in die Textdatei mit ; als Trennzeichen
Print #fileNum,"" '<-- Dieser Befehl erstellt den Zeilenumbruch in der Textdatei, damit der nächste Datensatz in die neue Zeile kommt
Print #fileNum,"" '<-- und noch eine leere Zeile
Print #fileNum, Ustring$(80,"|") '<-- irgendeine Trennlinie
Print #fileNum,"" '<-- und noch eine leere Zeile
Set ndoc = dc.getnextdocument(ndoc)
Wend 'Not ndoc Is Nothing
Close fileNum
End Sub[/color]
[/color][color=000099]Edit 25.09.07 13:40:[/color] Print wurde in die Schleife verlagert; nicht das Feld Signature_1 sondern das berechnete Feld Signature wird wegexportiert.
So, jetzte aber Schluß, muss heute noch was arbeiten!
[Blockierte Grafik: http://lexass.spb.ru/smilies/kos.gif]