Hi,

I currently have the following code running

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If LCase(Left(Trim(Item.Subject), 11)) = "restricted" Then
'
' the subject line already shows restricted, so allow the
' email to be sent
'
Cancel = False
Else
'
' the subject line has not been marked as restricted, so
' ask the user how to handle
'
Dim prompt As String
prompt = "Your email has not been flagged as restricted" & vbCrLf & vbCrLf & _
"Subject line:" & vbCrLf & _
Item.Subject & vbCrLf & vbCrLf & _
"Click YES if you want to flag as restricted and send the email." & vbCrLf & _
"Click NO if you want to send the email now as not restricted." & vbCrLf & _
"Click CANCEL to cancel sending the email so you can continue editing."

Dim result As VbMsgBoxResult
result = MsgBox(prompt, vbYesNoCancel + vbQuestion, "Confirm send")
Select Case result
Case VbMsgBoxResult.vbYes:
'
' Add restricted to subject line and allow email to be sent
'
Item.Subject = "restricted " + Item.Subject
Cancel = False
Case VbMsgBoxResult.vbNo:
'
' Send message as not restricted
'
Cancel = False
Case VbMsgBoxResult.vbCancel:
'
' do not send the email
'
Cancel = True
End Select
End If
End Sub

However I know need to input some variances when send ing e-mails

I need the code to check for the word restricted as above but offer the following options

Send with RESTRICTED in the Subject line +original subject title
Send with RESTRICTED-PERSONAL in the subject Line+original subject title
Send with RESTRICTED-INVESTIGATION in the subject line+original subject title
Send without inserting restricted in subject line + original subject title
Cancel e-mail send and retrun to e-mail for editing

I am new to VBA and I would appreciate any help in this matter

Thanking you in advance

Buster