1. Sub Main()
2. 
   
3.   Dim outobj, mailobj
4. 
   
5.   ' Determine the screen size
6.   nRow = FlexScreen.Rows
7.   nCol = FlexScreen.Columns   
8. 
   
9.   ' Create Outlook objects
10.   Set outobj = CreateObject("Outlook.Application")  
11.   Set mailobj = outobj.CreateItem(olMailItem)   
12. 
    
13.   ' Capture screen text line by line
14.   For i = 1 to nRow
15.     strText = strText & FlexScreen.GetText(FlexScreen.Position(i, 1), nCol)
16.     strText = strText & vbCRLF
17.   Next
18. 
    
19.   ' Populate the email
20.   With mailobj
21.     .Subject = "Flex Terminal Emulator Screen"
22.     .Body = strText
23.     .Display
24.   End With
25. 
    
26.   ' Clean up
27.   Set outobj = Nothing  
28.   Set mailobj = Nothing  
29. 
    
30. End Sub

How It Works

• The macro retrieves the number of rows and columns from the current host screen.
  
• It loops through each row, capturing the full width of text.
• The captured content is assembled into a single string with line breaks.
• A new Outlook email is created and populated with the screen data.
• The email is displayed so you can review, edit, and send it.
  

Notes

• The email body uses the default font configured in Outlook.
• If the screen formatting appears misaligned, change the font to a fixed-width (monospaced) font such as:
  • Courier New
  • Consolas
  
  You can do this by selecting all text in the email (press Ctrl+A) and choosing a different font.

Saving and Using the Macro

1. Copy the code into the Flex Terminal Emulator macro editor, or any text editor (such as Notepad).
2. Save the file with an .ams extension.
3. Place the file in the Macros subfolder of your Flex Terminal Emulator user directory.
4. Run the macro from within Flex Terminal Emulator.

This method provides a quick and efficient way to capture and share host screen data via email.