本文先頭〜空白行までを削除

本文先頭〜空白行までを、不要部と判断し切り取ります。リスト画面にフォーカスがある状態でも動作しますのでフォーカスの切替えは不要です。

1. 対象メールを1件選択した状態で、マクロを再生します。
   
2. 本文先頭〜空白行までが削除され、フォーカス位置は「リスト画面」へ戻ります。
   

※削除部はクリップボードに複写されていますので、誤って削除した場合は「メール編集」をONの状態で「貼り付け」を行ってください。

• 当マクロを広告削除マクロとして使用する場合は、事前に「広告削除系マクロの使用にあたって」をお読みください。

// Start of EdMax Macro
CHAR MacroComment[] = "本文先頭〜空白行までを削除\r\n2001/08/01"
// *----------------------* Prolog
SaveMailEditHeaderEditMode( ) ;     //保存:メール編集+ヘッダ編集
OnMailEditMode( ) ;                 //ON:メール編集
SaveCurrentAutoFormSwitch( ) ;      //保存:自動整形ON/OFF
OffAutoForm( ) ;                    //OFF:自動整形
SaveCurrentFindCondition( ) ;       //保存:検索条件
ActivateMailerPart( ) ;             //メーラー部へ切替え
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
// *----------------------* 対象をAnchor設定
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
FindString( TRUE , FALSE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "^ *\\n" ) ; //文字列の検索(次を検索)
KeyDown( VK_RIGHT , 0 ) ;           //→キー
SetAnchor( ) ;                      //アンカーの設定(bodyの先頭)
FindString( TRUE , FALSE , FALSE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , "^ *\\n" ) ; //文字列の検索(次を検索)
KeyDown( VK_RIGHT , 0 ) ;           //→キー
SetAnchor( ) ;                      //アンカーの設定(空白行)
// *----------------------* Anchor間を削除
SelectAnchorArea( ) ;               //アンカー間を選択
CutString( ) ;                      //切り取り
// #----------------------* Epilog
RestoreMailEditHeaderEditMode( ) ;  //復元:メール編集+ヘッダ編集
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
RestoreCurrentFindCondition( ) ;    //復元:検索条件
SetFocusToList( ) ;                 //フォーカス:リスト画面へ
// End of EdMax Macro