Object variable not set?? beim abspeichern des bildes?

[MasterJedi]

Man soll aus dem Portal aus ein BILD auswählen und abspeichern können!!
Das BILD kommt vom DESKTOP und soll unter Gemeinsame Ressourcen gespeichert werden!

Bei mir kommt nach der er fragt ob es gespeichert werden soll die Nachricht: "object variable not set"!!!

---------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------
Mein CODE:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
REM Bilder in die Bild-Ressourcen einfügen!
   Dim doc As NotesDocument
   Dim rtitem As Variant
   Dim object As NotesEmbeddedObject
   Set rtitem = doc.GetFirstItem("body")
   Set object = rtitem.GetEmbeddedObject
   
   
%REM   
   
   For i = 1 To nc.Count
      Set docnc = dbnc.GetDocumentByID(nid)
      Set item = docnc.GetFirstItem("$Title")
      If Ubound(item.Values) = 1 Then
         If item.values(1) = "StartSeite1024" Then
            name1024= item.Values(1)
         End If
         If item.Values(1)= "StartSeite1280" Then
            name1280=item.Values(1)
         End If
      End If   
      nid = nc.GetNextNoteId(nid)   
   Next
   Messagebox ("Bildname 1024: " + name1024)
   Messagebox ("Bildname 1280: " + name1280)
REM Agent aufrufen (startbildaktuell)   
%END REM   
End Sub
---------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------

PS: BIN ABSOLUTER LOTUS NOTES NOOB! Wurde gezwungen vom Ausbilungsleiter

[klaussal]

Wo stoppt der Debugger ?

[m3]

Drei Wörter: "on error goto"

[koehlerbv]

Wo stoppt der Debugger ?

Da: Set rtitem = doc.GetFirstItem("body")

Bernhard

[m3]

Wo stoppt der Debugger ?

Da: Set rtitem = doc.GetFirstItem("body")

  Und da heißt es immer, ich wäre böse. 

[MasterJedi]

Ja kann mir bitte jemand helfen! habe schon vieles selber probiert bzw. viel gegoogelt?

[klaussal]

Ja kann mir bitte jemand helfen!

Ja, dein Ausbildungsleiter. Der ist dafür angestellt worden und wird dafür bezahlt!

[Thomas Schulte]

Bernhard hat dir die Lösung doch schon gegeben. Wo ist dein "Doc" denn definiert???

Davon abgesehen. Wenn du das gelöst hast wird er dir als nächstes hier:
For i = 1 To nc.Count

und dann hier (gleich drei Fehler in einer Zeile docnc, dbnc und nid)
      Set docnc = dbnc.GetDocumentByID(nid)

auf die Nase fliegen.

Mit den Klassenpostern von IBM würdest du vielleicht auch sehen warum das nicht funktionieren kann was du machst.

Wenn dein Ausbildungsleiter dich zu Lotus Domio Entwicklung verdonnert hat, dann geh zu ihm zurück und lass dir entweder die Schulungsunterlagen von Herdt geben oder einen (mehrere) Kurs(e) genehmigen. Oder er soll dich gefälligst selber ausbilden und diese hehre Aufgabe nicht an ein Forum delegieren.

[Thomas Schulte]

Alternativ kann dein Ausbildungsleiter diese Aufgabe ja auch delegieren. Zum Beispiel an einen der hier in durchaus nennenswerter Zahl vertretenen CLPs oder CLIs.