Using Enviroment Variables

Public Sub SPOOLER_EmailBatch()

Dim osCurrentScreen As Screen

Dim osCurrentTerminal As Terminal

Dim returnValue As Integer

Dim strVar As String

strVar = Environ("USERNAME")

Set osCurrentTerminal = ThisFrame.SelectedView.control

Set osCurrentScreen = osCurrentTerminal.Screen

osCurrentScreen.SendKeys "E"

osCurrentScreen.SendControlKey ControlKeyCode_Enter

Call osCurrentScreen.SendKeys(strVar)

End Sub