// Start of EdMax Macro
CHAR MacroComment[] = "メーラー部の本文のみを印刷(Preview)"
// #----------------------* Prolog
SaveCurrentFindCondition( ) ; //保存:検索条件
ActivateMailerPart( ) ; //メーラー部へ切替え
SetFocusToView( ) ; //フォーカス:ビュー画面へ
// #----------------------* 本文のみを選択
KeyDown( VK_HOME , 2 ) ; //Ctrl+Homeキー
FindString( TRUE , FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ; //文字列の検索(次を検索)
IfStringNotFound( 3 ) ; //連続改行が存在しない場合はEpilogへ
KeyDown( VK_RIGHT , 0 ) ; //→キー
KeyDown( VK_END , 3 ) ; //Ctrl+Shift+Endキー
PrintPreview( ) ; //印刷プレビュー
// #----------------------* Epilog
RestoreCurrentFindCondition( ) ; //復元:検索条件
// End of EdMax Macro
// Start of EdMax Macro
CHAR MacroComment[] = "メーラー部では本文のみ\r\nエディタ部では全てを印刷(Preview)"
// #----------------------* 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( 7 ) ; //Found:エディタ部(メーラー部処理をskip)
// #----------------------* メーラー部処理
KeyDown( VK_HOME , 2 ) ; //Ctrl+Homeキー
FindString( TRUE , FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ; //文字列の検索(次を検索)
IfStringNotFound( 7 ) ; //連続改行が存在しない場合はEpilogへ
KeyDown( VK_RIGHT , 0 ) ; //→キー
KeyDown( VK_END , 3 ) ; //Ctrl+Shift+Endキー
PrintPreview( ) ; //印刷プレビュー
IfStringFound( 3 ) ; //メーラー部処理を終了しEpilogへ
// #----------------------* エディタ部処理
DeleteString( ) ; //Deleteキー
SelectAllString( ) ; //すべてを選択
PrintPreview( ) ; //印刷プレビュー
// #----------------------* Epilog
RestoreCurrentFindCondition( ) ; //復元:検索条件
RestoreAutoFormSwitch( ) ; //復元:自動整形ON/OFF
RestoreMailEditHeaderEditMode( ) ; //復元:メール編集+ヘッダ編集
// End of EdMax Macro