Wie kann ich per backend pruefen ob in einem RichTextField eine datei ist oder nicht?
notesDocument.was?
Danke
-
-
EmbeddedObjects, allerdings dann vom RichTextFeld
-
-
Code sagt mehr als 1000 Worte
Code
Alles anzeigenDim doc As NotesDocument Dim rtitem As Variant '...set value of doc... Set rtitem = doc.GetFirstItem( "Body" ) If ( rtitem.Type = RICHTEXT ) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) Then Call o.ExtractFile( "c:\samples\" & o.Source ) Call o.Remove Call doc.Save( False, True ) End If End Forall End IfGruß
Dirk -
Gut gesagt dirk
CodeSet fAt = uidoc.GetFirstItem("dokumenti") If fAt.Type=RICHTEXT Then Forall o In fAt.EmbeddedObjects 'hier kommt der type 'mismatch wenn kein attachment in dem feld ist If o.Type= EMBED_ATTACHMENT Then Call o.ExtractFile ( "c:\TEMP\" & o.name) Call uidoc.Save( True, True ) End If End Forall End If -
weise Dir mal vorher das Array zu
notesEmbeddedObjectArray = notesRichTextItem.EmbeddedObjects
und prüfe, ob das Array leer ist.Gruß
Dirk -
Ich werde mal einen weisen man zitirien
ZitatCode sagt mehr als 1000 Worte
-
erwischt, kanns gerade nicht testen.
Schau mal im Designer an, was bei dem Array steht, wenn das Feld keine Anhänge hat. Eventuell musst Du es mit Nothing abfangen.
Gruß
Dirk -
Die Hilfe sagt:
Returns empty if the rich text item does not contain embedded objects.Was ist aber Empty?
Ein leerer string, 0 oder was? :orakel:
Danke
-
geht mit isEmpty(...)
Gruß
Dirk -
Es hat geklapt danke dir Dirk, du bist eine grosse Hilfe fuer mich!
Danke