The following code does not work on a 64bit v.2019. Does generate an email but remains in "Outbox". Also, Access application closes completely.
Code:
Private Sub cmdSendMgrEmail_Click()
On Error GoTo Err_cmdSendMgrEmail_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SendObject _
, _
, _
, _
strEmpEmail, _
, _
, _
"Requisition Order Approval Request", _
"Requisition No. " + CStr(Forms![Orders - Managers]!OrderID) + " requires your approval. Click the link below to access the Approval Screen" & vbCrLf & "\\10.10.10.205\inventory\pfcinventory1.mdb", _
False
DoCmd.GoToRecord , , acNewRec
DoCmd.Close acForm, "frmEmailMgr", acSaveNo
Exit_cmdSendMgrEmail_Click:
Exit Sub
Err_cmdSendMgrEmail_Click:
MsgBox Err.Description
Resume Exit_cmdSendMgrEmail_Click
End Sub