在Windows 10

Question

我在Windows 10上使用Office 2016.使用DoCmd.SendObject从Access发送电子邮件的命令按钮不再有效。 StackOverflow的一个解决方案是：

Sub sendOutlookEmail()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")

Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Body of the email"
oMail.Subject = "Test Subject"
oMail.To = "Someone@somewhere.com"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing

问题是，当我输入＆＃34; oApp As＆＃34;以下内容：＆＃34; Outlook.Application＆＃34;不在对象列表上;也不是＆＃34; MailItem＆＃34;或＆＃34; CreateObject＆＃34;或＆＃34; CreateItem＆＃34;。为什么缺少这些物体？如何将它们添加到列表中？我应该做些什么？先感谢您。

Kevin Minkoff