Domino 9 und frühere Versionen > Entwicklung

Hilfe bei script

<< < (3/4) > >>

piccolo:
wenn ich das not nicht weglasse, passiert überhaupt nichts, mit dem debugger durchgespielt ???

Axel:
Hi,

dann liegt der Fehler weiter vorne.

SourceDoc wird nicht belegt. Unter Umständen liegt der Hund hier begraben: Set SourceDoc = view.GetFirstDocument()


view wird initialisiert, dass habe ich auf deinem Screenshot gesehen.

Mal ganz spitz gefragt: sind in der Ansicht überhaupt Dokumente vorhanden ?


Axel

ata:
... so sehe ich das auch, denn ohne SourceDoc geht er nicht in die Schleife...

ata

piccolo:
hallo ihr  ;D, hab´s jetzt endlich überrissen !, jedoch müßte ich das ritem extrahieren und dann in ein neues dokument kopiern, da ich ansonsten wieder probleme mit dem dokumentenschlüssel habe !

Axel:

--- Zitat von: piccolo am 25.06.03 - 14:24:22 ---... jedoch müßte ich das ritem extrahieren und dann in ein neues dokument kopiern, da ich ansonsten wieder probleme mit dem dokumentenschlüssel habe !

--- Ende Zitat ---

Hi,

was meinst du denn damit. Heißt das, du willst das Attachment lösen und an das neue Dokument anhängen ?

Wenn ja, könnte das so aussehen:

...
Set rtitem = Sourcedoc.GetFirstItem("Body")    
If rtitem.Type = RICHTEXT Then
  Forall objects In rtitem.EmbeddedObjects
    If objects.Type = EMBED_ATTACHMENT Then
      strPfad = "c:\temp\" & objects.Source
      objects.ExtractFile strPfad    'Anhang in temp. Verzeichnis lösen
    End If  'If objects.Type = EMBED_ATTACHMENT
  End Forall  'Forall objects In rtitem.EmbeddedObjects
End If  'If rtitem.Type = RICHTEXT

Set newrtitem = New NotesRichTextItem( TargetDoc, "Body" )
Set object = newrtitem.EmbedObject( EMBED_ATTACHMENT, "", strPfad)
...

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete