Outlook 2007 VBA

[djurmann]

Greetings!

I received this code from Sue Mosher MVP back in the days of office 2002.

It sends and then deletes a message from the sent items folder but does not seem to work for 2007.

Why not and how can I change it?

The Code is:




Sub SendAndDelete
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

Many thanks,

Danny