[原创]怎样解决给access客户列表中筛选出来的部分客户发送统一的Email

wjzx317

我自做了一个客户信息列表,可我想在过滤出来的部分客户中统一发送E-mail,这样的源码,我在网上一个也没找到,或者根本就调试不了,烦请高手不吝赐教!

我的E-mail:wjzx317@sina.com

       QQ:380511180

拜谢!

fan0217

可参考：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编辑过]