| |
mtriver です。
: 添付ファイル１個でもエラーメッセージ出ますでしょうか。
出ます。複数の時は最初の1個のみ取り消されます。
何か勘違いしていますかねー?
// [UndoForwardAttach.mac]
loaddll "tkinfo.dll";
#type = dllfunc("MailType");
if( #type != 2 ) {
//転送メールでなければマクロ終了
endmacro;
}
question "添付ファイルをそのまま付けますか？";
if( result == yes ) {
endmacro;
}
while(1) {
$attach = dllfuncstr("CurrentHeader", "X-Attach");
if( $attach == "" ) {
break;
}
#n = dllfunc("UndoAttach", $attach );
// message "取り消し結果= " + str(#n);
if( #n == 0 ) {
//取り消し失敗？
message "添付ファイルの取り消し失敗";
endmacro;
}
}
//t_forward_Std.bin
mtriver です。
---------------------- 転送元のメール ----------------------
From: $(RootHeader, From)
To: $(RootHeader, To)
Date: $(RootHeader, Date)
Subject: $(RootHeader, Subject)
$(ExecMacro,"UndoForwardAttach.mac")$-
$(SelectedRootText2)
$i
|
|