摘要:
Sub SendMail()'要能正确发送并需要对Microseft Outlook进行有效配置On Error Resume NextDim rowCount, endRowNoDim objOutlook As ObjectDim objMail As Object'取得当前工作表与Cells(1,1)相连的数据区行数'endRowNo = Cells(1, 1).CurrentRegion.... 阅读全文
posted @ 2010-09-29 12:50
willpower
阅读(987)
评论(0)
推荐(0)