| |
>受信した場合よりも、むしろ自分のメールを作成しているエディタの中でのことです。
ということならもっと簡単です。以下のマクロです。
-------------添付ファイル並べ替え.mac-----------------
// 添付ファイルを名前順に並べ替える
loaddll "tkinfo.dll";
#cAttach = 0;
while(1) {
$aAttach[#cAttach] = dllfuncstr("CurrentHeader2", "X-Attach"
, #cAttach );
if( $aAttach[#cAttach] == "" ) break;
#cAttach = #cAttach + 1;
}
if( #cAttach == 0 ) {
message "添付ファイルは１つもありません。";
endmacro;
}
#update = 0;
#x = 0;
while( #x < #cAttach - 1 ) {
#y = #x + 1;
while( #y < #cAttach ) {
if( $aAttach[#x] > $aAttach[#y] ) {
$temp = $aAttach[#x];
$aAttach[#x] = $aAttach[#y];
$aAttach[#y] = $temp;
#update = 1;
}
#y = #y + 1;
}
#x = #x + 1;
}
if( #update != 0 ) {
#x = 0;
while( #x < #cAttach ) {
#n = dllfunc("SetHeader2", "X-Attach:", $aAttach[#x], #x);
#x = #x + 1;
}
}
|
|