直前のメールにスレッド接続

直前のメールを親とし、現在のメールにIn-Reply-To情報を追加します。スレッド接続対象が離れていて「スレッド編集」では接続しにくい場合に使用します。

1. まず、スレッドの親となるメールを選択します。
   
2. 続いて、スレッドを繋げたいメール(子)を選択します。「前に戻る」を使用しているため、この間に他のメールを選択しないように注意してください。
   
3. この状態でマクロを実行すると、ヘッダの先頭にIn-Reply-To行が追加されます。この時点ではスレッド表示されません。
   
4. 件名左横の部分をクリックすると表示順が切り替わります。
   
5. スレッド表示になるまで件名左横をクリックします。
   

• In-Reply-To情報はヘッダの先頭に付加します。誤って接続してしまった場合は、先頭のIn-Reply-To行を削除すれば元に戻ります。
• In-Reply-Toの存在チェックは行なっていません。
• 元のメールにメッセージIDが存在していない場合や、日付の状態によってはスレッド表示されない場合があります。

// Start of EdMax Macro
CHAR MacroComment[] = "直前のメールにスレッド接続"
// #----------------------* Prolog
SaveMailEditHeaderEditMode( ) ;     //保存:メール編集+ヘッダ編集
OnHeaderEdit( ) ;                   //ON:メール編集+ヘッダ編集
SaveCurrentAutoFormSwitch( ) ;      //保存:自動整形ON/OFF
OffAutoForm( ) ;                    //OFF:自動整形
SaveCurrentFindCondition( ) ;       //保存:検索条件
// #----------------------* 前(親)のメールのMessage-Id:を複写
BackToPrevMessage( ) ;              //前に戻る
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , TRUE , TRUE , "Message-Id:" ) ;  //文字列の検索(次を検索)
IfStringNotFound( 13 ) ;            //「Message-Id:」が存在しない場合はEpilogへ
KeyDown( VK_RIGHT , 0 ) ;           //→キー
SetAnchor( ) ;                      //アンカーの設定
FindString( TRUE , FALSE , FALSE , TRUE , FALSE , FALSE , FALSE , TRUE , TRUE , ">" ) ;  //文字列の検索(次を検索)
IfStringNotFound( 9 ) ;             //Message-Idの終端が存在しない場合はEpilogへ
KeyDown( VK_RIGHT , 0 ) ;           //→キー
SetAnchor( ) ;                      //アンカーの設定
SelectAnchorArea( ) ;               //アンカー間を選択
CopyString( ) ;                     //コピー
// #----------------------* 元(子)のメールの先頭にIn-Reply-To:を貼り付け
ForwardToNextMessage( ) ;           //次に進む
SetFocusToView( ) ;                 //フォーカス:ビュー画面へ
InsertString( "In-Reply-To:" ) ;    //文字入力
PasteString( ) ;                    //貼り付け
InsertString( "\r\n" ) ;            //改行
// #----------------------* Epilog
RestoreMailEditHeaderEditMode( ) ;  //復元:メール編集+ヘッダ編集
RestoreAutoFormSwitch( ) ;          //復元:自動整形ON/OFF
RestoreCurrentFindCondition( ) ;    //復元:検索条件
// End of EdMax Macro