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

Question

我正在尝试使用带有以下代码的宏

在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

当我运行宏时，我看到Compile Error: Argument not Optional Sub Submitbutton14_Click()以黄色突出显示。你能告诉我做错了什么吗？我是VBA的新手，并且已经在网上找到了这个代码并修改了它的部分内容以满足我的需求吗？

非常感谢

Answer 1

您需要添加附件路径

https://msdn.microsoft.com/en-us/library/office/ff869553.aspx

需要来源。

此外，您可以使用新的outlook.application，而不是createobject。