email - Getting runtime error - Automation error when sending e-mail in excel using gmail -

hello tried send email in excel

here code

    sub send_email_via_gmail() dim mymail cdo.message  set mymail = new cdo.message  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "example@gmail.com"  mymail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"  mymail.configuration.fields.update  mymail .subject = "test email dr. takyar" .from = "example@gmail.com" .to = "example1@gmail.com"  .textbody = "good morning!"  end  mymail.send msgbox ("mail has been sent") set mymail = nothing  end sub 

but when run giving me runtime error when try send mail.. me coding seems correct .. dont know issue .. please help