yeah thanks Buzby for the code. Only one flaw. It only allows me the first selecteditem. How can i loop it so it will skip to the next selecteditem (multiselected items in the listview). Here is the adapted code from you (thanks):

strSendTo = ""

For i = 1 To LsvEmail.ListItems.Count - 1
If LsvEmail.SelectedItem.Text = LsvEmail.ListItems(i).Text Then
strSendTo = strSendTo + LsvEmail.ListItems(i).Text + ";"
End If
Next

If strSendTo = "" Then
MsgBox "Please reselect your Emailing Client as you have not yet selected one."
Exit Sub
End If

strSendTo = Left(strSendTo, Len(strSendTo) - 1)

ShellX = "start mailto:" + strSendTo
Shell ShellX

Mike

[Edited by Spawny on 06-22-2000 at 08:18 AM]