まとめて返信

• 複数のメールを選択した状態で、マクロ実行すると、まとめた形で返信文の編集ができます。
• ヘッダ、署名に合わせて、適当に変更してください。m(__)m

• 最初に選択したメールにより、宛先、件名が決まります。
• 最初のメール選択から、以降の選択までの時間が短い場合、宛先、件名が別のメールのものになる場合があります。(メールの履歴を使用しているため)
• ヘッダ、署名を残すようにしています。↓キーや↑キーの回数の調整が必要です。
• 文字列の置換部は参考です。適当に調整してください。

// Start of EdMax Macro
// #----------------------* Prolog
SaveCurrentFindCondition( ) ;   //保存:検索条件
SaveCurrentAutoFormSwitch( ) ;  //保存:自動整形ON/OFF
OffAutoForm( ) ;                //OFF:自動整形
// #----------------------* 選択したメールを結合し加工
OpenEditViewCombined( ) ;       //結合してビューを開く
SelectAllString( ) ;            //すべてを選択
CopyString( ) ;                 //コピー
InsertStringEx( 3 , "> " ) ;    //挿入:文字列(クリップボードの行頭)
CloseMessage( ) ;               //閉じる
// #----------------------* 一番最初に選択したメールへ返信
ActivateMailerPart( ) ;         //メーラー部へ切替え
BackToPrevMessage( ) ;          //前に戻る
ReplyMessage( ) ;               //差出人へ返信
//>> #----------------------* 返信ヘッダで不要な部分を削除
//>> KeyDown( VK_DOWN , 0 ) ;   //↓キー×削除対象行位置
//>> KeyDown( VK_DOWN , 1 ) ;   //Shift+↓キー×削除対象行数
//>> DeleteString( ) ;          //Deleteキー
//>> KeyDown( VK_HOME , 2 ) ;   //Ctrl+Homeキー
// #----------------------* 引用された本文の最初を記憶
KeyDown( VK_DOWN , 0 ) ;        //↓キー×返信ヘッダ行数
//>> KeyDown( VK_DOWN , 0 ) ;       //↓キー
SetAnchor( ) ;                  //アンカーの設定
// #----------------------* 引用された本文の最後を記憶
KeyDown( VK_END , 2 ) ;         //Ctrl+Endキー
KeyDown( VK_HOME , 0 ) ;        //Homeキー(行頭へ移動)
KeyDown( VK_UP , 0 ) ;          //↑キー×署名行数
//>> KeyDown( VK_UP , 0 ) ;         //↑キー
// #----------------------* 引用された本文に上書き貼り付け
SetAnchor( ) ;                  //アンカーの設定
SelectAnchorArea( ) ;           //アンカー間を選択
PasteString( ) ;                //貼り付け
// #----------------------* 一部のヘッダから「> 」を削除
//> 文字列の置換(すべて置換)
ReplaceString( 2 , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "^>  Subject: " , "Subject: " ) ;
ReplaceString( 2 , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "^>     Date: " , "   Date: " ) ;
// #----------------------* 加工例
ReplaceString( 2 , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "^> -------------------------------------------------- \[./.]" , "" ) ;
ReplaceString( 2 , FALSE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , "\\n>     From: " , "  に関して\\n\\n>     From: " ) ;
// #----------------------* Epilog
RestoreCurrentFindCondition( ) ;    //復元:検索条件
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
// End of EdMax Macro