habe mal wieder ein Problem mit R4.6
folgender Code klappt nicht:
Code
Sub Click(Source As Navigator)
Dim db As NotesDatabase
Dim s As New NotesSession
Dim doc As NotesDocument
Dim var As Integer
Dim nam(0) As Variant
Dim neu As Variant
Dim rep(0) As Variant
Set db = s.CurrentDatabase
Set doc = db.GetProfileDocument("(config)")
nam(0) = s.UserName
rep(0) = ""
var = 0
Forall dd In doc.newsletter
If dd = s.UserName Then
var = 1
neu = Arrayreplace(doc.newsletter, nam, rep)
doc.newsletter = Fulltrim(neu)
Call doc.Save(True, False)
Msgbox "Sie wurden erfolgreich aus dem Newsletter entfernt!"
End If
End Forall
If var = 0 Then
neu = Arrayappend(doc.newsletter, nam)
doc.newsletter = Fulltrim(neu)
Call doc.Save(True, False)
Msgbox "Sie wurden erfolgreich für das Newsletter angemeldet!"
End If
End Sub
Alles anzeigen
nur die Frage welche Funktion gab es damals noch nicht?
wie es so ist ist es in der Hilfe nicht dokumentiert..