item value nicht gestzt - dringend

[joshuax112]

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( 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( = "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

[Ralf_M_Petter]

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

[umi]

zuerst mal prüfen mit
if not item is nothing
ob überhaupt das Item vorhanden ist...

[Ralf_M_Petter]

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.

[umi]

Wenigstens halten einem diese Fragen ein wenig Fit....

[joshuax112]

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