Home/ Questions/Q 7533763
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-30T05:49:16+00:00

I apply a default string to the beginning of the Subject field with all

  • 0

I apply a default string to the beginning of the Subject field with all new emails.

I have two Outlook user accounts/PST files – personal & business. I want the Subject string added to emails only when I’m working in the business account.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Send with 'Myrtleford Festival" at start of subject?", vbYesNo, "Send as Festival mail") = vbYes Then
    If (Left(Trim(Item.Subject), 11)) <> "The " Then
        Item.Subject = "The Myrtleford Festival 2012/ " + Item.Subject
    End If
End If
End Sub
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    OK, cool. In fact I stumbled on a totally foolproof & elegant solution. In Outlook’s Trust Centre>Macro Security, I selected the option for “warn for all macros”. Now when I open Outlook to any of my profiles, I get a pop-up asking if I want to enable/disable macros. Since the VBA script is the only macro running, I can easily filter whether the default subject string is used. Which will work 100% of the time forever (since I can’t see any reason why I’ll ever be using another macro/VBA script)

    • 0