Public Sub CreateEMail(strETo As String, strECC As String, strESubject As String, strEBody As String, _
                       ParamArray attachFiles() As Variant)

    Dim attachFile  As Variant
    
    Set olEmail = olApp.CreateItem(olMailItem)
    With olEmail
        
        .To = strETo
        .CC = strECC
        If Not IsNull(olAccount) Then
            .SendUsingAccount = olAccount
            .Sender = olAccount
        End If
        .Subject = strESubject
        .HTMLBody = strEBody & "<br>" & .HTMLBody
        
'        .body = Application.plainText(strEBody) & vbCrLf & .body
        
        For Each attachFile In attachFiles
            If attachFile <> "" Then .Attachments.Add attachFile
        Next
        
        If m_autoSend Then
            .Send
        Else
            .Display
        End If
        
    End With

End Sub