Sub Click(Source As Button)

     ' --- Windows Scripting Hostオブジェクト作成
     Set wshObj = CreateObject("Wscript.Shell")
     Set wshEnv = wshObj.Environment("PROCESS")
     
     ' 次のスクリプトは、文書の[ReportFile]フィールドの「添付ファイル、オブジェクトリンク、埋め込みオブジェクト」の検索を行う。
     ' 添付ファイルを見つけるたびに、ファイルを Windowsテンポラリディレクトリに移動し、文書からその添付ファイルを取り除く。
     ' このスクリプトは、[ReportFile]フィールドのオブジェクトリンクまたは埋め込みオブジェクトへは影響はない。
     
     ' --- テンポラリディレクトリを検索
     Dim tmpFolder As String
     tmpFolder = wshEnv("TEMP") & "\"
     
     ' --- 現在の文書を操作するための定義
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument     
     
     ' --- docを現在の文書として定義
     Dim doc As NotesDocument
     Set doc = uidoc.document
     Dim rtitem As Variant
     Set rtitem = doc.GetFirstItem( "ReportFile" )
     
     If ( rtitem.Type = RICHTEXT ) Then
          Forall obj In rtitem.EmbeddedObjects
               If ( obj.Type = EMBED_ATTACHMENT ) Then
                    Call obj.ExtractFile( tmpFolder & obj.Source )
                    ' Call obj.Remove
                    Call doc.Save( False, True )
               End If
          End Forall
     End If

End Sub