HI使用以下代码

HI使用以下代码

私有子项createpdf（）
             尝试
                 对于索引= 1到oMatrix.RowCount
                     oChk = oMatrix.Columns.Item（" matChk"）。Cells.Item（Index）.Specific
                     如果oChk.Checked然后
                         pono = oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value
                         如果IO.Directory.Exists（" \\ 192.168.0.5 \ B1_SHR \ DemoCRMail \ PO \"）= False，则
                             IO.Directory.CreateDirectory（" \\ 192.168.0.5 \ B1_SHR \ DemoCRMail \ PO \"）
                         万一
                         fname =""
                         fname =" \\ 192.168.0.5 \ B1_SHR \ FdemoCRMail \ PO \"
                         fname + =" Demo_PONo_" +"-" + oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value +" .pdf"
                         SBOApp.StatusBar.SetText（"正在准备发送采购订单编号：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Warning）
                         如果objgenerapdf.generatereport（fname，oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value）= True然后
                             尝试
                                 Msg ="尊敬的先生，"
                                 讯息+ =" 
"
                                 讯息+ =" 
"
                                 Msg + ="请在附件中找到我们的采购订单" +"-" + oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value
                                 讯息+ =" 
"
                                 讯息+ =" 
"
                                 讯息+ ="最诚挚的问候"
                                 讯息+ =" 
"
                                 讯息+ ="演示"
                                 subject ="演示采购订单" +"-" + pono
                                 邮件=新邮件
                                 昏暗的麦芽作为SAPbouiCOM.Matrix
                                 Mail.Send（oForm.Items.Item（" cmbFEmail"）。Specific.value.ToString（）。Trim（），oMatrix.Columns.Item（" matVEmail"）。Cells.Item（Index）.Specific.value，Msg  ，主题，omat，""，""，" html"，fname）
                                 oRecordset =什么都没有
                                 oRecordset = oCompany.GetBusinessObject（SAPbobsCOM.BoObjectTypes.BoRecordset）
                                 Dim str As String
                                 str ="更新[@STDTLPO]设置U_IsMailSend ='Y'，其中U_PONo ='"＆oMatrix.Columns.Item（" matPONo"）。Cells.Item（Index）.Specific.value＆"'"
                                 oRecordset.DoQuery（str）
                                 SBOApp.StatusBar.SetText（"邮件已成功发送，用于采购订单编号：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Success）
                             异常捕获
                                 SendFlg =假
                                 SBOApp.StatusBar.SetText（" PO发送邮件失败：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Error）
                             结束尝试
                         其他
                             SBOApp.StatusBar.SetText（" PDF生成的采购订单编号中存在一些问题：-"＆pono，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Error）
                         万一
                     万一
                 下一个

             异常捕获
                 SBOApp.StatusBar.SetText（例如消息，SAPbouiCOM.BoMessageTime.bmt_Short，SAPbouiCOM.BoStatusBarMessageType.smt_Error）
             结束尝试
         结束

谢谢

kalpen

谢谢

kalpen

编辑者：kpsapb1，2012年2月18日下午12:03