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

Question

我正在尝试使用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，因此我认为不应该发生此错误，如果有人能指出解决方案，我会非常感激。

Answer 1

发件箱文件夹中的邮件正在提交，无法触及 - 它们由假脱机程序拥有。

如果您想要处理外发邮件，请捕获Application.ItemSend事件并在那里修改邮件。