OutlookExpress補助スクリプト

操作を誤ってCCで送ってしまわないようにする方法のひとつとして、
■CCの入力欄を消してしまう
//ここから多重起動防止
id = getid(get_thisuwsc_win)
sn = status(id,st_title);sc = status(id,st_class)

id = getid(sn, sc)
ifb id > 0 then//既に起動していれば閉じて自身も終了
  slctbox(slct_btn, 5, sn, "終了します")
  ctrlwin(id, close);ExitExit
endif
//多重起動防止ここまで

//メインループ
while true;sleep(0.5)
  id = getid(get_active_win)
  ifb status(id, st_title) = "メッセージの作成" and status(id, st_class) = "ATH_Note" then
    sleep(0.5)//SLEEP無しだと誤動作するかも
    //エディットが４つあれば２番目を非表示にする
    if GETCTLHND(id,"RichEdit20W",4) > 0 then ctrlwin(HNDTOID(GETCTLHND(id,"RichEdit20W",2)),hide)
  endif
wend

※このスクリプトはBCCが表示(すべてのヘッダーを表示)されている場合にのみ使えます。

もし非表示にした空間が気になる場合は、他の欄をACWで移動させるだけ。(スクリプトは省略)

その他の方法として、
■CCがアクティブになったらBCCにフォーカスを移す。(作成予定なし)
■CCに文字が入力されたらBCC欄に文字を移動（ボツ）
■CCを監視して、常に空の状態にする
//最初に書いたスクリプトのIFB～ENDIFの部分を下記に置き換える
Ifb status(id, st_title) = "メッセージの作成" and status(id, st_class) = "ATH_Note" then
  ifb GETCTLHND(id,"RichEdit20W",4) > 0 then
    If GETSTR(ID,2) <> "" Then SENDSTR(ID,"",2,TRUE)
  EndIf
Endif
//動作確認してない

---------------------------------------------------------

おまけ。
■宛先を消して印刷されないようにする。
作成つもりだったけど、ウィンドウ情報を弄っただけではダメだった。