| |
本上力丸さん今日は、ひろです。
> メール一覧でメールを選択し、Ctrl+Sでそのメールを保存出来るように出来ません
>か？
基本的にこのアンに賛成です。
ただ個人的には、複数のメールが選択してあっても 1 つのメールしか保
存しませんが、
//鶴亀メール mail 保存支援 macro Ver.0.32
loaddll "tkinfo.dll";
if(result){
if(!dllfunc("IsTuruKame")){
message "鶴亀メール上でしかこのマクロは利用できません。";
endmacro;
}
}
else{
message "DLL のロードに失敗しました。";
endmacro;
}
$info = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount") + "\\tkmail.ini";
#mailType = dllfunc("MailType");
if(#mailType == -1){
if(!dllfunc("OpenMail"))goto error;
}
$$file = dllfuncstr("CurrentHeader","Subject");
##handle = dllfunc("HeaderView");
##tmp = dllfunc("SwitchHeaderView",2);
if(existfile(hidemarudir+"\\DengakuDLL.dll"))
loaddll hidemarudir+"\\DengakuDLL.dll";
else if(existfile("DengakuDLL.dll"))loaddll "DengakuDLL.dll";
else{
SAVEAS;
goto ResetHeader;
}
$$file = dllfuncstr("GSUB",$$file,"\\","￥",-1);
$$file = dllfuncstr("GSUB",$$file,"/","／",-1);
$$file = dllfuncstr("GSUB",$$file,":","：",-1);
$$file = dllfuncstr("GSUB",$$file,";","；",-1);
$$file = dllfuncstr("GSUB",$$file,"*","＊",-1);
$$file = dllfuncstr("GSUB",$$file,"?","？",-1);
$$file = dllfuncstr("GSUB",$$file,"<","＜",-1);
$$file = dllfuncstr("GSUB",$$file,">","＞",-1);
$$file = dllfuncstr("GSUB",$$file,"|","｜",-1);
$$file = dllfuncstr("GSUB",$$file,"\"","”",-1);
$$file = getinistr($info,"OTHER","save") + "\\" + $$file + ".txt";
$$file = leftstr($$file,256);
$$file = dllfuncstr("GETFILENAME",hidemaruhandle(0),
"保存ファイルネーム",$$file,"'ファイルの種類 (*.txt)'");
if($$file != "")saveas $$file;
writeinistr $info,"OTHER","save",directory;
loaddll "tkinfo.dll";
ResetHeader:
##tmp = dllfunc("SwitchHeaderView",##handle);
if(#mailType == -1){
##handle = hidemaruhandle(0);
if(!dllfunc("SetMainWndTop"))goto error;
closehidemaru ##handle;
}
goto Ending;
error:
message "DLL 関数失敗";
Ending:
freedll;
endmacro;
//----------------------- endmacro --------------------------------------------
というマクロを使っています。
P.S このマクロは別途田楽 DLL
http://www.ceres.dti.ne.jp/~sugiura/hidemaru/macros/dgserver/dgdll164.lzh
を導入してあるとより便利です。
|
|