Private Sub CommandButton1_Click()
 On Error GoTo ErrHandler
     
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
     
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)
 
    With objEmail
        .to = "ExampleG@mail.com"
        .cc = Worksheets("Sheet2").Range("B5").Value
        .Subject = "example"
        .htmlbody = dear all please find file attached 
                          добрый день, прикладываю с этим письмом файл
    End With
     
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
         
ErrHandler:
    '
End Sub