Amend email recipients in code

[Schoscho17]

I have the following Code that opens a UserForm that has 6 buttons that puts a certain project email list in the .cc line. The bug I am having is that when I actually delete and email in the email bar, the macro will remember it and put it back in the .cc line.

For example
I Have Email A B and C
I Delete All of those and change it to Email D E and F
The Code will run again and put A,B,C,D,E and F in the cc bar.

How do I get it to reread my .cc bar before it posts again?

Public List As String

Sub Multi_Email_Test()
    Dim Update As String
    Dim Email As Outlook.MailItem
    Set Email = Application.ActiveInspector.CurrentItem
        UserForm1.Show

    
    On Error Resume Next

    With Email
        .CC = Email.CC & ";" & List
        .Display
    End With
        

End Sub

 

[shg]

It does that because that's what the code says to do. If you just want the names in List,

        .CC = List

 

[Schoscho17]

The .cc List will delete everything that's already in my .cc line

I would prefer that the code just add onto the end of the cc line