VBA Excel E-mail [closed]

I need your help, I need add "CC" and "BCC"

Arg1 = To
Arg2 = Subjec

Code I'm Using:

Sub SendIt()
Application.Dialogs(xlDialogSendMail).Show _
arg1:=Array("mail@mail.com.", "mail@mail.com"), _
arg2:="TEXT"
End Sub