Private WithEvents myInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set myInspectors = Application.Inspectors
End Sub
Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
Dim s As String
If TypeName(Inspector.CurrentItem) = "MailItem" Then
If Left$(Inspector.CurrentItem.Subject, 3) = "RE:" Then
s = "Re" & Mid$(Inspector.CurrentItem.Subject, 3)
Inspector.CurrentItem.Subject = s
End If
End If
End Sub