FORUM PLAN UPDATE
Date revision: This forum will remain open to new posts and responses until December 1, 2018. (After that date, you will still be able to view and search the forum.) Also, we're taking a second look at the best place to host future conversation. For now, keep using this forum, and stay tuned for more news.


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

FORUM PLAN UPDATE
Date revision: This forum will remain open to new posts and responses until December 1, 2018. (After that date, you will still be able to view and search the forum.) Also, we're taking a second look at the best place to host future conversation. For now, keep using this forum, and stay tuned for more news.