Hallo liebe Gemeinde,
ich habe folgendes Problem:
Ich habe bisher noch nie mit Klassen gearbeitet. Ich versuche mir diese aber gerade näher zu bringen. Ich habe eine Klasse names Link erstellt.
Class Link
Public Gesamt As String
Public url As String
Public Dokument As String
Public Datenbank As String
Sub New()
Gesamt=""
url=""
Dokument =""
Datenbank =""
End Sub
End Class
Ich habe dann ein Array von dieser Klasse erstellt und fülle es mit Werten.
Dim Linkliste () As Link
...
Redim Linkliste (Linkcounter)
...
Set linkliste(linkcounter) = New Link
linkliste(linkcounter).gesamt = Komplettlink
linkliste(linkcounter).url = linkstring
linkliste(linkcounter).Dokument = doc.UniversalID
linkliste(linkcounter).datenbank = doc.ParentDatabase.ReplicaID
Bis hierhin funktioniert auch alles wie erwartet. Nun möchte ich gerne dieses Array in einem Notesdokument speichern.
Dim notesA As NotesItem
Dim Tempdoc As NotesDocument
Set tempdoc = localdb.CreateDocument
Set notesA= New NotesItem( TempDoc, "Links", linkliste)
tempdoc.form ="AlleLinks"
Call tempdoc.Save(1,1)
Das Dokument wird angelegt, aber "Links" ist leer. Ich habe bisher auf diese Weise immer normale -eindimensionale- Arrays gespeichert.
Was mache ich falsch? Oder kann man "Klassen-Arrays" -so-gar nicht speichern und muss ich alles in "normale" eindimensionale Arrays packen? Oder wie macht ihr das? ;)
Danke im Voraus
Thorsten