emailing everyone on the list
Just remove the check on whether an employee item is selected or not.
Private Sub cmdAddAll_Click()
Dim i As Integer
For i = 0 To lstEmployees.ListCount - 1
lstAttendees.AddItem lstEmployees.List(i)
Next i
cmdRemoveAll.Enabled = True
End Sub
Tim
"PaddyMac" wrote in message
...
I want to email everyone on the list, rather than having to click on them
one
by one with the following command button.
Private Sub cmdAdd_Click()
Dim i As Integer
For i = 0 To lstEmployees.ListCount - 1
If lstEmployees.Selected(i) = True Then
lstAttendees.AddItem _
lstEmployees.List(i)
lstEmployees.Selected(i) = False
End If
Next i
cmdRemoveAll.Enabled = True
End Sub
Any ideas.
Kindest regards
PaddyMac
|