Set rtitem = doc.getfirstItem( "Body" )
   If rtitem Is Nothing Then
      Exit Sub
   End If
   aEmbObj = rtitem.EmbeddedObjects
   strTempdir = WinTemp
   If Isarray(aEmbObj) Then
      Forall o In aEmbObj
         strFile = o.source
         o.ExtractFile( strTempdir & "\" &strFile )
         strFileToOpen= strTempdir & "\" & strFile
         Ret = ShellExecuteAny(GetDesktopWindow, "open", strFileToOpen, Byval 0&, Byval 0&, SW_SHOWNORMAL)
      End Forall
   End If

Declare Function ShellExecuteAny Lib "shell32.dll" Alias "ShellExecuteA" _
(Byval hwnd As Long, Byval lpOperation As String, Byval lpFile As String, _
Byval lpParameters As Any, Byval lpDirectory As Any, Byval nShowCmd As Long) _
As Long
Declare Function GetDesktopWindow& Lib "user32" ()
Const SW_SHOWNORMAL = 10