Procedure SendMail
Parameters cSubject,cTextBody,c2Mail

#Define cdoSMTPServer        "http://schemas.microsoft.com/cdo/configuration/smtpserver"
#Define cdoSendUsingMethod   "http://schemas.microsoft.com/cdo/configuration/sendusing"
#Define cdoSMTPServerPort    "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
#Define cdoSMTPAuthenticate  "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
#Define cdoSendPassword      "http://schemas.microsoft.com/cdo/configuration/sendpassword"
#Define cdoSendUserName      "http://schemas.microsoft.com/cdo/configuration/sendusername"


Try
    If Not Empty(c2Mail) And Not Empty(cTextBody)
       
            oConf = Createobject("CDO.Configuration")
            oFlds = oConf.Fields
            oFlds.Item(cdoSendUsingMethod).Value  =  2 
            oFlds.Item(cdoSMTPServer).Value       = Alltrim(tm_smtp)
            oFlds.Item(cdoSMTPServerPort).Value   =  25 
             -----
 
                oFlds.Item(cdoSMTPAuthenticate).Value =  1 
                oFlds.Item(cdoSendUserName).Value     = Alltrim(username)
                oFlds.Item(cdoSendPassword).Value     =  Alltri(password)
            Else
                oFlds.Item(cdoSMTPAuthenticate).Value =  0 
             ----
 


            oFlds.Update


            oMSG = Createobject("CDO.Message")
            oMSG.Configuration = oConf
            oMSG.From     = Alltrim(tm_from_mail)
            oMSG.To       = Alltrim(c2Mail)
            oMSG.Subject  = Alltrim(cSubject)
            oMSG.TextBody = Alltrim(cTextBody)
            oMSG.Send()
        Endif



    

Catch To loExc
    Messagebox(loExc.Message, 48 ,"SendMail")
Endtry