| |
こんにちは。久しぶりに投稿してみます。
まふさんの意見には賛成なんですが、当面の間、実現は難しいかな？
と思ってちょっとマクロを作ってみました。ただ手抜きだらけなので雛
型と思ってください。
このマクロを実行するとヘッダに「X-Account:現在アカウント名」を
追加します。「「X-Account:」を表示しておけば印刷時にも印字されま
す。
1.ヘッダ表示を簡略か全てにしておく必要があります。
簡略の場合は、設定-全般的な設定-ヘッダ-「送信用メールの時」
〃 -「受信用メールの時」 に
「X-Account:」と設定しておく必要があります。但し、マクロ側で
EnvChanged関数を使用すれば出来るかもしれません。
2.本来現在メールのヘッダ表示状態等を考慮する必要がありますがチェ
ックしてません。
3.既に「X-Account:」ヘッダが存在するかのチェックもしてません。
4.エディタ上でしか機能しません。マクロ側でOpenMail関数を使用すれ
ばそれなりの対応が出来るかもしれません。
5.印刷コマンドの代わりに使用する場合は「print;」を有効にしておけ
ばよいかもしれません。しかし印刷ダイアログは表示されません。何か
ダイアログを出すコマンドってありましたっけ？
main:
loaddll "TKInfo.dll";
if( !result )
endmacro;
moveto x, y; #g_x = x; #g_y = y;
disabledraw;
$account = dllfuncstr( "CurrentAccount" );
#n = dllfunc( "EnableEdit" );
if( #n == 0 )
goto mainend;
$s = dllfuncstr( "AddHeader", "X-Account:", $account );
#n = dllfunc( "ClearUpdated" );
// print;
mainend:
moveto #g_x, #g_y;
enabledraw;
freedll;
endmacro;
|
|