//AB/ Project Mapi Parameters dialog
//AB/ Object prj is a Dialog_Project
//AB/     Set ProjectName to "Mapi Parameters dialog"
//AB/     Set ProjectFileName to "MapiParameters.Dg"

// Project Object Structure
//   oMapiParameters is a ModalPanel
//     oContainer is a Container3d
//       oUsernameForm is a Form
//       oPasswordForm is a Form
//       oMapiGuaranteeFiFo is a CheckBox
//       oMapiPeek is a CheckBox
//       oMapiLongMsgId is a CheckBox
//       oMapiUnreadOnly is a CheckBox
//       oMapiEnvelopeOnly is a CheckBox
//       oMapiBodyAsFile is a CheckBox
//       oMapiSuppressAttach is a CheckBox
//     oOkButton is a Button
//     oCancelButton is a Button

// Register all objects
Register_Object oCancelButton
Register_Object oContainer
Register_Object oMapiBodyAsFile
Register_Object oMapiEnvelopeOnly
Register_Object oMapiGuaranteeFiFo
Register_Object oMapiLongMsgId
Register_Object oMapiParameters
Register_Object oMapiPeek
Register_Object oMapiSuppressAttach
Register_Object oMapiUnreadOnly
Register_Object oOkButton
Register_Object oPasswordForm
Register_Object oUsernameForm


//AB-IgnoreStart



//AB-IgnoreEnd

