StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
 
Samples
General
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Visitors1805149
Impressions6760929
Links
Imprint
Privacy Policy
Contact
E-Mail: Display options before sending
Author: Michael BauerHomepage
Date: 19.01.2006Accessed: 23900
  
Description

We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory.

' <DieseOutlookSitzung>
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
' </DieseOutlookSitzung>

 
 

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]