Domino 9 und frühere Versionen > ND6: Entwicklung

Lotus Script Anfängerproblem...

<< < (3/8) > >>

Fedaykin:
EMBED_ATTACHMENT (1454)

ascabg:
Hi,

@Silent_Bob

Kleine Anregung vielleicht.

Schau doch einmal in die Hilfe des Designers bei "NotesRichTextItem" und hier bei EmbedObject.


--- Code: ---Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )

--- Ende Code ---

dgerhardt:
Probier mal das hier...

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
   
   On Error Goto ErrHdl
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set Anhang = New NotesRichTextItem(doc, "Anhang")
   'sonst ist das Objekt nicht gesetzt oder der Typ nicht definiert
   
   datei = workspace.OpenFileDialog(False, "Datei auswaehlen")
   'liefert einen Array zurück : datei(0) ist der erste Dateiname   
   
   If Isempty(datei) Then Exit Sub   
   Call uidoc.GotoField("anhang")
   If anhang.type = 1 Then
      Call anhang.EmbedObject( EMBED_Attachment, "", datei(0))
'refresh uidoc... das ist leider so in Notes...
      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 refresh
   End If

Mit den RT-Felder muß man leider etwas umständlich arbeiten  ;)

Silent_Bob:
Lieber DGerhard,

ich bedanke mich recht herzlich (und natürlich bei den andern für Ihre Mühe),

Dein Script läuft so gut wie beinahe ;-)

Nur das On Error Goto ErrHdl musste ich entfernen.
Allerdings kann ich das Dokument nicht abspeichern.

Wenn ich unten SaveOptions auf 1 setze, wird der Anhang gespeichert, aber nicht in dem Feld Anhang sondern ganz unten. !?

Untitled:
Änder mal die Zeile


--- Code: ---Set Anhang = New NotesRichTextItem(doc, "Anhang")
--- Ende Code ---

in


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

um.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete