emailing everyone on the list

  • Thread starter Thread starter PaddyMac
  • Start date Start date
P

PaddyMac

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
 
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
 
 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










- Show quoted text -
Click to expand...

Tim

If works!

Many thanks.

Kindest regards

PaddyMac
 
Back
Top