Signatur auslesen und in txt File schreiben

timo0815 · 24. September 2007

Hallo,

ich möchte gerne die vorhandenen Signaturen aus den Mail-Datenbanken auslesen und in ein txt File schreiben.

Ich weiß, dass ich dafür GetProfileDocument nutzen kann/muss, aber auch mit der Hilfe bzw. Suchfunktion komme ich hier nicht weiter

Kann mir vielleicht jemand ein kleines Script zeigen, mit dem ich das machen kann?

Vielen Dank, Timo

Laura · 24. September 2007

Code

...


Dim ns As New NotesSession
Dim mailDb As NotesDatabase
Dim mailprof As NotesDocument
Dim xUserSignatur As String
Dim xServer As String
Dim xDB As String


%REM
'In einer Schleife (z.B. die DocumentCollection aus dem Adressbuch abarbeiten) xServer und xDB holen, Mail-DB öffnen und die Profil-Daten holen
%END REM

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!



xUserSignatur = xUserSignatur + Chr(13) + Chr(13) + mailprof.Signature_1(0)


...

Alles anzeigen

Wie du die Textdatei mit diesen Strings erstellst, weißt du?

timo0815 · 24. September 2007

Hallo Laura,

danke für deine Antwort! Wir haben nur einen Mail-Server und nur ein Verzeichnis in dem alle Mail-Datenbanken liegen (die Schleife brauch ich also nicht); Berechtigungen sind auch kein Problem, aber danke für den Hinweis.

Sehe ich das richtig, dass jetzt in "xUserSignatur" die Signatur steht?

Wie ich das Ganze in ein txt File bekomme, weiß ich leider nicht, nein

Danke Timo

Diali · 24. September 2007

Code

Dim fileNum As Integer
fileNum% = FreeFile()
Open "c:\test.txt" For Output As fileNum%


' START: Schleife durch Mailboxen'
   ...


   Print #fileNum%, xUserSignatur
   ...
' END: Schleife durch Mailboxen'
Close fileNum%

Alles anzeigen

Gruß
Dirk

Laura · 24. September 2007

Dirk war schneller...

[Blockierte Grafik: http://lexass.spb.ru/smilies/ven.gif]

Mein Script würde so ähnlich aussehen, aber ich würde vor jedem Export die alte txt-Datei killen...

[color=000099]Dim xTextDatei As String
Dim fileName As String
Dim fileNum As Long

xTextDatei = "Pfad\Dateiname.txt"

fileName = Dir$(xTextDatei, 0)

If Not fileName ="" Then
Kill xTextDatei
End If[/color]

Diali · 24. September 2007

brauchste nicht killen, wird überschrieben wenn die Datei schon vorhanden ist.

Gruß
Dirk

timo0815 · 25. September 2007

Guten Morgen,

also irgendwie habt ihr mich jetzt total verwirrt

Ich hab jetzt einen Agenten mit folgendem Inhalt..

Zitat

Dim ns As New NotesSession
Dim mailDb As NotesDatabase
Dim mailprof As NotesDocument
Dim xUserSignatur As String
Dim xServer As String
Dim xDB As String

Dim fileNum As Integer

Set mailDb = ns.GetDatabase( xServer, xDB, False )
Set mailprof = maildb.GetProfileDocument("CalendarProfile")

xUserSignatur = xUserSignatur + Chr(13) + Chr(13) + mailprof.Signature_1(0)

fileNum% = Freefile()
Open "c:\test.txt" For Output As fileNum%

' START: Schleife durch Mailboxen'
' ...

Print #fileNum%, xUserSignatur
' ...
' END: Schleife durch Mailboxen'
Close fileNum%

Alles anzeigen

Klar, die Schleife durch die Mailboxen fehlt noch (wie auch immer ich die da hinkrieg *s*), aber wenn ich das Ganze in eine Mail-Datenbank packe und ausführe erhalte ich die Meldung "Database has not been openend yet".

Wie krieg ich das denn zumindest für die aktuelle Mail-Datenbank ins Textfile (um mir dann vielleicht mal die Schleife erklären zu lassen :-))

Danke Timo (der grad Zeile für Zeile durch die Hilfe marmelt um zu verstehen, was da passiert)

Diali · 25. September 2007

"Database has not been openend yet"

Hast Du zugriff auf die Mail-DB?
Stimmen der Servername und der Pfad- und Dateiname?

Was meint der Debugger zum mailDb-Objekt?

Gruß
Dirk

timo0815 · 25. September 2007

hi,

ignorier mein letztes posting .. hab das Bekanntgeben des Servers und Co vergessen .. ist noch früh .. *s*

Folgendes hab ich jetzt, was für die aktuelle Mail-Datenbank funktioniret (session.currentdatabase). Wie bekomme ich es jetzt aber hin, durch alle Mail-Datenbanken zu laufen?

Zitat

Sub Initialize

Dim session As New NotesSession
Dim mailDb As NotesDatabase
Dim mailprof As NotesDocument
Dim xUserSignatur As String
Dim fileNum As Integer

Set maildb = session.CurrentDatabase

'Set mailDb = ns.GetDatabase( xServer, xDB, False )
Set mailprof = maildb.GetProfileDocument("CalendarProfile")

xUserSignatur = xUserSignatur + Chr(13) + Chr(13) + mailprof.Signature_1(0)

