vba - "Run-time error '287': Application-defined or object-defined error" while using CurrentItem.Saveas or CurrentItem.HTMLBody in Outlook 2016

Question

We have an Access database running under Office 2010.

We have to change to Office 365 and get

Run-time error '287': Application-defined or object-defined error

with:

Dim olAppSaida As Outlook.Application
Dim olItemSaida As Outlook.MailItem

Set olAppSaida = CreateObject("Outlook.application")

Set olItemSaida = olAppSaida.ActiveInspector.CurrentItem

If Not TypeName(olItemSaida) = "Nothing" Then
    olItemSaida.SaveAs "CTEstes" & strProcesso & ".Msg", olMSGUnicode
End If

The reference to Outlook XX.X library is checked. The error occurs in the line:

olItemSaida.SaveAs "CTEstes" & strProcesso & ".Msg", olMSGUnicode

Answer 1

Problem solved.

It was all about Security Policies for Outlook 2016.

Now the code runs like it ever did.

Thanks anyway.