差出人検索クエリー

現在開いているメッセージの差出人(From:)を「検索する文字列」とし、差出人(F)の書式でクエリーを実行します。

• 別途「マクロ形式で保存(SubTmpMacCmd1Mk.mac)」が必用です。
• メーラー部からの起動を想定しています。エディタ部から起動した場合はメーラー部に切替えられます。
• 複数のメッセージを選択している場合、クエリ−は実行されません。

// Start of EdMax Macro
CHAR MacroComment[] = "差出人でクエリーを実行(メーラー部用)"
// #----------------------* Prolog
SaveCurrentFindCondition( ) ;       //保存:検索条件
SaveMailEditHeaderEditMode( ) ;     //保存:メール編集+ヘッダ編集
OnHeaderEdit( ) ;                   //ON:メール編集+ヘッダ編集
ActivateMailerPart( ) ;             //メーラー部へ切替え
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
// #----------------------* 「From: 」の検索
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
FindString( TRUE , TRUE , TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ;  //連続改行を検索
IfStringNotFound( 11 ) ;            //連続改行が存在しない場合はEpilogへ
KeyDown( VK_LEFT , 0 ) ;            //←キー
FindString( FALSE , TRUE , TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "^From: " ) ;//前のヘッダを検索
IfStringNotFound( 8 ) ;             //「From: 」が存在しない場合はEpilogへ
  // #----------------------* 差出人部をCopy
  KeyDown( VK_RIGHT , 0 ) ;         //→キー(「From: 」の直後へ)
  KeyDown( VK_END , 1 ) ;           //Shift+Endキー
  ClearClipboard( ) ;               //クリップボードをクリア
  CopyString( ) ;                   //コピー
  // #----------------------* クエリー(書式:差出人)マクロ(TmpMacCmd1.mac)作成及び実行
  //DoQuery( TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , 1 , 6 , "{f=hogehoge}" , "2002/01/15" , "2002/01/15" , FALSE , FALSE , FALSE , FALSE , FALSE , 100 ) ;
  InsertStringEx( 4 , "DoQuery( TRUE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , 1 , 6 , \"{f=" ) ; //挿入:文字列(クリップボードの先頭)
  InsertStringEx( 5 , "}\" , \"2002/01/15\" , \"2002/01/15\" , FALSE , FALSE , FALSE , FALSE , FALSE , 100 ) ;" ) ; //挿入:文字列(クリップボードの最終)
  CallMacro( SubTmpMacCmd1Mk ) ;    //TmpMacCmd1.macの作成
  CallMacro( TmpMacCmd1 ) ;         //TmpMacCmd1.macの実行
// #----------------------* Epilog
RestoreCurrentFindCondition( ) ;    //復元:検索条件
RestoreMailEditHeaderEditMode( ) ;  //復元:メール編集+ヘッダ編集
// End of EdMax Macro