Domino 9 und frühere Versionen > ND6: Entwicklung

Anhang einfügen

(1/3) > >>

Selin:
Hallo Zusammen,

ich habe im Forum hier: http://atnotes.de/index.php?topic=20135.0

ein Script gefunden zum einfügen eines Anhangs in ein Dokument.

Sub Click(Source As Button)
   
   Const RTITEM_NAME$ = "Anhang"
   Const FULL_PATH$ = "C:\hallo.dot"
   
   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim rtitem As Variant
   Dim doc As NotesDocument
      
   Set db = Session.CurrentDatabase
   Set uiws = New NotesUIWorkspace
   Set doc = uiws.Currentdocument.Document
   
   Set rtitem = doc.GetFirstItem(RTITEM_NAME)
   
   If Not rtitem.Type = RICHTEXT Then
      Msgbox "Das Feld <" & RTITEM_NAME & "> ist kein Richtextfeld !", 48, "Fehler !"
      Exit Sub
   End If
   
   Call rtitem.AddNewLine( 1 )
   Call rtitem.EmbedObject ( EMBED_ATTACHMENT, "", FULL_PATH)
   Call doc.Save(True, True)
   
End Sub

Ab dem 1. Call funktioniert es bei mir nicht. "Object variable not set"

Woran kann das liegen?

Danke + Grüsse
Selin

Wirsing:
Hast Du ein Feld, welches "Anhang" heisst und vom Typ RichText ist in Deinem Dokument?

Wann ruft Du diese Aktion auf?
In einem zum bearbeiten geöffneten Dokument?

Selin:
ja, hab ich.

Selin:
die zweite Frage habe ich übersehen.


--- Zitat ---In einem zum bearbeiten geöffneten Dokument?
--- Ende Zitat ---

ja.
Ich habe eine Schaltfläche auf der Maske.
Beim Klicken soll die Datei "hallo.dot" in das RTFeld eingefügt werden.

Untitled:
Also er stürzt bereits beim "Call rtitem.AddNewLine( 1 )" ab?

Dann wette ich, du hast das Dokument noch nicht gespeichert, bevor du diese Aktion auslöst  ;D

Navigation

[0] Themen-Index

[#] Nächste Seite