Auto Remove [EXTERNAL] from subject - Issue with Macro

[holleymc]

If the case for external never changes, this will work - use the correct case for External.

For Each Item In mail.Items
strSubject = Item.Subject
If InStr(1, strSubject, "[External]") Then
Item.Subject = Replace(strSubject, "[External] ", "")
Item.Save
End If

I'll need to think on the best was to remove any case without affecting the rest of the subject.

Thanks! I'll try this.

 

[holleymc]

Thanks! I'll try this.

I may have added it to the macro incorrectly, but after editing, it did not remove EXTERNAL. This is the code I used..

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