| |
以下コード書いてみましたが、
やはり、添付ファイルが保存されません。
すみませんが、ADV戴けないでしょうか。
Q10
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
loaddll"TKinfo.dll";
//１、まず既存のメールのパスをとる。
$a=dllfuncstr("GetMailTransmitDate");
$b1=leftstr($a,4)+"年";
$b2=midstr($a,5,2)+"月";
$b3=midstr($a,8,2)+"日";
$d=dllfuncstr("CurrentHeader","Subject:");
call ChangeCharacter $d, ":", "_";
//message $$return;
$c="D:\\"+$b1+$b2+$b3+$$return;
message $c;
//２、先にメールを保存
$e=$c + ".txt";
message $e+"で保存します。";
saveas $e;
//３、次に添付を保存する。
//添付ファイルのパスではなく、ファイル名のみ取るコード
$d= dllfuncstr("CurrentHeader", "X-Attach");
$f=midstr($d,19,100);
$g=$c+"_添付ファイル_"+$f;
message $d+"を";
message $g+"で保存します。";
#n = dllfunc("Bypass_CopyFile", $d, $g);
endmacro;
//ここでマクロは終わり。以下は、上記call文で使用しているサブルーチン
ChangeCharacter://buffer 中の文字列を置換
##change_char=strlen($$2);
$$string = "";
while(1){
##number = strstr($$1, $$2);
if(##number == -1)break;
else{
##long = strlen($$1);
$$string = $$string + leftstr($$1, ##number) + $$3;
$$1 = rightstr($$1, ##long - ##number - ##change_char);
}
}
return $$string + $$1;
|
|