マクロ 公開データ (2000.10〜2008.01)

[1004] ヘッダーCM削除(先頭〜空白行) - matsui <> 00/10/21 11:40


Subject: [1004] ヘッダーCM削除(先頭〜空白行) Date: Sat, 21 Oct 2000 11:40:01 +0900 From: matsui <>
matsui です。 既存のマクロをテキスト化してみました。 設定の保存・復元の部分は共通的に使えると思います。 ------ この次の行から //*********************************************************** // ヘッダーCM削除(先頭〜空白行) // // [説明] // 文頭〜空白行までを、CM(不要部)と判断し削除します。 // 行頭が改行(\n)の場合を、空白行と判断します。 // // [補足] // 削除部はクリップボードに複写されています。 // 誤って削除した場合は「メール編集」をONの状態で「貼り付け」で戻ります。 // // 下記URLに操作記録手順があります。 // http://www.geocities.co.jp/SiliconValley/7492/ExHdCmCut.html // // [履歴] // 2000/10/21 matsui マクロのテキスト化 // 2000/04/13 「複写」→「delete」の部分を「切り取り」に変更 // 2000/04/10 delete前に複写を追加 // 2000/04/06 新規作成 //*********************************************************** CHAR MacroComment[] = "文頭〜空白行までを、CM(不要部)と判断し削除\r\n2000/10/21 written by matsui" // *----------------------* 設定の保存 SaveCurrentAutoFormSwitch( ) ; OffAutoForm( ) ; SaveMailEditHeaderEditMode( ) ; OnMailEditMode( ) ; SaveCurrentFindCondition( ) ; // *----------------------* View画面の先頭行へ位置付け SetFocusToView( ) ; SelectAllString( ) ; KeyDown( VK_LEFT , 0 ) ; // *----------------------* 対象をAnchor設定 FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ; KeyDown( VK_RIGHT , 0 ) ; SetAnchor( ) ; FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ; KeyDown( VK_RIGHT , 0 ) ; SetAnchor( ) ; // *----------------------* Anchor間を削除 SelectAnchorArea( ) ; CutString( ) ; CopyString( ) ; // *----------------------* フォーカスをリスト画面へ SetFocusToList( ) ; // *----------------------* 設定の復元 RestoreCurrentFindCondition( ) ; RestoreMailEditHeaderEditMode( ) ; RestoreAutoFormSwitch( ) ;