Access Runtime 2016 with Office Click-to-Run

[Ron Paii]

I ran into a number of issues, attempting to install Access Runtime 2016 32bit on a new computer with Office 2016 32bit. Microsoft now installs a 64bit version of it's click-to-Run, which will stop you from installing any 32 bit Office programs, like runtime.

The fix is to un-install "Office 16 Click-To-Run Extensibility Component 64-bit Registration".

1) Press Win + R to run "installer"
2) Add the column "Subject" and sort by it
3) Right click on the above component and select un-install

Most likely you will not be able to install Runtime 2016 because it "Don't get along" (Part of the Microsoft error message):( so you will have to install 2010 or 2013

Runtime 2010 and 2013 have a problem with SendObject. They will create the email but Access lockup on return.

I created a simple function that will handle creating the email. It can be extended to add attachments.


Public Enum modBodyFormat
olFormatUnspecified = 0
olFormatPlain = 1
olFormatHTML = 2
olFormatRichText = 3
End Enum

'--------------------
' Open Outlook with given address
'
Public Function pai1_emailNew(ByVal strSendTo As String, _
ByVal strBody As String, _
ByVal strSubject As String, _
OByVal intHtmlBody As modBodyFormat= PAIBodyFormat.olFormatUnspecified) As Boolean
On Error GoTo errpai1_emailNew
Dim oLook As Object
Dim oMail As Object

Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.CreateItem(0)

oMail.To = strSendTo

' Use intHtmlBody to call out email format otherwise use user's default
If intHtmlBody = modBodyFormat.olFormatHTML Then
oMail.BodyFormat = intHtmlBody
oMail.HTMLBody = strBody
Else
oMail.Body = strBody
End If

oMail.Subject = strSubject

oMail.Display

pai1_emailNew = True

donepai1_emailNew:
On Error Resume Next
Set oMail = Nothing
Set oLook = Nothing
Exit Function

errpai1_emailNew:
debug.print Err.Number & ", " & Err.Description
pai1_emailNew = False
Resume donepai1_emailNew

End Function