Moin zusammen,
ich trete gerade irgendwie auf der Stelle und sehe scheinbar den Wald das Postfach vor lauter Mails (schöne ableitung von wald vor lauter bäumen ) nicht mehr.
Ich möchte gerne, dass der Anwender durch den Klick auf einen Button in einem Navigator sich für ein Newsletter an- bzw. abmeldet.
Hierfür hatte ich mir überlegt, kann man doch in ein Configdokument die notesnamen speichern... am besten wäre da ein mehrfachfeld, so dachte ich.. da mein altes Skript
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
Alles anzeigen
unter R4.6 ja leider nicht funktiert hat, weil R4.6 keine Arrayfunktionen kennt.
Also wollte ich es umschreiben, bekomme das grad aber nicht ganz so hin.. hatte mir schon überlegt, einfach in das Feld mit Komma getrennt, den Namen hinzuzufügen oder mit replace den namen zu entfernen und das Dokument zu aktualisieren. Durch die feldvalidation würden dann Leere Werte entfernt und neue als Array interpretiert werden.. nur hat das nicht ganz funktioniert.. hat wer von euch noch eine gute Idee?