Vba 如何创建邮件项目？

我正在尝试通过Outlook将活动Excel工作簿作为附件发送

每当我运行代码时，它都会显示

新关键字的无效使用

在New Outlook.MailItem`

Sub SendOutlook()
    'Declaring Variables
    Dim OutlookApp  As Outlook.Application
    Dim OutlookEmail  As Outlook.MailItem

    'Assigning variables to create outlook application and mailitem
    Set OutlookApp = New Outlook.Application
    Set OutlookEmail = New Outlook.MailItem
    
    With OutlookEmail
        'Format of the mail
        .BodyFormat = olFormatPlain
        'Body of the mail
        .Body = "Dear Someone" & vbNewLine & "How are you?"
        'To whom you want to send mail
        .To = "Someone@somewhere.com"
        'Subject of mail
        .Subject = "Write Subject Here"
        'TO add an attachment
        .Attachments.Add ActiveWorkbook.FullName
        'sends the mail
        .Send
    End With
    
End Sub

---

据我从研究中了解到的情况是，发送电子邮件的编程访问存在安全风险，因此不允许通过VBA进行访问

您不能通过

新建
创建
邮件项目。它必须使用Outlook应用程序对象的
CreateItem
创建

   Set OutlookApp = New Outlook.Application
   Set OutlookEmail = OutlookApp.CreateItem(olMailItem)

“New.Outlook.MailItem”附近出现错误。您应该使用
Set-OutlookEmail=OutlookApp.MailItem
。将其设置为Set-OutlookEmail=OutlookApp.MailItem后，会显示用户定义的类型未定义@shrivallabha.redijIt表示您尚未为代码中使用的对象设置库引用。请检查
Tools>>引用
，查看您以前是否设置了相关引用，如
outlook对象库
：我不知道。。。我以前在word和excel中创建过应用程序，这些应用程序在用户看不到outlook的情况下发送“自动电子邮件”（例如，如果出现错误或提交了某些内容等）。@Samuel Everson那么，您能否共享outlook的代码以及添加的工具引用？那将是非常重要的help@SiddhantSingh-这里有大量的帖子（有答案），涵盖了你想做的事情。我不再有代码（为前雇主编写）。但是，蒂姆说了什么。