Всякий раз, когда я запускаю приведенный ниже код vba, он говорит о недопустимом использовании нового ключевого слова

Question

Используя этот код, я пытаюсь отправить Excel как вложение через Outlook

   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

Answer 1

Вы не можете создать MailItem через New. Он должен быть создан с использованием CreateItem объекта приложения Outlook.

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

Answer 2

Насколько я узнал из исследования, доступ Programmati c к отправке электронных писем представляет собой угрозу безопасности, поэтому он не разрешен через VBA.