dim lcSchema, loConfig, loMsg, loError, lcErr
dim sFile 
dim iPos
on error resume next
lcErr = ""
lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
set loConfig = CREATEOBJECT("CDO.Configuration")

    loConfig.FIELDS.ITEM(lcSchema + "smtpserver") = xConfig.getValue("MAIL-SERVIDOR")
    loConfig.FIELDS.ITEM(lcSchema + "smtpserverport") = xConfig.getValue("MAIL-PUERTO")
    loConfig.FIELDS.ITEM(lcSchema + "sendusing") = 2
    loConfig.FIELDS.ITEM(lcSchema + "smtpauthenticate") = true
    loConfig.FIELDS.ITEM(lcSchema + "smtpusessl") = true
    loConfig.FIELDS.ITEM(lcSchema + "sendusername") = xConfig.getValue("MAIL-USER")
    loConfig.FIELDS.ITEM(lcSchema + "sendpassword") = xConfig.getValue("MAIL-PASSWORD")
    loConfig.FIELDS.UPDATE

set loMsg = CREATEOBJECT ("CDO.Message")

    loMsg.Configuration = loConfig
    loMsg.FROM = "" & xMail.From
    loMsg.TO = "" & xMail.Recipient
    loMsg.Subject = "" & xMail.subject
    loMsg.TextBody = "" & xMail.Message

    '* Incluir los archivos
    iPos = 1
    sFile = xLibStr.Gettoken(xMail.Attachments,";", iPos) 
    do while len(sFile) > 0
    loMsg.AddAttachment (sFile)
    iPos = iPos + 1
      sFile = xLibStr.Gettoken(xMail.Attachments,";", iPos) 
    loop

    '* Enviar
    loMsg.Send()
    set loMsg = nothing
    set loConfig  = nothing

if err.number = 0 then 
 msgbox "Mail Enviado"
else
 msgbox "Error al enviar email [" &  err.description & "]"
end if