Below CDO macros displays run time error 13

I want a macros which can send a email from email client base and i'm using Zimbra, that means not from outlook, and email should be send in html format that is color and font should remain the same which i have in excel, it should pick up the range for eg: c1 to q56 it should copy paste and send it ...
File attached for your reference..

Below is the macros which i'm trying, but does not work properly.

Sub CDO_Send_Selection_Or_Range_Body()
    Dim rng As Range
    Dim iMsg As Object
    Dim iConf As Object
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    ' iConf.Load -1 ' CDO Source Defaults
    ' Set Flds = iConf.Fields
    ' With Flds
    '      .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    '      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in your SMTP server here"
    '      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    '      .Update
    ' End With
 
    Set rng = Sheets("Hourly").Range("c1:q71").SpecialCells(xlCellTypeVisible)
    Set rng = ActiveSheet.Range("c1:q71")
    Set rng = Sheets("hourly").Range("c1:q71")
 
    On Error Resume Next
    Set rng = Sheets("Hourly").Range("c1:q71").Selection.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
 
    If rng Is Nothing Then
      MsgBox "The selection is not a range or the sheet is protected" & _
                                vbNewLine & "please correct and try again.", vbOKOnly
      Exit Sub
    End If
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    With iMsg
        Set .Configuration = iConf
        .To = "[email protected]"
        .CC = ""
        .BCC = ""
        .From = """Ashfaq"" <[email protected]>"
        .Subject = "This is a test"
        .HTMLBody = Range("c1:q71")
        .Send
    End With
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub