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

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

 
 Subject: [1004] ヘッダーＣＭ削除(先頭～空白行)
    Date: Sat, 21 Oct 2000 11:40:01 +0900
    From: matsui <>

matsui です。
既存のマクロをテキスト化してみました。
設定の保存・復元の部分は共通的に使えると思います。
------ この次の行から

//***********************************************************
// ヘッダーＣＭ削除(先頭～空白行)
//
// [説明]
// 文頭～空白行までを、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( ) ;