Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: joshuax112 am 07.03.06 - 07:09:43
-
hallo,
habe folgendes problem. ich habe folgendes sub geschrieben:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim view As NotesUIView
Set view = ws.CurrentView
'Messagebox view.ViewName
Dim askme As Variant
Dim names(8) As Variant
names(0) = "Members"
names(1) = "Incoming eXchange"
names(2) = "Outgoing eXchange"
names(3) = "External Relations"
names(4) = "Finance"
names(5) = "People Developement"
names(6) = "Alumni"
names(7) = "Reception"
names(8) = "Outgoer"
askme = ws.Prompt(PROMPT_OKCANCELLISTMULT, "Emailverteilerlisten","Verteilerliste auswählen.", names(0), names)
If Isempty(askme) Then
Messagebox "User canceled", , "No one selected"
Else
Forall ask In askme
asklist = asklist & ask & Chr(10)
End Forall
Messagebox asklist, , "Recipients"
End If
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Dim vDeleteItems As Variant
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
Set item = doc.GetFirstItem( "MAEmailListen" )
Forall listen In askme
'******bis hierhin ist alles okay, beim nächsten begriff sagt er value nicht gesetzt. was ist falsch
If Not(item.Contains( listen )) Then
item.AppendToTextList(listen)
Messagebox("nach append")
Call doc.Save( True, True )
End If
End Forall
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
beim durchlauf kommt jedes mal wenn das programm an dieser stelle ist die meldung, dass der wert nicht gesetzt ist. ich setze ihn doc aber mit
Set item = doc.GetFirstItem( "MAEmailListen" ).
und mit
If Not(item.Contains( listen ))
möchte ich nun doch prüfen, ob der wert von listen im item ist.
ich verstehe nicht ganz bzw. gar nicht, was ich falsch mach.
vielleicht könntet ihr mir da helfen.
vielen dank und grüße
-
Nun es sind ganz so aus, als ob item Nothing wäre. Das heisst, doc.GetFirstItem( "MAEmailListen" ) ergibt kein Ergebnis. Entweder hast du dich bei dem Feldnamen verschrieben, oder das Feld gibt es in dem Dokument nicht.
Grüße
Ralf
-
zuerst mal prüfen mit
if not item is nothing
ob überhaupt das Item vorhanden ist...
-
Hallo Urs!
Schade um die Zeit ist wieder ein typischer Noob, der zwar dringend in den Betreff schreibt, aber dann selber nicht mehr in halbwegs akzeptabler zeit reagiert. Gehen mir ehrlichgesagt ziemlich auf den Geist so Leute.
Grüße
Ralf
P.S. Werde mich in nächster Zeit wieder etwas zurückhalten beim helfen.
-
Wenigstens halten einem diese Fragen ein wenig Fit....
-
Hallo Urs!
Schade um die Zeit ist wieder ein typischer Noob, der zwar dringend in den Betreff schreibt, aber dann selber nicht mehr in halbwegs akzeptabler zeit reagiert. Gehen mir ehrlichgesagt ziemlich auf den Geist so Leute.
Grüße
Ralf
P.S. Werde mich in nächster Zeit wieder etwas zurückhalten beim helfen.
Hallo Ralf,
natürlich entschuldigen wir uns dafür, dass wir nicht vernünftig geantwortet haben und danke sagten, allerdings arbeiteten wir noch ein paar Stunden nach dem Beitrag und sind dann ins Bett gegangen. Während die einen also dankenswerterweise posteten... hielten die anderen den Schlaf der gerechten :-)
Das Problem hat sich dann mit dem "nothing" gelöst, danke.
Schöne Grüße,
der Joshi