How to remove [External:] from subjects coming in - Office 365

MatsNorway_ECOSTOR
Copper Contributor
Sep 19, 2022
So i got the code edited and stored but i can not find the run script option in Run Wizard..
https://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/
- Diane_Poremsky_MVP
  MVP
  Sep 19, 2022
  The macros at technilee are not run a script rules - they are automatic when you reply or send/receive by the looks of it.
  
  You need to use Redemption to clean up the conversation view.
  
  This macro will remove the keyword from the conversation and subject - as written, it is run manually on the selection. It could be converted to a run a script rule.
  https://forums.slipstick.com/threads/99397-auto-remove-external-from-subject-issue-with-macro/post-360936
  - MatsNorway_ECOSTOR
    Copper Contributor
    Sep 20, 2022
    Thanks but i cant get them to work. When i hit F5 and run the code you provided seems fine. It just dont do anything for my inbox it seems. If i where to run redemption, what variant of redemption would i run? RedemptionLoader? Only one that seems free.
    
    Assuming first message to me gets cleaned up i would be happy from there. As all replys back to me would get cleaned up as well. If technicle`s code is possible to make work please help us do that. Old email does not matter, just anything coming in and out in the future.
    
    Edit: this code works, but you have to start it every time manually.
    https://superuser.com/questions/1104162/ms-outlook-how-to-alter-subject-line-strip-re-fw-and-add-prefix
    
    And it is very difficult to add anything to it.
- MatsNorway_ECOSTOR
  Copper Contributor
  Sep 19, 2022
  Having throuble activating running scripts. Edit: made it work by running it "on this computer" only then the script shows up as an alternative.
  https://www.extendoffice.com/documents/outlook/4640-outlook-rule-run-a-script-missing.html
  - MatsNorway_ECOSTOR
    Copper Contributor
    Sep 19, 2022
    The code i am trying to run as a script:
    
    Const CLASS_NAME = "SendAndReceive"
    
    Private WithEvents olkApp As Outlook.Application
    Private bolSend As Boolean, bolReceive As Boolean
    
    Private Sub Class_Initialize()
    bolSend = True
    bolReceive = True
    Set olkApp = Outlook.Application
    End Sub
    
    Private Sub Class_Terminate()
    Set olkApp = Nothing
    End Sub
    
    Private Sub olkApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If (Left(Item.Subject, 4) = "FW: ") Or (Left(Item.Subject, 4) = "RE:") Then
    Item.Subject = Mid(Item.Subject, 5)
    Item.Save
    Else
    If Left(Item.Subject, 5) = "Fwd: " Then
    Item.Subject = Mid(Item.Subject, 6)
    Item.Save
    End If
    End If
    End Sub
    
    Private Sub olkApp_NewMailEx(ByVal EntryIDCollection As String)
    Dim arrEID As Variant, varEID As Variant, olkItm As Object
    arrEID = Split(EntryIDCollection, ",")
    For Each varEID In arrEID
    Set olkItm = Outlook.Session.GetItemFromID(varEID)
    If olkItm.Class = olMail Then
    Select Case Left(olkItm.Subject, 4)
    Case "FW: ", "RE: ", "SV: "
    olkItm.Subject = Mid(olkItm.Subject, 5)
    olkItm.Save
    End Select
    End If
    Next
    Set olkItm = Nothing
    End Sub
    
    Public Sub ToggleSend()
    bolSend = Not bolSend
    MsgBox "The process of removing RE: and FW: on sent messages has been turned " & IIf(bolSend, "'On'", "'Off'"), vbInformation + vbOKOnly, CLASS_NAME
    End Sub
    
    Public Sub ToggleReceive()
    bolReceive = Not bolReceive
    MsgBox "The process of removing 'RE:', 'FW:', and 'Fwd:' on received messages has been turned " & IIf(bolReceive, "'On'", "'Off'"), vbInformation + vbOKOnly, CLASS_NAME
    End Sub

Forum Discussion

How to remove [External:] from subjects coming in - Office 365