Jan 25, 2017 3:08 PM
82 Posts

sample

  • Category: Notes Client
  • Platform: Windows
  • Release: 9.0.1
  • Role: End User
  • Tags:
  • Replies: 4
Dim rtitem
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:\attachments\| & o.name )

               End If

       End ForAll

End If