附加文件的VBA代码-没有执行此操作的适当权限

我正在尝试使用Outlook将文件附加到发件箱文件夹中的所有邮件。我运行了以下代码：

Public Sub ABT()

Dim olNs As Outlook.NameSpace
Dim olOutbox As Outlook.MAPIFolder
Dim olItem As Object
Dim olEmail As Outlook.MailItem


Set olNs = GetNamespace("MAPI")
Set olOutbox = olNs.GetDefaultFolder(olFolderOutbox)


For Each olItem In olOutbox.Items
    If olItem.Class = olMail Then
        Set olEmail = olItem
        With olEmail
            .Attachments.Add "C:\Users\Augustin\Pictures\znakovi\blah.jpg"
            .Save
            .Send
        End With
    End If
Next
End Sub

但是当我运行代码时，它告诉我我没有执行此操作的适当权限

---

我是在管理员模式下启动Outlook的，因此我认为不应该发生此错误，如果有人能为我指出解决方案，我将非常感激。

发件箱文件夹中的邮件正在提交中，它们不能被触摸-它们归假脱机程序所有

---

如果要处理传出消息，请捕获

应用程序.ItemSend

事件并在那里修改消息。

验证是否可以手动执行此操作。如果没有，请在功能区上-操作>编辑消息。我不确定我是否了解您。我可以通过双击邮件，然后从功能区中选择“附加”，手动将附件添加到邮件中。但是，问题是我的发件箱中有100多封邮件，我不想手动执行此操作。我正在确认您的发件箱邮件可以编辑。假设出现错误的行是.Attachments.Add，请尝试一个不在c驱动器中的文件。在运行100封电子邮件之前，请在2封或3封电子邮件中尝试它。它可以处理单个邮件。。。如果有一封以上的邮件，它就不起作用。我试图从D:\附加一个文件，同样的问题也发生了。