Enviar correo desde foxpro

PROCEDURE ENVIAMAIL
LPARAMETERS XASUNTO,XMENSAJE,XCORREO
LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message
loConfig = CREATEOBJECT("CDO.Configuration")
loFlds = loConfig.Fields
WITH loFlds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t.
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dirsisadm@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3
    * .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com"
    .Update()
ENDWITH
loMsg = CREATEOBJECT("CDO.Message")
WITH loMsg
    .Configuration = loConfig
    .To = XCORREO
    .From = "dirsis@gmail.com"
    .Subject = XASUNTO
    XHTML="<TABLE><TR><TD>"+STRTRAN(XMENSAJE,"*","</TD></TR><TR><TD>")+"</TD></TR><TABLE>"
    .HTMLBody = XHTML
    TRY
        .Send()
    CATCH TO oerr
        MESSAGEBOX(oerr.message)
    ENDTRY
ENDWITH