通过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