在VBA/Excel 2016中创建提交按钮时出现编译错误

我正在尝试使用带有以下代码的宏在Excel 2016中创建提交按钮

Sub Submitbutton14_Click()

Dim x As Outlook.Application
Dim y As Outlook.MailItem
Set x = CreateObject("Outlook.Application")
Set y = oLapp.CreateItem(0)
With y
.Subject = ""
.CC = ""
.To = "test@email.com"
.Body = ""
.Attachments.Add '(path to the attachment,either hard coded or
                    ' variable)
.Display
End With
Set x = Nothing
Set y = Nothing
'
End Sub

当我运行宏时，我看到一个

编译错误：参数非可选
，其中
子提交按钮14_Click（）
以黄色突出显示。你能告诉我哪里做错了吗？我是VBA的新手，在网上找到了这段代码，并修改了部分代码以满足我的需要

非常感谢
您需要添加附件路径


来源是必需的

另外，您可以使用新的outlook.application，而不是createobject。
添加文件路径时，您需要添加附件路径。我看到运行时错误424:Object Required
。使用调试选项以黄色突出显示
Set y=oLapp.CreateItem（0）
好的，谢谢。我会尝试一下，让你知道