| |
kendo さん今日は、ひろです。
> メール作成エディタがその人
> 用の文字コードで立ち上がるようにできるでしょうか。
<中略>
> いま読んでいるメールの文字コードを引き継いでメール作成エディタを立
> ち上げられるでしょうか。
「本体で選択しているメールのコードに合わせる」ということなら比較的簡
単です。つまり2 枠区切りで利用していて、今読んでいるメールと本体で選択
しているメールが一致していないときは上手く行かないという意味です。
このことを気にされないのであれば、結局マクロを使うことにはなるのです
が、末尾のマクロを「送信用エディタを起動時」に指定してください。
//-------------------------------------------------------------------
loaddll "tkinfo.dll";
#type = dllfunc("ExecAt", dllfunc("MainWnd"), "MailType");
if(#type != -1 && dllfuncstr("CurrentHeader", "Content-Type") == ""){
$char = dllfuncstr("ExecAt", dllfunc("MainWnd"),
"CurrentHeader", "X-Body-Content-Type");
if($char == "")$char = dllfuncstr("ExecAt", dllfunc("MainWnd"),
"CurrentHeader", "Content-Type");
call GetLang $char;
if(!dllfunc("SetCharSet", $$return))message "変換失敗";
}
freedll;
endmacro;
GetLang:
$$return = dllfuncstr( "ToLower",$$1 );
$$return = rightstr($$return,
strlen($$return) - strstr($$return,"charset=") - 8);
##return = strstr($$return, ";");
if(##return != -1)$$return = leftstr($$return, ##return);
call DelQuote $$return;
return $$return;
DelQuote:
if( ascii( $$1 ) == 0x22 ){
if( ascii( rightstr( $$1, 2 ) ) >= 0xFF00 )return $$1;
if( ascii( rightstr( $$1, 1 ) ) != 0x22 )return $$1;
else return midstr( $$1, 1, strlen( $$1 ) - 2 );
}
return $$1;
|
|