What is your question?

>LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message
>SET STEP ON
>loConfig = CREATEOBJECT("CDO.Configuration")
>
>loFlds = loConfig.Fields
>
>WITH loFlds
>
>*- Set the CDOSYS configuration fields to use port 25 on the SMTP server.
>
>.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
>
>*- Enter name or IP address of remote SMTP server.
>
>.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
>
>.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
>
>*- Assign timeout in seconds
>
>.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
>
>.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t.
>
>*- Commit changes to the object
>
>.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youraccout@gmail.com"
>
>.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
>
>.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3
>
>* .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com"
>
>.Update()
>
>ENDWITH
>
>*- Create and send the message.
>
>loMsg = CREATEOBJECT("CDO.Message")
>
>WITH loMsg
>
>.Configuration = loConfig
>
>.To = "test@test.com"
>
>.From = "youraccount@gmail.net"
>
>.Subject = "This is a test of CDO sending e-mail"
>
>.HTMLBody = "This is the HTML content of the mail message"
>
>.AddAttachment("path of the file")
>
>*- Set priority to HIGH if needed
>
>*!* IF tlUrgent
>
>*!* .Fields("Priority").Value = 1 && -1=Low, 0=Normal, 1=High
>
>*!* .Fields.Update()
>
>*!* ENDIF
>
>TRY
>
>.Send()
>
>CATCH TO oerr
>
>MESSAGEBOX(oerr.message)
>
>ENDTRY
>
>ENDWITH