You need something like
Sub Send_email_fromexcel()
Dim Email_Address_1 As String
Dim Subject As String
Dim Email_Address_2 As String
Dim CC As String
Dim message As String
Dim filename As String
Dim outlookapp As Object
Dim oAccount As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
Dim outlookmailitem As Object
Dim Path As String
Dim lastrow As Integer
Dim Attachment As String
Dim x As Integer
Dim bAcc As Boolean
Const sAcc As String = "someone@somewhere.com" 'Displayname of account to use
x = 2
'it would be better to use the code from 'http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'to start Outlook
Set outlookapp = CreateObject("Outlook.Application") 'before the loop!
'Check the available accounts for the required account.
For Each oAccount In outlookapp.Session.Accounts
If oAccount.DisplayName = sAcc Then
bAcc = True
Exit For
End If
Next
'Set action if account is not found
If Not bAcc = True Then
MsgBox "The account " & sAcc & " was not found." & vbCr & "Messages will be sent using the default account"
End If
Do While Sheet1.Cells(x, 1) <> ""
Path = "PATH" 'Where does this come from? - Don't forget the path separator!
Email_Address_1 = Sheet1.Cells(x, 1)
Email_Address_2 = Sheet1.Cells(x, 2)
CC = Sheet1.Cells(x, 3)
Subject = Sheet1.Cells(x, 4)
filename = Sheet1.Cells(x, 6)
Attachment = Path & filename
Set outlookmailitem = outlookapp.CreateItem(0)
With outlookmailitem
If bAcc = True Then .SendUsingAccount = oAccount
.To = Email_Address_1
.CC = Email_Address_2
.BCC = CC
.Subject = Subject
.BodyFormat = 2 'html
.Attachments.Add Attachment
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
oRng.Collapse 1
oRng.Text = "Please find your account Statement" & vbCrLf & vbCrLf & "Best Regards "
.Display
.Send
End With
lastrow = lastrow + 1
Email_Address_1 = ""
x = x + 1
Loop
Set outlookapp = Nothing
Set outlookmailitem = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Set oAccount = Nothing
MsgBox "All the documents have been sent"
End Sub