fileNum% = Freefile()
Open "c:\test.txt" For Output As fileNum%

Print #fileNum%, xUserSignatur

Close fileNum%

End Sub

Alles anzeigen

Danke Timo

Diali · 25. September 2007

dafür brauchst Du die Klasse NotesDbDirectory

Code

Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Set dir = s.GetDbDirectory("Mail-ServerName")
Set db = dir.GetFirstDatabase(NOTES_DATABASE)
while not db is nothing
   ' hier musst Du noch etwas mit der DB machne (z.B. Prof. auslesen)'
   Set db = dir.GetNextDatabase
Wend

Gruß
Dirk

%edit
Du musst natürlich noch prüfen, ob Es sich um eine Mail-DB handelt!

timo0815 · 25. September 2007

hi Diali,

so, Verwirrung komplett..

Das hier hab ich jetzt .. beim auführen kommt "unknown file type for search".

?!?!

Danke Timo

Zitat

Sub Initialize

Dim s As New NotesSession
Dim directory As NotesDbDirectory
Dim xserver As String

Dim db As NotesDatabase
Set directory = s.GetDbDirectory("mailserver/de/de")
Set db = directory.GetFirstDatabase(NOTES_DATABASE)

Set mailDb = ns.GetDatabase( directory, DB, False )
Set mailprof = maildb.GetProfileDocument("CalendarProfile")
fileNum% = Freefile()

While Not db Is Nothing
' hier musst Du noch etwas mit der DB machne (z.B. Prof. auslesen)'

xUserSignatur = xUserSignatur + Chr(13) + Chr(13) + mailprof.Signature_1(0)

Open "c:\test.txt" For Output As fileNum%
Print #fileNum%, xUserSignatur
Close fileNum%

Set db = directory.GetNextDatabase
Wend

Alles anzeigen

Diali · 25. September 2007

habe mal die Reihenfolge etwas berichtigt

Code

Sub Initialize
   Dim s As New NotesSession
   Dim directory As NotesDbDirectory
   Dim xserver As String

   Dim db As NotesDatabase
   Set directory = s.GetDbDirectory("mailserver/de/de")
   Set db = directory.GetFirstDatabase(NOTES_DATABASE)
   fileNum% = Freefile()
   Open "c:\test.txt" For Output As fileNum%


   While Not db Is Nothing
      If UCase(Left(db.FilePath, 6)) = UCase("\mail\") Then 'prüfen, ob Mail als Verzeichnis vorkommt'
         Set mailprof = db.GetProfileDocument("CalendarProfile")
         xUserSignatur = xUserSignatur + Chr(13) + Chr(13) + mailprof.Signature_1(0)
         Print #fileNum%, xUserSignatur 
      End If
      Set db = directory.GetNextDatabase 
   Wend
   Close fileNum%
End Sub

Alles anzeigen

Gruß
Dirk

timo0815 · 25. September 2007

Hallo,

danke. Leider bleibt die Fehlermeldung gleich "Unknown file type for search"?!

Hab ich die Zeile hier...

Zitat

Set directory = s.GetDbDirectory("mailserver/de/de")

richtig interpretiert, also muss dort der hierachische Name des Mail-Servers hin?

Danke Timo

Diali · 25. September 2007

es sollte mailserver reichen (ohne "/de/de"). Der Name sollte per DNS erreichbar sein.

Wenn der Agent maöl auf dem Server läuft, dann steht dort nur ein leerer String ("").

Gruß
Dirk

timo0815 · 25. September 2007

hi,

so, musste noch die abfrage bzgl. des Mail-Verzeichnisses von 6 auf 4 Zeichen verringern, dann kommt er auch in die Abfrage

Wenn ich jetzt den Agenten starte, wird die txt Datei angelegt, aber ich erhalte die Meldung...

Database mailserver!mail\aaa.nsf has not been openend yet

Wobei mailserver unser mailserver ist und aaa.nsf die erste Datenbank im Mail-Verzeichnis.

?!

Danke Timo

Diali · 25. September 2007

hast Du Zugriffsrechte auf die DB aaa.nsf? Sieht nicht so aus!

Gruß
Dirk

timo0815 · 25. September 2007

hi,

sowohl der Server als auch ich (über Administratoren Gruppe) haben Manager Rechte auf die Datenbank..

Gruß Timo

Diali · 25. September 2007

schalte mal den Debugger ein und schreibe die Zeile auf, in der der Fehler auftritt (wird die Zeile Set mailprof = db.GetProfileDocument("CalendarProfile") sein).

Gruß
Dirk

timo0815 · 25. September 2007

hi,

ja, ist genau die Zeile .. im Hinweis taucht der Hinweis "Main: Initialize: 16" auf.

Kannst du damit was anfangen?

Gruß Timo

Diali · 25. September 2007

"Main: Initialize: 16" ... der Fehler taucht in der Sub/Function Initialize in Zeile 16 auf.

Mach mal ein neues Script in öffne die DB mit

Code

dim ses as new notesSession
dim dba s NotesDatabase
dim mailprof as NotesDocument
Set db = ses.GetDatabase( "Mailserver", "mail\aaa.nsf", False )
Set mailprof = db.GetProfileDocument("CalendarProfile")

Kommt dort der Fehler auch noch?

Was steht in den Agenten_Eigenschaften 2. Reiter beid en Sicherhaitseinstellungen?

Gruß
Dirk

Teilen