博客【张光见】

摘要： Sub SendMail()'要能正确发送并需要对Microseft Outlook进行有效配置On Error Resume NextDim rowCount, endRowNoDim objOutlook As ObjectDim objMail As Object'取得当前工作表与Cells(1,1)相连的数据区行数'endRowNo = Cells(1, 1).CurrentRegion.... 阅读全文