(已解决)- 如何自动删除已发送邮件？

kangatang

各位高手大侠：
增加一些代码，将以下模块所发送的邮件在发送后自动删除。
代码怎么写？所有代码(包括欲新增加的代码)在EXCEL VBA中实现, 不要放在OUTLOOK中。
谢谢!

=======================
Sub Main()
SendMail ***@163.com, "hello", "hello world", "***@hotmail.com, "D:\test.txt""
End Sub

Private Sub SendMail(Email_Address$, Subject$, Body$, CC_email_add$, Attachment$)
    Dim objOL As Object
    Dim itmNewMail As Object     
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
    With itmNewMail
        .Subject = Subject
        .Body = Body
        .to = Email_Address
        .CC = CC_email_add
        .Attachments.Add Attachment
    End With
    On Error GoTo continue
SendEmail:
    itmNewMail.display
    Debug.Print " "
    DoEvents
    DoEvents
    DoEvents
    SendKeys "%s", Wait:=True
    DoEvents
    GoTo SendEmail
continue:
    Set objOL = Nothing
    Set itmNewMail = Nothing
End Sub

=================
自己做了个（谢谢dsd999版主的光临和支持，以下附件也不是100%可靠）
EXCEL VBA发送后删除已发送副本.rar (8.84 KB, 下载次数: 35)

2011-10-21 15:12 上传

点击文件名下载附件

改进版，100%可靠。采用".DeleteAfterSubmit = True"
EXCEL VBA发送后删除已发送副本.rar (7.56 KB, 下载次数: 96)

2012-2-24 12:48 上传

点击文件名下载附件

dsd999

你先试试把图里的设置l改了看行不行。

kangatang

我想让OUTLOOK的设置还是“保留已发送邮件副本”. 只有用代码发送邮件时，删除该已发送邮件的副本。

kangatang

自己做了一个，效果挺好的。
在原来的基础上增加了一点代码。IT DOES WORK!
附件见1楼

kangatang

后来才发现，只要加红色部分就可以了
With itmNewMail
        .Subject = Subject
        .Body = Body
        ...
        ...
       .DeleteAfterSubmit = True   
End With

taoshow

感谢大表哥分享，删除已发送邮件这事儿头疼好久了，才知道可以这么操作。