主题：[求助]企业微信消息回调

If e.ContentType = 0 Then '本例子只处理文本消息

    Dim drUser As DataRow = DataTables("微信用户").Find(CExp("[_Identify]={0} ",userid))

    If drUser IsNot Nothing Then

        Dim text = WeChat.SendMessageHelper.GetSendMessage(WeChat.ApiType.MP, "text")

        text.touser = drUser("OpenID")

        text.AddContent(e.Content)

        Dim weRet = WeChat.WeChatServer.Server("wx506f113977c3a8a3").SendMsgController.SendMessage(text.ToJson(True)) '发送消息到微信

        If not weRet.Success Then

            Functions.Execute("logText",weRet.ErrorMessage & "|" & text.ToJson(True))

        End If

    End If

End If