vba如何delete outlook email

在VBA中，可以使用Outlook对象模型来删除Outlook邮件。下面是一种删除邮件的基本方法：

1. 首先，确保已添加对Outlook对象库的引用。在VBA编辑器中，选择"工具" -> "引用"，然后勾选"Microsoft Outlook XX.X 对象库"（版本号可能有所不同），点击确定。

2. 创建一个Outlook应用程序对象并打开Outlook：

Dim outlookApp As Outlook.Application
Set outlookApp = New Outlook.Application

3. 获取要删除的邮件文件夹对象。例如，如果要删除收件箱中的邮件，可以使用以下代码：

Dim inboxFolder As Outlook.Folder
Set inboxFolder = outlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

4. 使用循环遍历邮件文件夹中的邮件，并删除满足条件的邮件。以下是一个示例，删除主题包含特定关键字的邮件：

Dim mailItem As Outlook.MailItem
Dim keyword As String
keyword = "关键字"

For Each mailItem In inboxFolder.Items
    If InStr(mailItem.Subject, keyword) > 0 Then
        mailItem.Delete
    End If
Next mailItem

在上面的示例中，我们使用了`InStr`函数来检查邮件主题是否包含关键字，如果包含则删除该邮件。

5. 最后，记得关闭Outlook应用程序：

outlookApp.Quit
Set outlookApp = Nothing