如何在SENT文件夾Outlook 2010 Exchange中刪除自動轉發的電子郵件

Question

Outlook VBA的新手海報。 中級Excel VBA編碼器。

我有一個VBA例程，可以將所有傳入的電子郵件自動轉發到Gmail帳戶。 它不是我的全部代碼（從博客文章中修改），但是可以工作。 我需要保留所有帳戶中收到的所有電子郵件的副本，以便將它們合並為一個主要帳戶。 在Outlook 2010 Exchange帳戶中，所有轉發的郵件都會作為副本保存在SENT文件夾中。

是否可以刪除SENT文件夾中的自動轉發副本，而不刪除所有SENT電子郵件？ 我需要保留我實際回復的電子郵件。

使用INBOX中的對話模式來存儲回復的電子郵件，我不會有問題。 但目前看來，當我切換“收件箱”的“對話”模式時，由於SENT文件夾中的密件抄送副本，所有內容都會重復。

在此先感謝您的協助。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
        Dim objRecip As Recipient
        Dim strMsg As String
        Dim res As Integer
        Dim strBcc As String
        On Error Resume Next

        ' #### USER OPTIONS ####
        ' address for Bcc -- must be SMTP address or resolvable
        ' to a name in the address book
        strBcc = "bcc.hwb@gmail.com"

        Set objRecip = Item.Recipients.Add(strBcc)
        objRecip.Type = olBCC
        If Not objRecip.Resolve Then
            strMsg = "Could not resolve the Bcc recipient. " & _
                     "Do you want still to send the message?"
            res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                    "Could Not Resolve Bcc Recipient")
            If res = vbNo Then
                Cancel = True
            End If
        End If

        Set objRecip = Nothing
    End Sub

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim varEntryIDs
    Dim objItem
    Dim myItem As MailItem
    Dim i As Integer
    varEntryIDs = Split(EntryIDCollection, ",")
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        'MsgBox (varEntryIDs(i))

        Set myItem = objItem.Forward
        myItem.Recipients.Add "bcc.hwb@gmail.com"
        myItem.Send

        'myItem.Delete

        Set myItem = Nothing
    Next
End Sub

Answer 1

請參閱MailItem.DeleteAfterSubmit屬性（Outlook）

myItem.DeleteAfterSubmit = True