VFP发送公众号模板消息

*--发送模板消息


TEXT TO msgJson NOSHOW TEXTMERGE 
{
       "touser":"oljsK6OgHA9ftJxuCUWg7cFylj6Y",
       "template_id":"mXbre4Tx6b9gt3kfLh9HOwUrdBmaUV-ccEDTH03S1Jg",
       "url":"http://www.baidu.com",       
       "data":{
              "yzm": {
                   "value":"1234",
                   "color":"#00ffba"
               }
       }
   }
ENDTEXT

oWXApi=NEWOBJECT("weixinApi","weixinApi.prg")
cReturn=oWXApi.SendTmplMsg(msgJson)
IF ISNULL(cReturn)
   ?oWXApi.msg
   RETURN 
ENDIF 

?"msgid:",cReturn