How to grab multiple email addresses using listbox?

[dragonfly8563]

Hi all,

I created a listbox with employees' names and email addresses in it, and a button which grabs email address once it's clicked. Currently I can only pick up one address at a time, but I also want to be able to grab multiple addresses. My code is as follows:

Private Sub SendCommand_Cli ck()

Dim strName As String
Dim strEmail As String


strName = Me.List45.Colum n(0)
strEmail = Me.List45.Colum n(1)

DoCmd.SendObjec t acSendNoObject, "None", acFormatHTML, strEmail

End Sub

This can only pick up one email address when I look up the listbox and click the button. Can anyone show me how to grab multiple addresses?

Thanks a bunch,

zg

[JConsulting]

Hi all,

I created a listbox with employees' names and email addresses in it, and a button which grabs email address once it's clicked. Currently I can only pick up one address at a time, but I also want to be able to grab multiple addresses. My code is as follows:

Private Sub SendCommand_Cli ck()

Dim strName As String
Dim strEmail As String


strName = Me.List45.Colum n(0)
strEmail = Me.List45.Colum n(1)

DoCmd.SendObjec t acSendNoObject, "None", acFormatHTML, strEmail

End Sub

This can only pick up one email address when I look up the listbox and click the button. Can anyone show me how to grab multiple addresses?

Thanks a bunch,

zg

This bit should get you pointed in the right direction

For Each x In List0.ItemsSelected
If strAddress = "" Then
   strAddress = List0.ItemData(x)
Else
    strAddress = strAddress & "; " & List0.ItemData(x)
End If
Next x
If Nz(strAddress, "") = "" Then
MsgBox "You must select an e-mail recipient"
Exit Sub
End If
 

[Sanjaylml]

This can be easily done throuugh following code

Private Sub testmultiselect _Click()
Dim oItem As Variant
Dim sTemp As String
Dim iCount As Integer

iCount = 0

If Me!Nameslist.It emsSelected.Cou nt <> 0 Then
For Each oItem In Me!Nameslist.It emsSelected
If iCount = 0 Then
sTemp = sTemp & Me!Nameslist.It emData(oItem)
iCount = iCount + 1
Else
sTemp = sTemp & ";" & Me!Nameslist.It emData(oItem)
iCount = iCount + 1
End If
Next oItem
Else
MsgBox "Nothing was selected from the list", vbInformation
Exit Sub 'Nothing was selected
End If

Me!mySelections .Value = sTemp
End Sub
Private Sub clrList_Click()
Call clearListBox
Me!mySelections .Value = Null
End Sub

However, you have to create following fields & commands button also as follows:
List Box
----------------------------------------------------
Name : NamesList
Row Source Type : Table/Query
Row Source : SELECT Email FROM Employees
Multi Select : Extended
Width : 3.5"
Height : 0.75"


Text Box
-----------------------
Name : mySelections
Width : 3.5"
Height : 0.25"

Command Button
----------------------------------
Name : testmultiselect
Caption : Display Selected Items
Width : 1.375"
Height : 0.3"

Command Button
----------------------
Name : ClrList
Caption : Clear List
Width : 1.375"
Height : 0.3"

[MGrowneyARSI]

to select multiple address I use a sub form in datasheet view with a bolean field where the bolean is true you use those addresses with that and the code left above you should be able to do what you want unless I completely misunderstood the ?