D
David Tunstall
Please Help.
I have a list box (list0) that lists every contacts e-
mail address.
I also have a piece of code that when you click on a
command button, it will open outlook and copy the
selected e-mail address into the To section. My problem
is how do I get it to add more than one contact email
address for block emails. I have been given this piece of
code previously but can't fathom out why it wont work:
Private Sub Cmd2_Click()
Dim VarCommande As Variant, intCommande As Integer
For Each VarCommande In Me.List0.ItemsSelected
intCommande = Me.List0.ItemData(VarCommande)
'Call Update(...)
Application.FollowHyperlink "mailto:" & Me.List0
Next VarCommande
End Sub
Hope this makes sense. Thanks
David
I have a list box (list0) that lists every contacts e-
mail address.
I also have a piece of code that when you click on a
command button, it will open outlook and copy the
selected e-mail address into the To section. My problem
is how do I get it to add more than one contact email
address for block emails. I have been given this piece of
code previously but can't fathom out why it wont work:
Private Sub Cmd2_Click()
Dim VarCommande As Variant, intCommande As Integer
For Each VarCommande In Me.List0.ItemsSelected
intCommande = Me.List0.ItemData(VarCommande)
'Call Update(...)
Application.FollowHyperlink "mailto:" & Me.List0
Next VarCommande
End Sub
Hope this makes sense. Thanks
David