Compiling an email list from excel database

[hang123]

Hi everyone,

I have a small database with less than 100 records. In one feild i have email address. I need to send out a a group mail to all these people- but not through outlook... I use hotmail or gmail.

So what I need is a way of getting all these fields but into one field or list, with each email address seperated by a comma so I can just copy and paste the email address into hotmail all at one.

Could anyone please help out??

Many thanks

 

[golfbum71]

Putting Lines Together

hang123,

You'll have to change this a bit, but this might work:

Sub CopyEmails()

Dim copyLine As String

'Change the A to whichever column the email address is in below
For x = Range("A65000").End(xlUp).Row To 2 Step - 1 'Assuming the first line is for headers...
    copyLine = Range("A" & x) & "," & copyLine
Next x

'Change the B to whatever is a free column.
Range("B1") = copyLine

End Sub

You may have to go into the cell formula to copy all the text...but it should work... If you just copy the cell itself, I believe there is 256 character limit that will bug the heck out of you...as it did me.

Good luck. Hope it helps,
Geoff