Sub Click(Source As Button)

Dim s As New NotesSession
Dim View As NotesView
Dim LocDocs As NotesDocumentCollection
Dim Locationname As String
Dim Servername As String

Locationname = "Büro"
Servername = "Testserver"
Forall NAB In s.Addressbooks

If NAB.IsPrivateAddressBook Then
Call NAB.Open("", "")
Set View = NAB.getView("Locations")
If Not(View Is Nothing) Then
Set LocDocs = View.getAllDocumentsByKey(Locationname)
If LocDocs.Count > 0 Then
Call LocDocs.Stampall("MailServer", Servername)
Msgbox |Der Mailserver wurde geändert.|, 64, |Erfolg|
Else
Msgbox |Die Arbeitsumgebung "| & Locationname & |" wurde nicht gefunden !|, 48, |Fehler|
End If
Else
Msgbox |Arbeitsumgebungsansicht konnte nicht geöffnet werden !|, 48, |Fehler|
End If
End If
End Forall
End Sub