Here is the macro which will delete the 'Single Quotes' from replied back to emails, listed in the sent items folder, also this macro will delete 'single quotes' received in the email inbox as well, so the sent items box will not display sent to names in 'Single Quotes' anymore
Here is the macro tested on office/outlook 2007 which needs to be pasted into the thisoutlooksession folder and not a module etc, may also work for other versions of office/outlook as well once code is properly installed on the computer in the thisoutlooksession folder etc
'Declarations:
Private WithEvents SentItems As Outlook.Items
Private WithEvents Inbox As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Set olApp = Outlook.Application
Set Inbox = GetNS(olApp).GetDefaultFolder(olFolderInbox).Items
Set SentItems = GetNS(olApp).GetDefaultFolder(olFolderSentMail).Items
End Sub
Function GetNS(ByRef app As Outlook.Application) As Outlook.NameSpace
Set GetNS = app.GetNamespace("MAPI")
End Function
Private Sub Inbox_ItemAdd(ByVal item As Object)
Dim ns As Outlook.NameSpace
Dim folder As MAPIFolder
Dim Itm As MailItem
Set ns = Session.Application.GetNamespace("MAPI")
Set folder = ns.GetDefaultFolder(olFolderInbox)
For Each Itm In folder.Items
If InStr(1, Itm.To, "'", vbTextCompare) > 0 Then
Itm.To = Replace(Itm.To, "'", "")
Itm.Save
End If
Next
End Sub
Private Sub SentItems_ItemAdd(ByVal item As Object)
Dim ns As Outlook.NameSpace
Dim folder As MAPIFolder
Dim Itm As MailItem
Set ns = Session.Application.GetNamespace("MAPI")
Set folder = ns.GetDefaultFolder(olFolderSentMail)
For Each Itm In folder.Items
If InStr(1, Itm.To, "'", vbTextCompare) > 0 Then
Itm.To = Replace(Itm.To, "'", "")
Itm.Save
End If
Next
End Sub