マクロ 公開データ (2000.10〜2008.01)

[1003] メーリングリスト管理者用 approveマクロ - MZAKI <t.mzaki@aqu.bekkoame.ne.jp> 00/10/20 10:03


Subject: [1003] メーリングリスト管理者用 approveマクロ Date: Fri, 20 Oct 2000 10:03:45 +0900 From: MZAKI <t.mzaki_@_aqu.bekkoame.ne.jp>
# Majordomo用です。 ------ この次の行から //*********************************************************** // メーリングリスト管理者用 approveマクロ // // [説明] // メーリングリスト(Majordomo)から、subscribe, unsubscribeの // Approveメッセージが管理者宛てに送付されてきます。それに対する // 返信メッセージを作成するマクロです。 // // [補足] // 「ここにapprove用のパスワードを設定してください」の部分には、 // 実際のパスワードを設定してから使います。 // // written by MZAKI 2000/10/20 //*********************************************************** SaveCurrentAutoFormSwitch( ) ; // 現在の自動整形モードを保存 SaveCurrentFindCondition( ) ; // 現在の検索条件を保存 OffAutoForm( ) ; // 自動整形OFF ReplyMessage( ) ; FindString( TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , TRUE , "password" ) ; // FindString( BOOL bNext , BOOL bCase , BOOL bDBCase , BOOL bRegular // , BOOL bEscapeSequence , BOOL bAndOr , BOOL bWholeWord , BOOL bRound // , BOOL bFindInFolder , CHAR findString[80] ) ; FindString( TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , TRUE , "password" ) ; DeleteString( 0 ) ; InsertString( "ここにapprove用のパスワードを設定してください" ) ; KeyDown( VK_HOME , 0 ) ; KeyDown( VK_HOME , 3 ) ; DeleteString( ) ; FindString( TRUE , FALSE , TRUE , FALSE , FALSE , FALSE , FALSE , TRUE , TRUE , "approve" ) ; KeyDown( VK_LEFT , 0 ) ; KeyDown( VK_HOME , 1 ) ; DeleteString( ) ; FindString( TRUE , FALSE , TRUE , FALSE , TRUE , FALSE , FALSE , TRUE , TRUE , "\\n" ) ; KeyDown( VK_HOME , 0 ) ; KeyDown( VK_DOWN , 0 ) ; KeyDown( VK_END , 3 ) ; DeleteString( ) ; RestoreAutoFormSwitch( ) ; // 自動整形モードを復元 RestoreCurrentFindCondition( ) ; // 検索条件を復元 // SendMessageLater( ) ; // この行の先頭の「// 」を削除すると、送信待ちへが実行されます // SendMessageNow( ) ; // この行の先頭の「// 」を削除すると、直ちに送信します ------ この前の行まで --- MZAKI