Sub RemoveExternalString()
Dim myolApp As Outlook.Application
Dim Item As Object
Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder
' Remove from left or right
Dim iItemsUpdated As Integer
Dim lString As Integer
iItemsUpdated = 0
For Each Item In mail.Items
strSubject = Item.Subject
If InStr(1, strSubject, "[External]") Then
Item.Subject = Replace(strSubject, "[External] ", "")
Item.Save
End If
Next Item
MsgBox iItemsUpdated & " of " & mail.Items.Count & " Messages Updated"
Set myolApp = Nothing
End Sub