Robotic Process Automation - Application Development

.HTMLbody = "Hello" & "<br>" & "Please find attached the above invoices and backup" & "<br>"

Sub Document_Open() If ThisDocument.ReadOnly = True then Exit Sub msgbox "Welcome " & Environ$("Username") & ". Click OK to begin." Userform1.show End sub

Public RowValueLong As Long Public Total_Acct As Long Public PTH As String Sub FDR_INFO()     Dim oSys  As Object     Dim oSess As Object     Dim oScreen As Object          PTH = Trim(Sheets("FILE PATH").Range("B5").Value)          Set oSys = GetObject(PTH)                     If oSys Is Nothing Then         MsgBox ("There is no FDR attachment system in the specified location")         Exit Sub     End If          'GET ACCESS TO THE CURRENTLY ACTIVE SESSION...          ...

Sub DelayMs(MS As Long)     Debug.Print TimeValue(Now)     Application.Wait (Now + (MS * 0.00000001))     Debug.Print TimeValue(Now) End Sub

Attachmate Keyboard Maps Attachmate PC/AT Map      3270 Key    PC Key(s) PF1 Alt - 1 PF2 Alt - 2 PF3 Alt - 3 PF4 Alt - 4 PF5 Alt - 5 PF6 Alt - 6 PF7 Alt - 7 PF8 Alt - 8 PF9 Alt - 9 PF10 Alt - 0 PF11    Alt-- PF12    Alt-= PF13 Alt - Q PF14 Alt - W PF15 Alt - E PF16 Alt - r PF17 Alt - T PF18 Alt - y PF19 Alt - U PF20 Alt - I PF21 Alt - o PF22 Alt - P PF23    Alt-[ PF24    Alt-] PA1 Alt - F3 PA2 Alt - F4 PA3 Alt - F6 Dup F3 Field Mark  F4 Tab ?| Backtab Shift ?| Attn F1 Home Home(keypad) Test Alt - F10 Reset Esc Enter Enter Indent Alt - F9 CLEAR F2 SysReq Alt - F1 Newline End (Keypad) Key Click...