Email from list box

[dhoover via AccessMonster.com]

I'm using the code below to email clients selected from a list box. However,
the code sends individual emails to each client, I'd like to generate one
email and send to all the selected clients.


Dim strTo As String
Dim varItem As Variant
Dim ctrl As Control

Set ctrl = Me.lstEmailAddresses

If ctrl.ItemsSelected.Count > 0 Then
For Each varItem In ctrl.ItemsSelected

strTo = ctrl.ItemData(varItem)

DoCmd.SendObject _
, _
, _
, _
, _
, _
("" & strTo), _
, _
, _
True

Next varItem


End If

 

[Dirk Goldgar]

I'm using the code below to email clients selected from a list box.
However,
the code sends individual emails to each client, I'd like to generate one
email and send to all the selected clients.


Dim strTo As String
Dim varItem As Variant
Dim ctrl As Control

Set ctrl = Me.lstEmailAddresses

If ctrl.ItemsSelected.Count > 0 Then
For Each varItem In ctrl.ItemsSelected

strTo = ctrl.ItemData(varItem)

DoCmd.SendObject _
, _
, _
, _
, _
, _
("" & strTo), _
, _
, _
True

Next varItem


End If

What you need to do is build a list of the selected e-mail addresses in a
string, and then pass that string to SendObject. Code would look something
like this:

strTo = vbNullString

With Me.lstEmailAddresses
For Each varItem In .ItemsSelected
strTo = strTo & ";" & .ItemData(varItem)
Next varItem
End With

If Len(strTo) > 0 Then
strTo = Mid(strTo, 2)
End If

DoCmd.SendObject _
Bcc:=strTo, _
EditMessage:=True

 

[dhoover via AccessMonster.com]

worked great, thanks!