Sub Mail_workbook_Outlook_1()
'Working in 2007-2010
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object
Dim Msg As String, URL As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "tawakool@itco.com"
.CC = "tawakool@itco.com"
.BCC = "tawakool@itco.com"
.Subject = "Daly Report"
.Body = "Dear All" & vbNewLine & vbNewLine & _
"hello" & vbNewLine & _
"please find attached excel file" & vbNewLine & _
"Thank you & Best regards " & vbNewLine & vbNewLine & _
"Copy MD" & vbNewLine & _
" Copy GM"

.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub