Email from a worksheet

I have this code to generate an email message and send it.

Public Sub SendMail(ByVal strmsg As String, target As Range)
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim mailAddress As String
    Dim bccAddress As String
    
    On Error GoTo GetOut
    Set OutApp = CreateObject("Outlook.Application")
    mailAddress = "ogmhallettsville@ogmland.com"
    bccAddress = "sstewart@ogmland.com"
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    'Send one to the office
    Set OutMail = OutApp.CreateItem(olMailItem)
    On Error Resume Next
    With OutMail
        .To = mailAddress
        .Subject = "Man Power " & Cells(target.Row, 1).Value
        .Body = "Here is my man power for " & Cells(target.Row, 1) & vbCrLf & strmsg
        .Send
    End With
    Set OutMail = Nothing
    'Send a copy to me
    Set OutMail = OutApp.CreateItem(olMailItem)
    With OutMail
        .To = bccAddress
        .Subject = "Man Power " & Cells(target.Row, 1).Value
        .Body = "Here is my man power for " & Cells(target.Row, 1) & vbCrLf & strmsg
        .Send
    End With
GetOut:
    Set OutMail = Nothing
    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    On Error GoTo 0
    
End Sub

But this seems to work intermittently. 7 Emails went through OK. 5 Never made it. I even broke up the message so there were two complete emails being generated and sent. I thought the bcc might have been causing some problem. Is there a better way to do this? I got this code (almost an exact copy) from a web site. There is nothing on that site to suggest there would be a problem or to help identify this problem.