Send mail using smtp server(google,yahoo)

'send mail using CDO
Dim lobj_cdomsg
Set lobj_cdomsg = CreateObject("CDO.Message")
'With lobj_cdomsg.Configuration
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
'smtp.mail.yahoo.com
'smtp.mail.com



lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = 465
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = True
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = True
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = "sender@gmail.com" '
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "****thisispassword"


lobj_cdomsg.To = "sendmsgto@gmail.com"
lobj_cdomsg.From = "sender@gmail.com"
lobj_cdomsg.Subject = "mail subject "
lobj_cdomsg.TextBody = "this is the main body"
lobj_cdomsg.AddAttachment ("c:\image.jpg")




lobj_cdomsg.Configuration.Fields.Update
lobj_cdomsg.Send