Sending emails

Yes i have read Ron de Bruin's tutorials.

Hi,
I'm trying to send sheets to an email.
My code up to now saves a copy of the sheet in a file, and I send that file out.
Unfortunatly when I run my macro it ends with the email opening, the file being attached, and I need to input the email adress. Also, i need to automatically overwrite what is in the folder.

My code looks nothing like the one on Ron's tutorials.
can anyone help out:

Sub email()
'
' email Macro
' Macro recorded 2010-01-21 by Simon
'

'
    Sheets("CP").Select
    Sheets("CP").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "X:\CSPQ_maintenance\CSPQ Admin - Mark- Robert - Simon\DGRT Open tickets\CP-ouvert.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.Dialogs(xlDialogSendMail).Show
End Sub