| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Visitors | 1408908 | | Impressions | 5188555 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 19.01.2006 | Accessed: 19692 | | | | Description
We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory. |
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem Then
ShowOptionDialog Item
End If
End Sub
Private Sub ShowOptionDialog(oMail As Outlook.MailItem)
Dim oBars As Office.CommandBars
Dim oBtn As Office.CommandBarButton
Set oBars = oMail.GetInspector.CommandBars
Set oBtn = oBars.FindControl(, 5598)
oBtn.Execute
End Sub
|
| | |
| | |  | ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more] |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
