Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Terminal Object / ConnectAction Property
Example
In This Topic
    ConnectAction Property (Terminal)
    In This Topic
    Gets or sets a sequence of action(s), such as running a macro, to run automatically after a connection is established.
    Syntax
    expression.ConnectAction As InputMapActionSequence
    where expression is a variable that represents a Terminal Object

    Property Value

    An InputMapActionSequence object
    Exceptions
    ExceptionDescription
    This exception is thrown if the set parameter is longer than the maximum allowed.
    This exception is thrown when you modify a property that was secured via the Permissions Manager or that can only be modified by an Administrator.
    Remarks
    Connect action sequences run after the terminal has successfully made a connection to the host. They should not include session setup information.
    Example
    Set up a session to run a connection macro named CopyData
    Public Sub CreateConnectMacro()
        Dim kbmapping As KeyboardMapping
        Dim sequence As InputMapActionSequence
        Dim action As InputMapAction
        Set kbmapping = New KeyboardMapping
        Set sequence = New InputMapActionSequence
        Set action = New InputMapAction
                            
        'Set up the action to run a recorded macro named CopyData
        action.ActionId = InputMapActionID_RunMacroAction
        action.AddParameter "ThisTerminal.CopyData"
        
        'Look for the macro in this Session project
        action.AddParameterAsInteger MacroEnumerationOption.MacroEnumerationOption_Document
        
        'Don't ask for any input at runtime
        action.AddParameterAsBoolean False
        
        'Add the action to the action sequence
        sequence.Add action
        
        'Assign the Ctrl+B key combination to the new action
        Set ThisTerminal.ConnectAction = sequence
     
        ThisTerminal.RunMacroAtReconnect = True
    End Sub
    See Also