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

[mariodcm]

Hello,
I have an Access Database running for quite a few years under "Office 2010" but now we have to change to Office 365 and I am getting this annoying error with the code below:

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 "C\TEstes\" & strProcesso & ".Msg", olMSGUnicode

End If

I Have the reference to Outlook XX.X library checked, but the error ocurrs in the line:
"olItemSaida.SaveAs "C\TEstes\" & strProcesso & ".Msg", olMSGUnicode"

Can anyone help me, please?

 

[muckshifter]

what does Mrs Google say?

 

[mariodcm]

what does Mrs Google say?

I made a similar research and can not find an answer...

If I test the mail subject I have the exact return.
If I just save the mail it works fine, but if I try the .saveas method it fails and returns the Error 287.

Thanks for your sugestion, though.

 

[mariodcm]

Problem solved.
It was all about Security Policies for Outlook 2016.
Now the code runs like it ever did.

 

[Ian]

Thanks for reporting back with the solution @mariodcm - glad you've got it working now .