'名  前:MHTで保存
'作成日:2006/05/23
'修正日:2006/06/06
'作成者:Eclipse
'※概要※
'表示中のページを保存する
'■引数1(保存タイプ)
' 1-決めうち保存
' 2-フォルダ選択保存
' 3-選択範囲を保存
'■引数2(エンコードタイプ)
' 0-変換しない
' 1-UTF-8(UNICODE)変換
' 2-EUC変換
' 3-SHIFT JIS変換
' 4-JIS変換
'■第3引数(Original URL & 保存日時表示)
' 1-Original Dataを埋め込む
' 2-何もしない

Option Explicit

'実行スクリプトファイルのFull Path
Const SCRIPT_FILE_PATH = ""
'第1引数(保存タイプ)
Const SAVE_TYPE = 2
'第2引数(エンコードタイプ)
Const SAVE_ORIGINAL  = 0
Const SAVE_UTF8      = 1
Const SAVE_EUC       = 2
Const SAVE_Shift_JIS = 3
Const SAVE_JIS       = 4
'第3引数(Original URL & 保存日時表示)
Const INSERT_ORIGINAL_DATA = 1

'■■ 実行スクリプト呼び出し ■■
Dim Ret
Ret = ExecScript(SCRIPT_FILE_PATH & "|" & SAVE_TYPE & " " & SAVE_Shift_JIS & " " & INSERT_ORIGINAL_DATA, True)