マクロ 公開データ (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