Attribute VB_Name = "modSendWithoutSave"
'Outlook productivity tools from Klemens Schmid (klemens.schmid@gmx.de)
'For more visit www.schmidks.de

'Sends a mail without saving it into the Sent Items folder.
'Helps to keep your mailbox smaller.

'Installation:
'Import the module to your Outlook VBA project.
'Invoke the macro "Addbutton" once to add the button to the toolbar.

'Known issues:
'After restarting Outlook the button is no longer at the desired location
'  This can be avoided by invoking "AddButton" every time when Outlook starts
'  This requires an Outlook extension - unfortunately

Option Explicit

Public Sub SendWithoutSave()
'perform the send
Dim oInsp As Outlook.Inspector
Dim oMail As Outlook.MailItem
Dim oCntr As Object
Dim bNoMailItem As Boolean

'make sure the function is invoked from a mail item
If TypeName(Application.ActiveWindow) = "Inspector" Then
   'There is an inspector!
   Set oInsp = Application.ActiveInspector
   'Is it really a mail item?
   If TypeName(oInsp.CurrentItem) <> "MailItem" Then
      bNoMailItem = True
   End If
Else
   bNoMailItem = True
End If
If bNoMailItem Then
   MsgBox "This function must be invoked from within a mail item"
   Exit Sub
End If
Set oMail = oInsp.CurrentItem
'prevent from save
oMail.DeleteAfterSubmit = True
'Send it
oMail.Send
End Sub

Public Sub AddButton()
'Add the command bar button "Send/Delete" to the inspector's toolbar
Dim oInsp As Inspector
Dim bDontClose As Boolean
Dim cbb As CommandBarButton
Dim cbbSend2 As CommandBarButton
Dim cbStandard As CommandBar

'open the appropriate inspector
Set oInsp = Application.CreateItem(olMailItem).GetInspector
On Error Resume Next
'check whether button exists
Set cbStandard = oInsp.CommandBars("Standard")
Set cbb = cbStandard.FindControl(, , "SendWithoutSave")
If Not cbb Is Nothing Then
   'already exists -> nothing to do
   Exit Sub
End If
'doesn't exist -> put it after the "Send" item (ID=2617)
Set cbb = cbStandard.FindControl(ID:=2617)
Set cbbSend2 = cbStandard.Controls.Add(msoControlButton, before:=cbb.Index + 1)
cbbSend2.TooltipText = "Send this mail without saving it into the Sent Items folder"
cbbSend2.Caption = "Send/Delete"
cbbSend2.Tag = "SendWithoutSave"
'assign the proc to be called
cbbSend2.OnAction = "SendWithoutSave"
'needed to commit our actions ...
oInsp.Close olDiscard
End Sub