A Microsoft Outlook sent mail box can get pretty full, so it's a good idea to be able to skip saving the transient messages that have no importance.
This VBA macro will give the option to save any outgoing message;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Option to save mail after sending '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) svar = MsgBox("Do you wish to save this message?", vbYesNo, "Save Message?") If svar = vbNo Then Item.DeleteAfterSubmit = True Else Item.DeleteAfterSubmit = False End If End Sub |