Office中国论坛/Access中国论坛

标题: [原创]怎样解决给access客户列表中筛选出来的部分客户发送统一的Email [打印本页]

作者: wjzx317 时间: 2006-10-24 01:01
标题: [原创]怎样解决给access客户列表中筛选出来的部分客户发送统一的Email
我自做了一个客户信息列表,可我想在过滤出来的部分客户中统一发送E-mail,这样的源码,我在网上一个也没找到,或者根本就调试不了,烦请高手不吝赐教!

我的E-mail:wjzx317@sina.com

QQ:380511180

拜谢!

作者: fan0217 时间: 2006-10-24 03:25
可参考：http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=4&id=37148&skin=0

Dim olApp As Outlook.Application
Dim myMail As MailItem

If IsNull(Me.收件人地址) Then
      MsgBox "请输入收件人地址。", 64, "提示"
Exit Sub
ElseIf IsNull(Me.主题) Then
      MsgBox "请输入主题。", 64, "提示"
Exit Sub
ElseIf IsNull(Me.正文) Then
      MsgBox "请输入正文。", 64, "提示"
Exit Sub
End If

Set olApp = Outlook.Application
Set myMail = olApp.CreateItem(olMailItem)
With myMail
      .Recipients.Add (Me.收件人地址)
      If IsNull(Me.抄送) = False Then .CC = Me.抄送
      If IsNull(Me.秘密抄送) = False Then .BCC = Me.秘密抄送
      .Subject = Me.主题
      .Body = Me.正文
      If IsNull(Me.附件) = False Then .Attachments.Add (Me.附件)
      'If Me.Check58 Then myMail.Display
      .Save
      .Send
End With

[此贴子已经被作者于2006-10-24 9:07:16编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)