'======================

'函数名称: SubMail()
'调用方法：SubMail StrMailAddress, StrSubject, StrBody

'说明：StrMailAddress: 邮箱地址 StrSubject:邮件标题 StrBody: 邮件内容
'======================

Public Function SubMail(strMailAddress As String, _
                        strSubject As String, _
                        strBody As String)
                       
    Dim outlook, mail As Object

      Set outlook = CreateObject("Outlook.Application")
      Set mail = outlook.CreateItem(olMailItem)
 
    With mail
            .To = strMailAddress
            .Subject = strSubject
            .HTMLBody = "
" & strBody

            .send
    End With

End Function