| | Awarded by
Microsoft: |  |
| | VBOffice Info | | Visitors | 537778 | | Impressions | 2242542 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 26.09.2006 | Accessed: 10513 | | | | Description
This sample shows how to delete an e-mail as soon as you click the Reply button. Outlook creates the reply (and, depending on your settings, with the original text in it) and moves the original into the folder for deleted items. |
Option Explicit
Private WithEvents ReplyButton As Office.CommandBarButton
Private WithEvents m_Inspectors As Outlook.Inspectors
Private m_Mail As Outlook.MailItem
Private Sub Application_Startup()
Set ReplyButton = Application.ActiveExplorer.CommandBars.FindControl(, 354)
Set m_Inspectors = Application.Inspectors
End Sub
Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
On Error Resume Next
If Not m_Mail Is Nothing Then
m_Mail.Delete
Set m_Mail = Nothing
End If
End Sub
Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
CancelDefault As Boolean _
)
On Error Resume Next
If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set m_Mail = Application.ActiveExplorer.Selection(1)
Else
Set m_Mail = Application.ActiveInspector.CurrentItem
End If
End Sub
|
| | |
| | |  | With Category Manager you get all of your categories in a side-bar, a reminder service, synchronized with a central category list and much ... [more] |
| | |  | VBOffice Reporter calculates the sum of values from tasks, appointments, and journal entries with just a few clicks. These reports may be filtered, grouped, and exported into an Excel ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
