Public Sub Mail(strHTML As String, strTo As String, strDear As String, strSubject As String, objAttachment As String)
    Dim objOutlook As Outlook.Application
    Dim objEmail As Outlook.MailItem
    Dim oAccount As Outlook.Account
    
    Set objOutlook = CreateObject("Outlook.application")
    Set objEmail = objOutlook.CreateItem(olMailItem)
    
    With objEmail
        .To = strTo
        .HTMLBody = strHTML
        .Subject = strSubject
        .Attachments.Add objAttachment
        .OriginatorDeliveryReportRequested = False
        .ReadReceiptRequested = False
        
    End With
    
    objEmail.Display
    
    Set objOutlook = Nothing
    Set objEmail = Nothing

End Sub