Ein freudiges Hallo an alle Notes Entwickler,
benötige Euere Hilfe und Rat. Ich möchte das folgende Script umstellen. Sicherlich nur eine Kleinigkeit.
Der Agent macht folgendes:
Liest im Adressbuch des Server alle Email-Adressen aus, fordert zur Eingabe der Speicherdatei auf und schreibt dann die Email-Adressen im Datei-System in ein TXT File.
Möchte das Umbauen auf folgendes:
Die Aufforderung zur Eingabe des Speicherorts + Dateinamen soll entfallen. Möchte gerne das der Agent hartcodiert am Server immer in das selbe TXT die Mails einträgt.
Damit ich den Agenten Nachts laufen lassen kann und er mir die aktuellen Mailadressen zusammen-sammelt.
Wie müßte das Script aussehen, bzw. was muß ich ändern?! Ich bin ein Greenhorn was Entwicklung und Scripten angeht. Ich hab mich schon etwas versucht, aber es kamen nur Fehler dabei raus...
Hier das Script:
Sub Initialize
Dim s As New NotesSession
Dim currentdb As NotesDatabase
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim iFile As Integer
Dim pfad As String
Dim var As Variant
Dim adressbook(2) As String
adressbook(0) = "names.nsf"
Set currentdb = s.CurrentDatabase
pfad = Inputbox("Wo soll die Datei erstellt werden? Kompletten Pfad angeben")
'erstelle file
iFile = Freefile()
Open pfad For Output As iFile
Forall a In adressbook
Set db = s.GetDatabase(currentdb.Server,a)
Set view = db.GetView("People")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
var = doc.InternetAddress
Forall i In var
If Not i = "" Then
Print #iFile,i
End If
End Forall
Set doc = view.GetNextDocument(doc)
Wend
Set db = Nothing
Set view = Nothing
End Forall
