发送邮件后如何删除已发送文件夹里面的副本

ychunqi

RT
请大神赐教下：邮件发送后不希望已发送邮件里面有这个副本，如何设置，谢谢！

Dim OutLookApp As Object, Itm As Object
Set OutLookApp = CreateObject("Outlook.Application")
Set Itm = OutLookApp.CreateItem(0)
With Itm
    .Subject = "主题"
    .To = "收件人"
    .Body = "正文"
    .Send
End With
Set OutLookApp = Nothing
Set Itm = Nothing

ychunqi

求助，请大神看下能做到吗