vba从已发送文件夹中删除电子邮件

我想在使用规则转发电子邮件后从“已发送邮件”文件夹中删除电子邮件

我试着使用另一篇文章中的“brettdj”代码：但它对我根本不起作用

我要找的是一个vba宏，它可以在使用规则运行脚本时删除电子邮件

你知道我怎样才能做到吗

---

提前感谢

您的联系人文件夹（通讯簿）中没有相应的条目。

Recipients

类的方法接受收件人的名称；它可以是表示收件人的显示名称、别名或完整SMTP电子邮件地址的字符串

Sub forwardEmail(itm As Outlook.MailItem)
   Dim oExplorer As Outlook.Explorer
   Dim oMail As Outlook.MailItem
   Dim oOldMail As Outlook.MailItem
   Set oExplorer = Application.ActiveExplorer
   If oExplorer.Selection.Item(1).Class = olMail Then
     Set oOldMail = oExplorer.Selection.Item(1)
     Set oMail = oOldMail.Forward
     oMail.Recipients.Add "test@gmail.com"
     oMail.Recipients.Item(1).Resolve
     If oMail.Recipients.Item(1).Resolved Then
       'delete forwarded email from sent items
        oMail.DeleteAfterSubmit = True

        oMail.Send
        'delete original email from inbox
        'oOldMail.Delete
     Else
         MsgBox "Could not resolve " & oMail.Recipients.Item(1).Name
     End If
   Else
     MsgBox "Not a mail item"
   End If
 End Sub

---

您的联系人文件夹（通讯簿）中没有相应的条目。

Recipients

类的方法接受收件人的名称；它可以是表示收件人的显示名称、别名或完整SMTP电子邮件地址的字符串

Sub forwardEmail(itm As Outlook.MailItem)
   Dim oExplorer As Outlook.Explorer
   Dim oMail As Outlook.MailItem
   Dim oOldMail As Outlook.MailItem
   Set oExplorer = Application.ActiveExplorer
   If oExplorer.Selection.Item(1).Class = olMail Then
     Set oOldMail = oExplorer.Selection.Item(1)
     Set oMail = oOldMail.Forward
     oMail.Recipients.Add "test@gmail.com"
     oMail.Recipients.Item(1).Resolve
     If oMail.Recipients.Item(1).Resolved Then
       'delete forwarded email from sent items
        oMail.DeleteAfterSubmit = True

        oMail.Send
        'delete original email from inbox
        'oOldMail.Delete
     Else
         MsgBox "Could not resolve " & oMail.Recipients.Item(1).Name
     End If
   Else
     MsgBox "Not a mail item"
   End If
 End Sub

---

感谢更新，我有55个收件人，这将是一个挑战，我认为宏在默认情况下对任何转发的电子邮件都会这样做，没有收件人的任何选项都会更好。我尝试了，但它不起作用，我在报价中添加了一封电子邮件，但转发电子邮件后，它没有从发送文件夹中删除电子邮件。感谢更新，我有55个收件人，这将是一个挑战，我认为宏在默认情况下对任何转发的电子邮件都会这样做，没有收件人的任何选项都会更好。我尝试过，但它不起作用，我在报价中添加了一封电子邮件，但在转发电子邮件后，它没有从“发送”文件夹中删除该电子邮件。所有帐户都在同一Outlook下吗？是的，所有帐户都来自同一Outlook会话。您已使问题的答案无效，如果答案正确，则可能不会接受。人们不会喜欢这种行为。回滚此问题并提出新问题。所有帐户都在同一Outlook下吗？是的，所有帐户都从同一Outlook会话中提取。您已使问题的答案无效，如果答案正确，则可能不会接受。人们不会喜欢这种行为。回滚此问题并提出新问题。