Subject変更(ヘッダ情報使用)

選択したMailの件名(Subject)をフォルダプロパティで指定した形式(年月日等)に変更します。元の件名は「X-Org-Subject」で保存されています

1. 対象メッセージを1件選択した状態でマクロを実行します。
   
2. フォルダプロパティで指定した形式の件名に変更されます。
   

1. フォルダプロパティの設定

   返信ヘッダの内容を設定します。1行目が変更する件名となります(2行目以降は反映されません)。たとえば件名を　[hoge] yyyymmddhhmmss　としたい場合は [hoge] %Y%v%q%U%V%X というように設定してします。([hoge]は振り分け用)
   ※フォルダプロパティの設定手順は「Text保存(フォルダプロパティ指定形式)」の導入手順を参照してください。

2. ChgSubject.macの修正

   「ReplyMessageByThis」の部分のパスをフォルダプロパティを設定したフォルダのパスに変更します。

// Start of EdMax Macro
CHAR MacroComment[] = "2001/07/30 Subject変更(ヘッダ情報使用)"
// #----------------------* Prolog
SaveMailEditHeaderEditMode( )   ;   //保存:メール編集+ヘッダ編集
OnHeaderEdit( ) ;                   //ON:メール編集+ヘッダ編集
SaveCurrentAutoFormSwitch( ) ;      //保存:自動整形ON/OFF
OffAutoForm( ) ;                    //OFF:自動整形
SaveCurrentFindCondition( ) ;       //保存:検索条件
ActivateMailerPart( ) ;             //メーラー部へ切替え
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
// #----------------------* 件名のコピー
ReplyMessageByThis( "Account1\\Dummy\\ChgSubject.ctx" ) ;//このフォルダプロパティで返信(アカウント、フォルダは環境により異なります)
InsertString( "Subject: " ) ;
KeyDown( VK_HOME , 0 ) ;            //Homeキー
KeyDown( VK_DOWN , 0 ) ;            //↓キー
InsertString( "X-Org-" ) ;
KeyDown( VK_HOME , 3 ) ;            //Ctrl+Shift+Homeキー
CopyString( ) ;                     //コピー
CloseFileNoConfirmation( ) ;        //保存確認せずに閉じる
// #----------------------* ヘッダの最終へ位置付け
KeyDown( VK_HOME , 2 ) ;            //Ctrl+Homeキー
FindString( TRUE , FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , "\\n\\n" ) ;       //文字列の検索(次を検索)
KeyDown( VK_LEFT , 0 ) ;            //←キー
// #----------------------* Subjectの書き換え
                                    //文字列の検索(前を検索)
FindString( FALSE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , FALSE , "^Subject: " ) ;
KeyDown( VK_LEFT , 0 ) ;            //←キー
PasteString( ) ;                    //貼り付け
// #----------------------* Epilog
RestoreMailEditHeaderEditMode( ) ;  //復元:メール編集+ヘッダ編集
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
RestoreCurrentFindCondition( ) ;    //復元:検索条件
SetFocusToList( ) ;                 //フォーカス:リスト画面へ
// End of EdMax Macro