Private Sub cmdFaSongYouJian_Click() '发送邮件正式测验代码
'首先,确保已经安装了OutLook,然后在引用中引用Microsoft OutLook对象,在输入以下代码就可实现创建一个新邮件,并添加一个附件到邮件中,然后发送邮件的功能。
'通过引用OutLook.Application对象,Access可以循环OutLook对象里面的所有内容,例如可以读取OutLook里的所有邮件、联系人、约会、日记等信息,还可修改OutLook内置的“规则精灵”
'的内容。
Dim myOlApp As Object '定义对象变量
Dim myNamespace As Object '定义对象变量
Dim emailadd, para As String
Set myOlApp = CreateObject("OutLook.Application") '创建OutLook应用程序对象
Set myNamespace = myOlApp.getNamespace("MAPI") '获取MAPI命名空间
Set myFolder = myNamespace.getDefaultFolder(6) '获取默认的文件夹
Set myitem = myOlApp.CreateItem(0) '创建新邮件
'邮件正文内容
para = para + "欢迎你单位加入医疗保险!"
'收件人的email地址,这里没有输入内容。
emailadd = "rcylbx@21cn.com;aoxing@yahoo.cn"
With myitem
.To = emailadd '发送邮件地址
.Subject = "多地址发送" ' 邮件的主题
.Importance = olImportanceHigh '邮件的为重要等级
.Body = para '将邮件正文内容指定para变量内容
.Send '发送
End With
Set myOlApp = Nothing
Set myitem = Nothing
End Sub