Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

通过access同时向多个邮箱发送邮件,代码

时 间:2009-02-26 19:17:49
作 者:lyq   ID:3459  城市:保定
摘 要:access通过outlook发送邮件正式测验代码 

正 文:

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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助