| |
飯田です。こんxxは〜
ひげやす<xxxxxxxxxx@maruo.co.jp> 様
Thu, 12 Oct 2000 11:07:08 +0900 Wrote
>・返信時、ＢＣＣに自分のメールアドレスを自動で入れる設定。
需要あれば、アップロード＆登録しますけど(^^;;;
オンなので、とりあえず・・・
マクロで宜しければ、どうぞ（アドレスの部分だけ置き換えてくらはい）
返信時、無条件にBcc先頭に入ります（バグったら、ごめんなさい)
コヒベして、Bcc.mac などお好きなファイル名で保存してお使い下さい。
=== ここから Bcc.mac
// 鶴亀メール 返信時Bccアドレス挿入マクロ
// y.iida
$mail = "\"test\" <xxxx@test.co.jp>"; //Bcc挿入アドレス
// DLL を Load する
openreg "CURRENTUSER","Software\\Hidemaruo\\TuruKame\\Config";
if( !result ) {
message "鶴亀がインストールされてないにょ ＼(◎o◎)／！";
endmacro;
}
loaddll "tkinfo.dll";
if( !result ) {
message "DLLロードに失敗";
endmacro;
}
//メールタイプの判断をする
#ret = dllfunc("MailType");
if (#ret != 1){//返信
endmacro;
}
//
// 鶴亀に貼り付ける
//
call Bcc_cursor;
moveto 11,y;
if (code == 0x0d){
insert $mail;
}
else
{
moveto 10,y;
insert $mail + ", ";
}
moveto 0,0;
#ret = dllfunc("ClearUpdated");//更新フラグ解除
endmacro;
// ------------------------- //
Bcc_cursor:
//
// 指定ヘッダーへカーソルを移動する (Bcc) subroutine
//
// 引数：無し
// 戻値：無し
//
moveto 0, -999;
golinetop;
while(true){
if (( x == 0 ) && (code == 0x0d)){
insertline;
insert "Bcc: ";
break;
}
if ( dllfuncstr( "ToUpper", gettext( 0, y, 4, y))
== dllfuncstr( "ToUpper", "Bcc:")){
break;
}
golineend2;
down;
golinetop2;
}
return;
=== ここまで Bcc.mac
--
y.iida NetMail-ML http://user1.allnet.ne.jp/~yatt/
|
|