Runtime Error 429 ActiveX Component Can't create Object

Hi, I have to automate emails in Outlook Via SMTP using EasyMail. 

I am using Win 10, Office 365, 64 Bit version.

I specified some Email Address in Sheet 1 and and I need to automate Sheet 2 as a  attachement in Excel to Outlook.

I wrote the code in Excel VBA to automate Emails for Outlook.

If it is without SMTP, It is working perfectly. When I create the object for Easy Mail (Set SMTP = CreateObject("EasyMailCtrl.EasyMailCtrl.1") , and when I run the code,  it is coming error as "Runtime Error 429 ActiveX Component Can't create Object". I selected the references as well in VBA for EasyMail SMTP Library,r Active X Data Object, Microsoft Outlook etc.

I can create the objects for others but not for EasyMail. I fallowed this link (https://www.componentsource.com/product/easymail-objects-smtp) but no luck.

I have installed DLL file and I can confirm that I have DLL File registered. But not sure why it is not supporting.

Sub EmailSheet()

Dim LastRow As Long

Dim LastEmailRow As Long

Dim CurrentEmailRow As Long

Dim WeekNum As Integer

Dim DateAndTime As String

Dim fw As Integer

Dim filepath As String

Dim CurrentItem As Object

Dim Sender As Outlook.AddressEntry

Dim WB As Workbook

Dim WBNew As Workbook

Dim WS As Worksheet

Dim WSNew As Worksheet

Dim WSEmail As Worksheet

Dim ccmail As String

Dim tomail As String

Dim OutlookApp As Outlook.Application

Dim OutlookMail As Outlook.MailItem

Dim SMTP As Object

Dim objExcel As Object

Dim Result&

 'Set objExcel = CreateObject("Excel.Application")

Set SMTP = CreateObject("EasyMailCtrl.EasyMailCtrl.1")    ( I am getting error here)

'Set SMTP = CreateObject("EasyMail.SMTP")

SMTP.MailServer = "smtp.gb.test.net"

'SMTP.FromAddr = "******@test.com"

'SMTP.AddRecipient("", "******@test.com",1)

Application.ScreenUpdating = False

WeekNum = CInt(Format(Date, "ww", fw))

DateAndTime = Format(Now(), "dd_mmm_yy" & "-" & "hh_mm")

Set OutlookApp = New Outlook.Application

Set OutlookMail = OutlookApp.CreateItem(olMailItem)

'Set SMTP = CreateObject("EasyMailCtrl.EasyMailCtrl.1")

'SMTP.MailServer = "smtp.gb.test.net"

Set WB = ActiveWorkbook

Set WS = ActiveSheet

   If ActiveSheet.AutoFilterMode = True Then

     ActiveSheet.AutoFilterMode = False

    End If

Workbooks.Add

Set WBNew = ActiveWorkbook

ThisWorkbook.Activate

WS.Copy before:=WBNew.Sheets(1)

WBNew.Activate

LastRow = Range("A500").End(xlUp).Row

Range(Cells(LastRow - 8, 1), Cells(LastRow, 15)).Clear

Application.DisplayAlerts = False

 ActiveWorkbook.SaveAs Filename:="*********************************** & ".xlsx"

       WBNew.Save

filepath = WBNew.FullName

WB.Activate

Sheet2.Activate

Set WSEmail = ActiveSheet

LastEmailRow = Range("B2").End(xlDown).Row

 Call ModProgress.Initprogressbar

For CurrentEmailRow = 2 To LastEmailRow

 Range("B" & CurrentEmailRow).Select

'-------------------- start here

'subj = " This is test mail please ignore it" & "-" & s

subj = Range("E4").Value

bodymsg = Range("E10").Value

'tomail = Application.VLookup(i, Sheets("Supplier Email").Columns("A:Z"), 4, 0)

tomail = ActiveCell.Value

'ccmail = Application.VLookup(i, Sheets("Supplier Email").Columns("A:Z"), 5, 0)

ccmail = ActiveCell.Offset(0, 1).Value

'If cmail = "" Then

If tomail <> "" Or ccmail <> "" Then

 With SMTP.OutlookMail

    .BodyFormat = olFormatHTML

    .Display

    .HTMLBody = bodymsg

    'last .HTMLBody includes signature from the outlook.

'<br> includes line breaks b/w two lines

    .To = tomail

    .CC = ccmail

    '.BCC = "******@test.com"

    .Subject = subj

    .Attachments.Add WBNew.FullName

    .Send

  End With

Else