title image


Smiley auf die schnelle...
würde ich es lösen und wieder anhängen.



Lösen geht z.B. so:



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 )

End If

End Forall

End If



Anhängen geht so:



Set rtitem = New NotesRichTextItem( doc, "Body" )

Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\Samples\")

Call doc.Save( True, True )





... vermutlich gehts auch eleganter... ?
Kochtipp (7): Milchreis schmeckt besonders lecker, wenn man kurz vor dem Servieren den Milchreis durch ein saftiges Steak ersetzt.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: