VBOffice
Home Products VBA Macros Tips & Tricks Contact Imprint Sprache wechseln Deutsch

Assign Email Categories Before Sending

Check message properties before sending. This sample prompts you if you try to send an email without an assigned category.

Last modified: 2007/04/24 | Accessed: 83.406  | #53
◀ Previous sample Next sample ▶
SAM SAM
Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.

This macro is less about the receiver getting your message with an assigned category but more about you quickly finding the sent message in your own folder by using keywords. The script prompts you if a category is missing. You can then cancel the sending.


tip  How to add macros to Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  On Error Resume Next
  Dim Msg$

  If Len(Item.Categories) = 0 Then
    Msg = "Do you want to add a category?"
    If MsgBox(Msg, vbYesNo Or vbQuestion) = vbYes Then
      Cancel = True
    End If
  End If
End Sub
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
email  Send a message
◀ Previous sample ▲ Top Next sample ▶

All names, products and pictures are under the copyright of the respective producers.

Microsoft and the Office logo are trademarks or registered trademarks

of Microsoft Corporation in the United States and/or other countries.