Sending automatically an email from or to zoho account using VBA for Excel

Hello,

I am trying to send an email daily with an excel sheet in attachment from and/or to a zoho email account using a vba macro in excel and it doesn't work. When I do the same operation with a gmail account it works perfectly. Can you please explore:

Below I will paste the vba code used but first let me summarize what I observed:

1/Email sent from gmail account to gmail account:

Email received at destination and email appearing as sent message from origin account.

2/Email sent from gmail account to zoho account:

Email not received at destination but email appearing as sent message from origin account.

3/Email sent from zoho account to zoho or gmail account:

Email not sent and connection with zoho stmp server not established.

Code Used for gmail:

Set IMsg = CreateObject("CDO.Message")

Set IConF = CreateObject("CDO.Configuration")

IConF.Load -1 ' CDO Source Defaults

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myaccount@gmail.com"

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"

IConF.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

IConF.Fields.Update

IMsg.Configuration = IConF

IMsg.To = "myaccount@zoho.com"

IMsg.From = "myaccount@gmail.com"

IMsg.Subject = "Test"

IMsg.TextBody = "Test"

IMsg.AddAttachment ("C:\Users\TestFile.xls")

IMsg.Send

Code Used for Zoho: