雛形マクロ (2/2)

選択された部分を新規メッセージに複写し、加工編集を行います。

// Start of EdMax Macro
CHAR MacroComment[] = "雛形マクロ\r\n新規メッセージ上で加工編集\r\n2001/11/01"
// #----------------------* 選択部を新規メッセージに貼付け
CopyString( ) ;                 //コピー
NewMessageSx( ) ;               //新規メッセージ(メーラー部)
//NewMessage( ) ;               //新規メッセージ(エディタ部)
SelectAllString( ) ;            //すべてを選択
PasteString( ) ;                //貼り付け

// #----------------------* 加工編集処理
//> この部分に加工編集処理を記入

// #----------------------* 加工結果をコピー
SelectAllString( ) ;            //すべてを選択
CopyString( ) ;                 //コピー
CloseFileNoConfirmation( ) ;    //保存確認せずに閉じる
// End of EdMax Macro

メーラ部・エディタ部を判定し、それぞれの処理を行います。
(メール編集をoffにし、入力した文字の存在でメーラー部・エディタ部を判断する部分は kotaro さんのマクロを参考にさせていただきました。)

// Start of EdMax Macro
CHAR MacroComment[] = "雛形マクロ\r\nメーラ部・エディタ部判定\r\n2001/11/01"
// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SaveCurrentAutoFormSwitch( ) ;      //保存:自動整形ON/OFF
OffAutoForm( ) ;                    //OFF:自動整形
SaveMailEditHeaderEditMode( ) ;     //保存:メール編集+ヘッダ編集
OffHeaderEdit( ) ;                  //OFF:メール編集+ヘッダ編集
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
SetFocusToEditor( ) ;               //フォーカス:メッセージ作成画面へ

// #----------------------* メーラー部・エディタ部判定
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
InsertString( "Check\r\n" ) ;       //キーボード入力
FindString( FALSE , TRUE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "^Check\\n" ) ; //文字列の検索(前を検索)

IfStringFound( 99 ) ;               //Found:エディタ部(メーラー部処理をskip)
  // #----------------------* メーラー部処理
  //> この部分にメーラー部の処理を記入
  IfStringFound( 99 ) ;             //メーラー部処理を終了しEpilogへ
  IfStringNotFound( 99 ) ;          //メーラー部処理を終了しEpilogへ

// #----------------------* エディタ部処理
DeleteString( ) ;                   //Deleteキー
//> この部分にエディタ部の処理を記入

// #----------------------* Epilog
RestoreCurrentFindCondition( ) ;    //復元:検索条件
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
RestoreMailEditHeaderEditMode( ) ;  //復元:メール編集+ヘッダ編集
// End of EdMax Macro