Integrating excel & outlook

Sub ShootANote() 
Dim ObjOutLook As Object 
Dim objMail As Object 
Dim olMailItem As Variant 

Dim SendTo As String 
Dim Subject As String 
Dim Body As String 
Dim CC As String 
Dim Attachment As String 

    Set ObjOutLook = New Outlook.Application 
    Set objMail = ObjOutLook.CreateItem(0) 
     
    SendTo = "Bill.Gate@microsoft.com, SomeOne@SomeWhere.Com" 
    Subject = "Email Works ?" 
    CC = "Yes@No.net" 
    Attachment = "C:\myPornCollection.zip" 
    Body = "Dear Some one" & Chr(13) & vbCrLf & " How is life" 
     
    With objMail 
         
        .To = SendTo 
         
        If (CC <> "") Then .CC = "boss@boss.com" 
         
        .Subject = Subject 
         
        .Body = Body 
         
        if (Attachment <> ") then .Attachments.Add (Attachment) 

        .Display 
    End With 

     
    Set objMail = Nothing 
    Set ObjOutLook = Nothing 

End Sub