Thread: Change Case of recipients name when sending email

Hi marcusjb,

I don't find a Proper Case function in Outlook but do find a routine that may help at
http://www.utteraccess.com/forum/Con....html&p=781258

Assuming that when an email is created it remains displayed in a window, try...

Option Explicit

Sub test()

    Dim objOutlook As Outlook.Application
    Dim objInspector As Outlook.Inspector
    Dim objMailItem As Outlook.MailItem
    Dim i As Integer
    Dim v As Variant
    Dim x As Variant
    Dim y As String
    Dim strRecipients As String
    
    Set objOutlook = GetObject(, "Outlook.Application")
    
    For Each objInspector In Outlook.Inspectors
        Set objMailItem = objInspector.CurrentItem
        With objMailItem
            If .To <> "" Then
                v = Split(.To & ";", ";")
                For i = LBound(v) To UBound(v)
                    If v(i) <> "" Then
                        If InStr(1, v(i), "(") > 0 Then
                            x = Split(v(i), "(")
                            y = WorksheetFunction.Proper(LTrim(x(0))) & "(" & x(1)
                            strRecipients = strRecipients & y & "; "
                        Else
                            strRecipients = strRecipients & LTrim(v(i)) & "; "
                        End If
                    End If
                Next i
                .To = strRecipients
                strRecipients = ""
            End If
        End With
    Next objInspector
    
End Sub

It should deal with one or more recipients, and in varying formats, such as the following...

JOHN SMITH (johnsmith@xyz.com) =====> John Smith (johnsmith@xyz.com)

JOHN SMITH (johnsmith@xyz.com); jane doe; joe@abc.com; JOE BLACK (joeblack@xyz.com) =====> John Smith (johnsmith@xyz.com); jane doe; joe@abc.com; Joe Black (joeblack@xyz.com)