Welcome to OStack Knowledge Sharing Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
2.4k views
in Technique[技术] by (71.8m points)

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

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
See Question&Answers more detail:os

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Answer

0 votes
by (71.8m points)

Problem solved.

It was all about Security Policies for Outlook 2016.

Now the code runs like it ever did.

Thanks anyway.


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome to OStack Knowledge Sharing Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...