Hi All
We are currently in the process of moving our Access database to a RD Web Access - RemoteApp and Desktop Connection, it all works as it should apart from using VBA to open Outlook (outside of the remote connection) and create an Email. anyone have any ideas how we can do this?
Unfortunately the security levels do not allow outlook to be opened within the remote access so trying to force it open outside of this remote window,
I currently get a run-time error of '429', ActiveX Component cant create object.
Code:
Dim oWo As Object 'Outlook.Application
Dim oDoc1 As Object 'Word.Document
'Set oWd = New Word.Application
Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItemFromTemplate(CurrentProject.Path & "\TemplateFiles\PasswordEmail.oft")
myitem.Subject = UCase("HR RECORDS - " & "[" & [Forms]![FRM_TBLALL_FullDetails].[Form]![LblHRRef])
myitem.To = UCase([Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_STAFFDetails]![SSFRM_TBLALL_INTERVDetails].[Form]![CmbStaffNo].Column(0))
myitem.display
myitem.body = "Hello" & Chr(13) & Chr(10) & "You will receive an encrypted report and all relevant files required." & Chr(13) & Chr(10) & _
"Your encryption password is:" & [Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_STAFFDetails]![SSFRM_TBLALL_INTERVDetails].[Form]![Password]
End Function