アカウントグループ内を既読にする - 秀丸メール情報交換会議室 - スレッド18097, 2004/05/16

アカウントグループ内を既読にする

浜っ子 さん　04/05/16 18:34

アカウントグループ内のメールをすべて既読にするマクロはどのように書いたらいい
でしょうか？

できたら、既読にする確認が出ないようにしたいのですが。

RE:18097 アカウントグループ内を既読にす

秀まるお2 さん　04/05/17 09:34

　例えばですが、現在選択してるアカウントグループを「すべて既読にする」と
やりたいだけならば、

#n = sendmessage(hidemaruhandle(0),0x0111,40049,0);

　という１文だけでいいです。

　アカウントグループの名前指定でとなると、実は１つ問題があって難しいです。
というのは、アカウントグループを選択する関数がありません。
SimulateKeyDownを使うなどしてうまくアカウントグループを選択させることは
出来ますけど、少々面倒でして…。

　なんでしたら次のバージョンに、SelectAccountGroup関数でも追加しますけど。

RE:18105 アカウントグループ内を既読にす

浜っ子 さん　04/05/17 20:22

　こんにちは、秀まるおさん。浜っ子です。レスどうもありがとうございました。

>　例えばですが、現在選択してるアカウントグループを「すべて既読にする」と
>やりたいだけならば、
>
> #n = sendmessage(hidemaruhandle(0),0x0111,40049,0);
>
>　という１文だけでいいです。

やってみたのですが、アカウントグループのところを選択している状況でないと作動
しませんでした。他のところ（例えばグループ内のメールを見ているとき）にカーソ
ルがあるときなどにすべて既読にするには、やはりアカウントグループを選択する関
数が無いとだめでしょうか？

もしそうでしたら、accountgroup関数があると助かるのですが。

このようなことを希望するのは、読まないメールが同じメールグループ内の各アカウ
ントにたくさん来るものを一気に既読にしたいためです。

RE:18126 アカウントグループ内を既読にす

秀まるお2 さん　04/05/18 10:32

　では、次のV3.56β2 にて、SelectAccountGroup関数を追加します。

#n = dllfunc("SelectAccountGroup", "TEST");
if( #n == 0 ) {
message "アカウントグループの選択に失敗しました。";
endmacro;
}

　ってな具合になります。

RE:18139 アカウントグループ内を既読にす

浜っ子 さん　04/05/18 21:51

秀まるお様、ありがとうございます。
mailグループ内の未読メールを以下のマクロで既読にできました。

既読にする時、「グループ内のアカウントの＊＊＊既読にしていいですか」と確認メ
ッセージが出ますが、これを出ないようにすることはできないでしょうか？

loaddll "tkinfo.dll";
#n = dllfunc("SelectAccountGroup", "mail");
if( #n == 0 ) {
message "アカウントグループの選択に失敗しました。";
endmacro;
}
#n = sendmessage(hidemaruhandle(0),0x0111,40049,0);

RE:18154 アカウントグループ内を既読にす

秀まるお2 さん　04/05/18 22:56

> 既読にする時、「グループ内のアカウントの＊＊＊既読にしていいですか」と確認メ
> ッセージが出ますが、これを出ないようにすることはできないでしょうか？

　出ないようには出来ませんが、ダイアログボックスの「はい」ボタンを押す操
作をシミュレートすることなら出来ます。一瞬だけダイアログボックスが見えま
すが、事実上、ダイアログボックスが出てないような動作となります。

#n = sendmessage(hidemaruhandle(0),0x0111,40049,0);

　の所を以下のように直してみてください。

#n = dllfunc("Bypass_keybd_event",' ');
#n = sendmessage(hidemaruhandle(0),0x0111,40049,0);