Schaltfläche mit dem Code:
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim s As New NotesSession
Dim view As NotesView
Dim entry As notesviewentry
Dim doc As notesdocument
Dim i As Integer
Dim entries As NotesViewEntryCollection
Dim privates As String
Forall db In s.AddressBooks
If db.IsPrivateAddressBook Then
Call db.open("", "") ' Must open database
If db Is Nothing Then
Msgbox "DB nicht gefunden"
Exit Sub
End If
Set view = db.GetView("$Locations")
If view Is Nothing Then
Msgbox "Ansicht nicht gefunden"
Exit Sub
End If
Set entries=view.AllEntries
For i=0 To entries.Count
Set entry=entries.GetNthEntry(i)
If Not entry Is Nothing Then
// Hier entsprechende Arbeitsumgebung suchen
und dann das Feld auslesen und per Mail die Antwort senden....
End If
Next
End If
End Forall
End Sub
Meine ich das ich den Schnippsel da mal verwendet hab (für was ähnliches)...
Grüße
Worn