Converting excel list for email

[BASIL]

I saved a list of friends personal email addresses to an excel spreadsheet.
Now I wish to to take this list email my friends. I have approx 200
addresses(names). I know in AOL, Yahoo etc. You need to place commas after
every name in order for it to reach the recipient. How can i take this list
and place the comma after everyname without manually doig it for every line.
Is there a mail merge function otr something.... PLEASE HELP.....

 

[Access101]

Assuming the addresses are in column A, and there's no other info in the db:

Sub GetEmailAddresses()

Dim MyRange As Range
Set MyRange = Range("A1").CurrentRegion
MyRange.Select

For Each cel In MyRange
strEmail = strEmail & "," & cel
Next cel

strEmail = Mid(strEmail, 2)

MsgBox strEmail

End Sub

 

[BASIL]

Ok, thanks, however, im not sure I understand where i need to place this
short program ? The list exist in a field in excel. I need to convert that
list so i can email the recipients.

 

[Sheeloo]

The way I do is to enter the following formula in the cell B1 (assuming
emails are in Column A and no headers)

=A1&","
and copy it down.

I then simply copy column B and paste in the BCC field (you can do that in
TO or CC also)