Domino 9 und frühere Versionen > ND6: Entwicklung

Lotus Script Anfängerproblem...

<< < (4/8) > >>

Silent_Bob:
Object Variable not set

ascabg:
@Silent_Bob,

Besteht die Moeglichkeit, das Du mal Deinen Code postest?

Andreas

Silent_Bob:
natürlich, sehr gern.

das feld in der maske, wo der anhang rein muss, heisst auch "anhang".

der aktuelle code sieht so aus:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim anhang As NotesRichTextItem
   Dim datei As Variant
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set Anhang = New NotesRichTextItem(doc, "Anhang")
   datei = workspace.OpenFileDialog(False, "Datei auswaehlen")
   
   If Isempty(datei) Then Exit Sub   
   Call uidoc.GotoField("anhang")
   If anhang.type = 1 Then
      Call anhang.EmbedObject( EMBED_Attachment, "", datei(0))
      Call anhang.Update
      doc.SaveOptions = "0"
      Call UiDoc.Close(True)
      Dim NewUiDoc As NotesUIDocument
      Set NewUiDoc = workspace.EditDocument(True, doc)         
      Set Doc = NewUiDoc.Document
   End If
End Sub

Untitled:
Und wenn du die Zeile wie oben von mir beschrieben änderst kriegst du den Error?

Du hast doch hoffentlich "DeinRTF" schon so geändert, dass die Zeile nun so aussehen müsste?


--- Code: ---Set Anhang = doc.GetFirstItem("anhang")
--- Ende Code ---

Grüsse

Silent_Bob:
Ja sicher. Ich hab "DeinRTF" umbenannt ;-)

Mit der Zeile von dir erhalte ich in dem Script die Fehlermeldung "Object Variable not set", und zwar, nachdem ich im Dateiauswahlfenster eine Datei ausgewählt habe.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete