Domino 9 und frühere Versionen > ND6: Entwicklung

Attachemnts in RTFs verschieben

<< < (2/4) > >>

Axel:

--- Zitat von: MasterminD am 25.01.06 - 14:45:01 ---leider kann MasterminD nicht so gut Script wie er das gern möchte  :-:

--- Ende Zitat ---

Dann musst du's eben lernen.  ;) Ohne geht's heut fast nicht.


--- Zitat von: MasterminD am 25.01.06 - 14:16:48 ---Kann man durch einen HotSpot Button gescheuert Attachments von einem RichTextFeld in ein anderes RichTextFeld kopieren?
--- Ende Zitat ---

Sind die Felder in einem Dokument?


Axel

MasterminD:
Ja sind sie. Direkt untereinander, nur eines ist in einem Berechneten Abschnitt um den zugriff zu steuern.


Habe mal schnell was ausprobiert:

Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
fileCount = 0   

Set rtitem = doc.GetFirstItem( "ProjectDocsRoot" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      fileCount = fileCount + 1
      Call o.ExtractFile _
      ( "c:\reports\newfile" & Cstr(fileCount) )
      Call o.Remove
      Call doc.Save( True, True )
    End If
  End Forall
End If



Bringt mir aber hier

Set rtitem = doc.GetFirstItem( "ProjectDocsRoot" )

einen "object variable not set" Fehler



cu
Rene

Axel:
Hast du die Variable doc gesetzt?


Axel

MasterminD:

--- Zitat von: MasterminD am 25.01.06 - 15:15:54 ---Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
fileCount = 0   

--- Ende Zitat ---

Denke schon, oder  :)

EDIT:
OK, da liegt der fehler, sagte ja bin in Script unerfahren  ;D
Habe sie ja nur deklariert, aber was setzte ich in die doc variable in der Notes Document Klasse?

ghost:
Das reicht noch nicht, es muss noch ein Wert zugewiesen werden. Z.B.:

Dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
dim doc as NotesDocument

set uidoc = ws.CurrentDocument
set doc = uidoc.Document

Viele Grüße
ghost

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete