我正在尝试使用Outlook API删除邮件项。像下面这样：
Dim objMail
For each objMail in objFolder.Items
objMail.Delete
Next
OutlookNameSpace.GetDefaultFolder(olDeletedItems)
你的代码的第一个问题是使用的循环不合适。如果你想删除（几乎任何VBA中的东西），你需要从最后一个元素到第一个元素循环你的集合。否则，你会改变集合的顺序-在你删除第一个元素之后，第二个元素被移动到第一位置并且不会被删除。
因此，这段代码应该删除你的DeltetedItems文件夹中的所有项目：
Sub Delete_all_from_dust_bin()
Dim myFolder As Outlook.Folder
Set myFolder = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderDeletedItems)
Dim i As Long
For i = myFolder.items.Count To 1 Step -1
myFolder.items(i).Delete
Next i
End Sub
MailItem.Delete Method的一些额外说明：
删除方法删除集合中的单个项。要删除文件夹中项目集合中的所有项目，必须从文件夹中的最后一个项目开始逐个删除每个项目。例如，在文件夹AllItems的项目集合中，如果文件夹中有n个项目，则从AllItems.Item(n)处开始删除项目，每次递减索引，直到删除AllItems.Item(1)为止。DeletedItems文件夹，则可以通过以下方式找到此文件夹：'with index reference
Application.GetNamespace("MAPI").Stores(2).getdefaultfolder(olFolderDeletedItems)
'with name reference
Application.GetNamespace("MAPI").Stores("Business Mail").getdefaultfolder(olFolderDeletedItems)
我不知道这是否适用于所有Outlook版本，但它可以在Outlook 2010上工作。
为了参考，这里是永久删除一个项目的最终方法。
附注：迁移ID是之前存储的GUID，是一种无懈可击的方式来跟踪该项目。
Dim mailIndex
For mailIndex = objFolder.Items.Count To 1 Step - 1
Dim migrationProperty
Set migrationProperty = GetMigrationProperty(objFolder.Items(mailIndex).ItemProperties
if not migrationProperty is nothing Then
objFolder.Items(mailIndex).Delete
Call DeleteMailPermanently(migrationProperty.Value)
End if
Next
Function DeleteMailPermanently(strMailMigrationID)
Dim objDeletedMail, objDeletedMigrationProperty
Set m_objPSTDeletedItemsFolder
= GetDeletedItemsFolder(PSTStore, strMailMigrationID)
For Each objDeletedMail in m_objPSTDeletedItemsFolder.Items
Set objDeletedMigrationProperty
= GetMigrationProperty(objDeletedmail.ItemProperties)
if not objDeletedMigrationProperty is nothing
and objDeletedMigrationProperty.Value = strMailMigrationID then
objDeletedMail.Delete
Next
End Function
Function GetDeletedItemsFolder(objParentFolder, strMigrationID)
Dim objFolder, objMail
For each objMail in objFolder.Items
Dim migrationProperty
Set migrationProperty = GetMigrationProperty(objMail.ItemProperties)
If migrationProperty.Value = strMigrationID
Set GetDeletedItemsFolder = objFolder
Exit Function
End If
Next
if objFolder.Folders.Count >= 1 Then
Dim subFolder
Set subFolder = GetDeletedItemsFolder(objFolder, strMigrationID)
If not subFolder is Nothing Then
Set GetDeletedItemsFolder = subFolder
Exit Function
End If
Set GetDeletedItemsFolder = Nothing
End function
EntryID属性以避免循环。接下来，在您删除它之后，您可以使用此方法Application.Session.GetItemFromID("...idhere...")找到该元素，并通过此方式找到其文件夹：Application.Session.GetItemFromID("...idhere...").parent。 - Kazimierz JaworStore.GetDefaultFolder 而不是 Namespace.GetDefaultFolder。Delete 方法允许永久删除消息或将其移动到已删除项目文件夹）。编辑：不好意思，这种方法不可行。愚蠢的 Outlook。我尝试使用Move方法，然后从“已删除项目”中删除，但结果它把它放到了草稿文件夹中。
看起来有效的方法是先删除一个项目，然后再删除“已删除项目”中的最后一个项目。
以下是我的一段代码片段：
Set ns = Application.GetNamespace("MAPI")
Set delItemsFolder = ns.GetDefaultFolder(olFolderDeletedItems)
Set calItems = syncFolder.Items
For i = calItems.Count To 1 Step -1
calItems(i).Delete
delItemsFolder.Items.Item(delItemsFolder.Items.Count).Delete
Next
EntryId属性来查找元素？如果是这样，您就不需要循环查找适当的文件夹。 - Kazimierz Jawor