Think it's just a case of changing  objItem.Close olSave to  objItem.Delete in Public Sub draftemail() ?