Deleting emails AFTER sending

[Nigel RS]

I am using the following to email workbooks, which works great. I recently
added DeleteAfterSubmit = True; this works to remove the emails from the SENT
items folder and places them into the DELETED items folder. Is there a way to
delete them completely?

Sub MailWorkbook()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "(e-mail address removed)"
.Subject = "New Report"
.Body = "New report attached to this email"
.Attachments.Add ActiveWorkbook.FullName
.DeleteAfterSubmit = True
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Tim]

could you set up a rule in outlook to delete them completely?

 

[Nigel RS]

Tim
Nice piece of lateral thinking. Yes I can - answer!