Adding Contacts in Outlook Code Problem

[Schoscho17]

I have the following code that is linked to a button in my tool bar. The problem I am having is when I click the button, a new e-mail opens instead of using the email im writing. what do I have to do to keep it in my current email and make sure that it does not erase my contacts I have already added.

Sub Multi_Email_Test()

Dim List As String
Dim Email As Object
Dim Outlook As Object


On Error Resume Next

List = "E-Mail 1" & ";" & "E-mail 2"
Set Outlook = CreateObject("Outlook.Application")
Set Email = Outlook.CreateItem(0)

With Email
.CC = List
.Display
End With

End Sub