{{first.DATA}}

用户名称：{{keyword1.DATA}}

联系电话：{{keyword2.DATA}}

产品型号：{{keyword3.DATA}}

用户地址：{{keyword4.DATA}}

购买日期：{{keyword5.DATA}}

其他备注：{{keyword6.DATA}}

{{remark.DATA}}

'推送模版信息-------------------------------------------------------------------------------------

Dim Arr(7)

Arr(0) = "first=新保单信息如下："

Arr(1) = "keyword1="&a_name

Arr(2) = "keyword2="&a_tel

Arr(3) = "keyword3="&a_pro

Arr(4) = "keyword4="&a_add

Arr(5) = "keyword5="&a_date

Arr(6) = "keyword6="&a_text

Arr(7) = "remark=提交时间："&Now

color = "#000000"

Openid = anco_site_lxr

template_id = "YQZtUboqon-rq_ziohcq1jLh-ly5FplvgYTyC61SWzg"

SET Wx = New WxAPI

   call Wx.SendMessage(Openid,template_id,Url,Arr,color)

Set Wx=Nothing

'推送结束---------------------------------------------------------------------------------

https://mp.weixin.qq.com/debug/cgi-bin/sandboxinfo?action=showinfo&t=sandbox/index