You should use code from Ron's site to start Outlook (see link in the code below) and it is better not to use variable names that can be confused with commands.
Option Explicit
Sub Send_Email_With_Attachment()
'Graham Mayor - https://www.gmayor.com - Last updated - 23 Jan 2020
'Use the code from the folllowing link to start Outlook
'http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'set up using email program
Dim olApp As Object
Dim outlookMail As Object
Dim olAccount As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object
Dim strRecipient1 As String
Dim CC1 As String
Dim frm1 As String
Dim strSubject As String
Dim strBody As String
Dim strFile1 As String
Dim strFile2 As String
Dim strAccount As String
'identify the account by display name
strAccount = "account name"
'Set up the recipients
strRecipient1 = Worksheets("4Q-20").Range("b17")
'Set up the recipients
CC1 = Worksheets("4Q-20").Range("b18")
'set up the sender (optional)
frm1 = Worksheets("4Q-20").Range("b20")
'set up the subject
strSubject = Worksheets("4Q-20").Range("b19")
'Set up the email body message
strBody = Worksheets("4Q-20").Range("b21")
'Set up file locations and name by referencing them from 4Q-20
strFile1 = Worksheets("4Q-20").Range("b15")
strFile2 = Worksheets("4Q-20").Range("b16")
'----------------------------------------------
Set olApp = outlookApp()
For Each olAccount In olApp.Session.Accounts
If olAccount.DisplayName = strAccount Then
Set outlookMail = olApp.createitem(0)
With outlookMail
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set .SendUsingAccount = olAccount
.Display 'required!
.To = strRecipient1
.CC = CC1
.subject = strSubject
.BodyFormat = 2
Set oRng = wdDoc.Range
oRng.collapse 1
oRng.Text = strBody
'.Attachments.Add strfile1
'.Attachments.Add strfile2
'.sentOnbehalfofName = frm1
'.Send
End With
Exit For
End If
Next olAccount
Set outlookMail = Nothing
Set olApp = Nothing
Set olAccount = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
End Sub
If you are going to add attachments from a worksheet, you need to include code to establish the file(s) exist before attaching them e.g. by calling
Private Function FileExists(strFullName As String) As Boolean
'Graham Mayor
'strFullName is the name with path of the file to check
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(strFullName) Then
FileExists = True
Else
FileExists = False
End If
lbl_Exit:
Set FSO = Nothing
Exit Function
End Function