【结】如何通过代码发送Message信息？**

icewood

如题？

zfang

楼主，你可以看看OA中的通知发布里的相关代码
业务模型\业务系统\产品OA\信息发布\基类\发布管理\发布管理
procedure TMainForm.actIssueExecute(Sender: TObject);
var
  lMsg : string;
begin
  Inherited;
  lMsg := '';
  if BasicInfo.IssueBill(lMsg) then
    if cbSendMsg.Checked then
      begin
        BasicInfo.SendMsgToMessenger(
                  Context,
                  BasicInfo.RangeDataSet,
                  BasicInfo.MasterDataSet.FieldByName('FCLASSIFY').DisplayText + '：' + BasicInfo.MasterDataSet.FieldByName('FTOPIC').AsString);
      end;
  if lMsg <> '' then
    jsDialogs.ShowMsg(lMsg, '提示');
end;

icewood

已解决,帮结