Domino 9 und frühere Versionen > ND7: Entwicklung

Symbole der Dateianhänge

<< < (2/3) > >>

Glombi:
Also dann Plan B von mir:

anstelle von


--- Zitat ---Call udoc.Save
   
   Dim item As NotesRichTextItem
   Dim obj As NotesEmbeddedObject
   
   Set doc = udoc.Document
   Set item = doc.GetFirstItem("DateiAnhang")
   Set obj = item.EmbedObject(EMBED_ATTACHMENT,"" ,"C:\" & Zwischenspeicher  & "-" & Today & "-" & Firma & ".doc")
   Call udoc.Save   
   udoc.EditMode = False

--- Ende Zitat ---

folgendes:

dim path as string
path = "C:\" & Zwischenspeicher  & "-" & Today & "-" & Firma & ".doc"

Set doc = udoc.Document

doc.FlagAttachFile = "1"
doc.AttachFileName = path
call doc.Save(true,true,true)

   Call udoc.Save   
   call udoc.Close

call work.EditDocument( doc, true )


Im Postopen dann
@If(
 FlagAttachFile = "1";
  @Do(
    @Command( [EditInsertFileAttachment];AttachFileName);
    @SetField("FlagAttachFile";"")
  );
 ""
)

Demian:
Hallo Andreas,

Kenne mich zwar noch nicht so gut aus, aber das heißt doch das er bei bzw. nach jedem Öffnen den Dateianhang hinzufügt, oder?

Wollte nämlich die Dateien nur temporär auf der Platte speichern und später per Code wieder löschen.

Gruß
Demian

Glombi:
Nein, nur falls

FlagAttachFile = "1"

ist. Und das setze ich ja mit Script auf "1" und lösche es im Postopen.

Sonst wäre das in der Tat keine so tolle Lösung  ;)

Andreas

Demian:
Hallo Andreas,

habe es jetzt so gemacht, wie du geschrieben hast. Allerdings musste ich das "call work.editdocument(doc,true)" in "call work.editdocument(true)" umändern, weil sonst immer der Fehler "incorrect argument type: object inspected" kam.

Leider funktioniert es nicht. Es kommt aber auch keine Fehlermeldung.

Gruß
Demian

Demian:
Muss mich korriegieren. Er zeigt mir in der Ansicht unter "Namen der Dateianhänge" zwar den Namen an, aber es ist kein Anhang da.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete