| |
まさきです。
マイケル2さんありがとうございます。うまく行きました。
ちなみに私はこんな感じで作ってみました。参考までに。
しかしこの機能、標準であっても良さそうな気もしますね。
loaddll("TKInfo.dll");
$disp = "以下のメールを送信します。\n\n";
#n = dllfunc("CountCurrentHeader","Subject");
#c = 0;
while( #c < #n ){
$a = dllfuncstr("CurrentHeader2","Subject",#c);
$disp = $disp + "Subject: " + $a + "\n";
#c = #c + 1;
}
#n = dllfunc("CountCurrentHeader","To");
#c = 0;
while( #c < #n ){
$a = dllfuncstr("CurrentHeader2","To",#c);
$disp = $disp + "To: " + $a + "\n";
#c = #c + 1;
}
#n = dllfunc("CountCurrentHeader","Cc");
#c = 0;
while( #c < #n ){
$a = dllfuncstr("CurrentHeader2","Cc",#c);
$disp = $disp + "Cc: " + $a + "\n";
#c = #c + 1;
}
#n = dllfunc("CountCurrentHeader","Bcc");
#c = 0;
while( #c < #n ){
$a = dllfuncstr("CurrentHeader2","Bcc",#c);
$disp = $disp + "Bcc: " + $a + "\n";
#c = #c + 1;
}
question $disp;
if( result == no )#n=dllfunc("SetCancel",1);
freedll;
endmacro;
|
|