RE: How can I add [SEC=UNCLASSIFIED] to the subject line of all ne

Tech-Archive recommends: Speed Up your PC by fixing your registry

Thanks Eric - I've treid using the code but am used to an older version of
VBA (in Excel) and am confused as to how to use it. Is it also possible to
drop the words sec=unclassified into replies?

Ron

"Eric Legault [MVP - Outlook]" wrote:

Create a class and use it as described below; will work with earlier versions
of Outlook as well.

'Class name = clsMailItemTrapper

'**********************************************************
'USAGE:
'Use this class in ThisOutlookSession as follows:

'Option Explicit
'Dim myMailItemTrapper As clsMailItemTrapper

'Private Sub Application_Startup()
' Set myMailItemTrapper = New clsMailItemTrapper
'End Sub
'**********************************************************
Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objOpenInspector As Outlook.Inspector
Dim WithEvents objMailItem As Outlook.MailItem

Private Sub Class_Initialize()
Set objInspectors = Application.Inspectors
End Sub

Private Sub Class_Terminate()
Set objOpenInspector = Nothing
Set objInspectors = Nothing
Set objMailItem = Nothing
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olmail Then
'Only look for new messages
Set objMailItem = Inspector.CurrentItem
If objMailItem.Sent = False Then
Set objOpenInspector = Inspector
Else
Set objMailItem = Nothing
End If
End If
End Sub

Private Sub objMailItem_Open(Cancel As Boolean)
objMailItem.Subject = "[SEC=UNCLASSIFIED]"
End Sub


--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Ron McLay" wrote:

I am required to add [SEC=UNCLASSIFIED] to the subject line of all new emails
in Outlook 2007 - how can I do this automatically\programmatically?
--
Ron McLay

.

Relevant Pages

  • RE: How can I add [SEC=UNCLASSIFIED] to the subject line of all ne
    ... Anyway, to get this to work for you, create a new Class in your Outlook VBA ... 'Private Sub Application_Startup ... Dim WithEvents objOpenInspector As Outlook.Inspector ... Set objMailItem = Inspector.CurrentItem ...
    (microsoft.public.outlook.program_vba)
  • RE: How can I add [SEC=UNCLASSIFIED] to the subject line of all ne
    ... Anyway, to get this to work for you, create a new Class in your Outlook VBA ... 'Private Sub Application_Startup ... Set objMailItem = Inspector.CurrentItem ...
    (microsoft.public.outlook.program_vba)
  • RE: Automatically saving e-mail to a folder
    ... Paste the code below into that and restart Outlook. ... Dim WithEvents objInspectors As Outlook.Inspectors ... Private Sub Application_Startup ...
    (microsoft.public.outlook.program_vba)
  • Re: New form freezes on CommandBarButton.Click
    ... [MVP - Outlook] ... Dim WithEvents _commandButton As CommandBarButton ... Private Sub OnNewInspectorHandles _inspectors.NewInspector ...
    (microsoft.public.office.developer.com.add_ins)
  • Re: Reply/Reply All
    ... If you are looking at your Outlook Inbox. ... Private Sub ThisApplication_Startup(ByVal sender As Object, ... Dim mailItem As Outlook.MailItem = TryCast(selectedItems, ... Private Sub mailItem_ReplyAll(ByVal Response As Object, ByRef Cancel As ...
    (microsoft.public.outlook.program_vba)