通过电子邮件发送给多个用户 [英] Email to multiple users in access

问题描述

大家好，

我不确定在多个用户的电子邮件的VBA命令中我做错了什么？从访问查询"2_1_2_2015重新测试最终列表" 我使用的字段是"检测到的"字段。因为它包含所有电子邮件别名，但由于某种原因，我
卡在声明变量？

I am not sure what I am doing wrong in the VBA commands for a email to multiple users? From the access query "2_1_2_2015 Retest final list"  I am using the field "Detected" as it contains all email aliases, but for some reason I get stuck in the declaring variables?

Private Sub Command91_Click（）

Dim Outlook As Outlook.Application

Dim oEmailItem as mailItem

Dim rs 作为Recordset

Dim customerEmail As String

设置oEmailItem = Outlook.CreateItem（mailItem）

使用oEmailItem

  ; 设置rs = CurrentDb.OpenRecordset（" select * from 2_1_2_2015 Retest final list"）

  如果rs.RecordCount> 0然后

   rs.MoveFirst

  直到rs.EOF为
     如果IsNull（rs！Detected）则为
      rs.MoveNext

     否则

        customerEmail = customerEmail& rs！电子邮件& " ;;"

        .To = customerEmail

        rs.MoveNext

     结束如果是
   循环

   否则

      Msbox"没有电子邮件地址！"&
   结束如果是
    .To =""

    .CC =""

    .Subject =" customer info" $
    .attachments.Add

结束用于
   退出Sub

End Sub

Private Sub Command91_Click()
Dim Outlook As Outlook.Application
Dim oEmailItem As mailItem
Dim rs  As Recordset
Dim customerEmail As String
Set oEmailItem = Outlook.CreateItem(mailItem)
With oEmailItem
   Set rs = CurrentDb.OpenRecordset("select * from 2_1_2_2015 Retest final list")
   If rs.RecordCount > 0 Then
   rs.MoveFirst
   Do Until rs.EOF
      If IsNull(rs!Detected) Then
      rs.MoveNext
      Else
        customerEmail = customerEmail & rs!Email & ";"
        .To = customerEmail
        rs.MoveNext
      End If
    Loop
    Else
      Msbox "No email address!"
    End If
    .To = ""
    .CC = ""
    .Subject = "customer info"
    .attachments.Add
End With
    Exit Sub
End Sub

推荐答案

这篇关于通过电子邮件发送给多个用户的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！