Auto emailing in the BCC column

Try:

Sub sEmail()
    Dim OutApp
    Dim OutMail
    Dim cell As Range
    Dim sbcc As String
    For Each cell In Range("L4:L23")
        strbody = strbody & cell.Value & vbNewLine
    Next
    
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("D").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" _
        And LCase(Cells(cell.Row, "E").Value) = "yes" _
        Then
            sbcc = sbcc & cell.Value & ";"
        End If
    Next cell

    If sbcc <> "" Then
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = ""
            .BCC = sbcc
            .Subject = "Quotation Request"
            .Body = "Dear " & Cells(cell.Row, "B").Value & vbNewLine & strbody
            .SendUsingAccount = OutApp.Session.Accounts.Item(3)
            .Display  'Or use Display
        End With
        On Error GoTo 0
        Set OutMail = Nothing
    End If

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Regards, TMS