Thread: Email Hyperlink command button

Hello,

I have created a document with a list of peoples emails.

I want to create a command button that will select a range and select all the email hyperlinks and set up a single email to send to them.

I can get the macro to select the range but it will only email the first one on the list, not the whole ground.

Code is below:

Private Sub Email_Leaders_Click()
    Range("D5:D17").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

I want the email to be to all 13 people however the number after hyperlinks(x) corresponds to the person who will be emailed... i.e. 1 is first on the list, 13 is last.

Any ways round this? Simple as possible please!

Many thanks,

Damien

Hi Damien,

You can loop through the index from 5 to 17.

Private Sub Email_Leaders_Click()
    Range("D5:D17").Select
    Dim index as Integer
    For index = 5 to 17
     Selection.Hyperlinks(index).Follow NewWindow:=False, AddHistory:=True
   Next
End Sub

Hi,

As per my knowledge you can use "CDO.Message" object for sending email.

Look at the below link. It will help for you.

http://www.excelforum.com/excel-prog...nt-people.html