''参数说明
''strFrom : 发件人Email
''strTo : 收件人Email
''strSubject : 信件主题
''strBody : 信件正文
''lngImportance : 信件重要性
'' : 0 - 低重要性
'' : 0 - 中等重要性（默认）
'' : 0 - 高重要性
''lngAType : 信件格式
'' : 为1时将邮件正文作为HTML（此时可以发送HTML邮件）
''strAttach : 附件的路径
Sub SendMail(strFrom, strTo, strSubject, strBody, lngImportance, lngAType, strAttach)
Dim objMail