Object oMapiParameters is a ModalPanel

    //AB-StoreTopStart
    Set Extended_Window_Style To WS_EX_TOOLWINDOW False
    Set Extended_Window_Style To WS_EX_DLGMODALFRAME True
    
    On_Key kCancel Send Close_Panel
    //AB-StoreTopEnd

    Set Label to "Parameters"
    Set Size to 190 198
    Set Help_Id to Hlp_Parameters_Dialog

    //AB-DDOStart


    //AB-DDOEnd

    Object oContainer is a Container3d
        Set Size to 151 185
        Set Location to 5 5
        Object oUsernameForm is a Form
            Set Label to "Username:"
            Set Size to 13 120
            Set Location to 5 45
            Set Status_Help to "Enter the username (if required)"
            Set Label_Col_Offset to 2
            Set Label_Justification_Mode to jMode_Right
        End_Object    // oUsernameForm

        Object oPasswordForm is a Form
            Set Label to "Password:"
            Set Size to 13 120
            Set Location to 20 45
            Set Status_Help to "Enter the password (if required)"
            Set Label_Col_Offset to 2
            Set Label_Justification_Mode to jMode_Right

            //AB-StoreStart
            Set Password_State To True
            //AB-StoreEnd

        End_Object    // oPasswordForm

        Object oMapiGuaranteeFiFo is a CheckBox
            Set Label to "Guarantee FiFo"
            Set Size to 10 65
            Set Location to 38 5
            Set Status_Help to "Sort messages in date/time order"
        End_Object    // oMapiGuaranteeFiFo

        Object oMapiPeek is a CheckBox
            Set Label to "Do NOT mark the messages as read"
            Set Size to 10 131
            Set Location to 53 5
            Set Status_Help to "Do NOT mark the messages as read"
        End_Object    // oMapiPeek

        Object oMapiLongMsgId is a CheckBox
            Set Label to "Long MSG Id"
            Set Size to 10 59
            Set Location to 68 5
            Set Status_Help to "Use long message id (preferable)"
        End_Object    // oMapiLongMsgId

        Object oMapiUnreadOnly is a CheckBox
            Set Label to "Unread only"
            Set Size to 10 55
            Set Location to 82 5
            Set Status_Help to "Show only the unread messages"
        End_Object    // oMapiUnreadOnly

        Object oMapiEnvelopeOnly is a CheckBox
            Set Label to "Envelope only"
            Set Size to 10 61
            Set Location to 98 5
            Set Status_Help to "Read only the message header"
        End_Object    // oMapiEnvelopeOnly

        Object oMapiBodyAsFile is a CheckBox
            Set Label to "Body as file"
            Set Size to 10 53
            Set Location to 113 5
            Set Status_Help to "Store the message as file attachment"
        End_Object    // oMapiBodyAsFile

        Object oMapiSuppressAttach is a CheckBox
            Set Label to "Suppress attach"
            Set Size to 10 68
            Set Location to 128 5
            Set Status_Help to "During message scan do not extract the attachments"
        End_Object    // oMapiSuppressAttach


        //AB-StoreStart
        //****************************************************************************
        // Description
        //    This method will take the values of username and password and stores
        //    them in the properties used for logon.  Also, properties for MAPI
        //    sessions are set according to user selections.
        //
        // $Rev History
        //    05/24/99 VO Module header created
        //****************************************************************************
        Procedure DoAcceptParameters
           Integer bMapiGuaranteeFiFo bMapiPeek bMapiBodyAsFile bMapiSuppressAttach
           Integer bMapiLongMsgId bMapiUnreadOnly bMapiEnvelopeOnly hoMapiSession
           String sUserName sPassword
        
           Get Value Of oUsernameForm To sUserName
           Get Value Of oPasswordForm To sPassword
        
           Get Checked_State Of oMapiGuaranteeFiFo To bMapiGuaranteeFiFo
           Get Checked_State Of oMapiPeek To bMapiPeek
           Get Checked_State Of oMapiLongMsgId To bMapiLongMsgId
           Get Checked_State Of oMapiUnreadOnly To bMapiUnreadOnly
           Get Checked_State Of oMapiEnvelopeOnly To bMapiEnvelopeOnly
           Get Checked_State Of oMapiBodyAsFile To bMapiBodyAsFile
           Get Checked_State Of oMapiSuppressAttach To bMapiSuppressAttach
        
           Move oMapiSession To hoMapiSession
        
           Set psUserName Of hoMapiSession To sUserName
           Set psPassword Of hoMapiSession To sPassword
           Set pbGuaranteeFiFo Of hoMapiSession To bMapiGuaranteeFiFo
           Set pbPeek Of hoMapiSession To bMapiPeek
           Set pbLongMsgId Of hoMapiSession To bMapiLongMsgId
           Set pbUnreadOnly Of hoMapiSession To bMapiUnreadOnly
           Set pbEnvelopeOnly Of hoMapiSession To bMapiEnvelopeOnly
           Set pbBodyAsFile Of hoMapiSession To bMapiBodyAsFile
           Set pbSuppressAttach Of hoMapiSession To bMapiSuppressAttach
        End_Procedure // DoAcceptParameters
        
        //****************************************************************************
        // Description
        //    This method will get the username and password from the mapisession
        //    object and display the value in the forms. Also, checkbox items are
        //    displayed according to values of MAPI properties.
        //
        // $Rev History
        //    05/24/99 VO Module header created
        //****************************************************************************
        Procedure DoDisplayParameters
           Integer bMapiGuaranteeFiFo bMapiPeek bMapiBodyAsFile bMapiSuppressAttach
           Integer bMapiLongMsgId bMapiUnreadOnly bMapiEnvelopeOnly hoMapiSession
           String sUserName sPassword
        
           Move oMapiSession To hoMapiSession
        
           Get psUserName Of hoMapiSession To sUserName
           Get psPassword Of hoMapiSession To sPassword
        
           Get pbGuaranteeFiFo Of hoMapiSession To bMapiGuaranteeFiFo
           Get pbPeek Of hoMapiSession To bMapiPeek
           Get pbLongMsgId Of hoMapiSession To bMapiLongMsgId
           Get pbUnreadOnly Of hoMapiSession To bMapiUnreadOnly
           Get pbEnvelopeOnly Of hoMapiSession To bMapiEnvelopeOnly
           Get pbBodyAsFile Of hoMapiSession To bMapiBodyAsFile
           Get pbSuppressAttach Of hoMapiSession To bMapiSuppressAttach
        
           Set Value Of oUsernameForm To sUserName
           Set Value Of oPasswordForm To sPassword
        
           Set Checked_State Of oMapiGuaranteeFiFo To bMapiGuaranteeFiFo
           Set Checked_State Of oMapiPeek To bMapiPeek
           Set Checked_State Of oMapiLongMsgId To bMapiLongMsgId
           Set Checked_State Of oMapiUnreadOnly To bMapiUnreadOnly
           Set Checked_State Of oMapiEnvelopeOnly To bMapiEnvelopeOnly
           Set Checked_State Of oMapiBodyAsFile To bMapiBodyAsFile
           Set Checked_State Of oMapiSuppressAttach To bMapiSuppressAttach
        End_Procedure // DoDisplayParameters
        //AB-StoreEnd

    End_Object    // oContainer

    Object oOkButton is a Button
        Set Label to "Ok"
        Set Location to 158 87

        //AB-StoreStart
        //****************************************************************************
        // Description
        //   Accepts the parameters in the panel and closes the panel.
        //
        // $Rev History
        //    05/24/99 VO Module header created
        //****************************************************************************
        Procedure OnClick
           Send DoAcceptParameters To oContainer
           Send Close_Panel
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oOkButton

    Object oCancelButton is a Button
        Set Label to "Cancel"
        Set Location to 158 139

        //AB-StoreStart
        //****************************************************************************
        // Description
        //    Closes the current panel.
        //
        // $Rev History
        //    05/24/99 VO Module header created
        //****************************************************************************
        Procedure OnClick
           Send Close_Panel
        End_Procedure // OnClick
        //AB-StoreEnd

    End_Object    // oCancelButton


    //AB-StoreStart
    Set Locate_Mode To Center_On_Parent
    
    
    //****************************************************************************
    // Description
    //    This method can be used to open the parameters panel and stores the
    //    passed object-id to get and set the username/password from/to.
    //
    // $Rev History
    //    05/24/99 VO Module header created
    //****************************************************************************
    Procedure DoOpenParametersPanel
       Send DoDisplayParameters To oContainer
       Send Popup_Modal
    End_Procedure // DoOpenParametersPanel
    //AB-StoreEnd

End_Object    // oMapiParameters

//AB/ End_Object    // prj