|
メールで送る方は、
loaddll "tkinfo.dll";
$file = dllfuncstr("HomeDir") + "tkf_SpamWord.txt";
#n = dllfunc("NewMail");
#n = dllfunc("AddAttach", $file );
#n = dllfunc("SetHeader", "To", "自分のメールアドレスその2" );
#n = dllfunc("SetHeader", "Subject", "迷惑ワードファイル" );
#n = dllfunc("SendNow");
if( #n != 0 ) {
exit;
}
のようなマクロでよくて、受け取る方は、
loaddll "tkinfo.dll";
$attach = dllfuncstr("CurrentHeader", "X-Attach:");
if( rightstr( $attach, 17 ) != "\\tkf_SpamWord.txt" ) {
message "迷惑ワードの添付ファイルが付いてません。";
endmacro;
}
$file = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount")
+ "\\" + $attach;
#n = dllfunc("Bypass_SetFileAttributes", $file, 0x20);
$dest = dllfuncstr("HomeDir") + "tkf_SpamWord.txt";
#n = dllfunc("Bypass_CopyFile", $file, $dest, 0 );
if( #n == 0 ) {
message "迷惑ワード用ファイルのコピーに失敗しました。";
}
のマクロでいいと思います。
|
|