Delete email after sending

[pcc]

  Sub sendmail()
'
    With CreateObject("CDO.message")
   
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Fred@hotmail.co.uk"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "FredPassword"
            .Update
        End With
        .To = "SomeoneElse@anotherdomain.co.uk"
        .From = "Fred@hotmail.co.uk"
        .Subject = "Test email"
        .TextBody = "Some text to go into the body of the email"
        .Send
    End With
End Sub

This code sends an email OK but I would like to know how (if it's possible) to automatically delete the email after sending.
Can anyone help.
I'm using Excel 2002 at the moment!
Thanks

 

[shg]

Does the mail item get saved as a garden-variety file to a garden-variety folder?

 

[pcc]

Does the mail item get saved as a garden-variety file to a garden-variety folder?

Not sure what you mean by this.. It's a regular internet email and by default a copy is saved to the 'Sent items' folder.

 

[shg]

I don't know anything about CDO. In Outlook, you would set DeleteAfterSubmit true for the MailItem.

 

[pcc]

Yes, I can do it in Outlook using DeleteAfterSubmit = True, but this is the first time I need to do it using internet mail - hence the question.
Thanks for your input anyway.
Regards