Access实现发送邮件功能

时　间:2013-06-25 12:57:09
作　者:stiven   ID：24749  城市：闵行
摘　要:此模块需要求电脑中安装Microsoft Outlook,引用此功能块实现发送邮件。
正　文:

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

'函数名称: 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