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.....

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" wrote:

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.....

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.

"Access101" wrote:

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" wrote:

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.....

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)

"BASIL" wrote:

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.....