ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Converting excel list for email (https://www.excelbanter.com/excel-discussion-misc-queries/199917-converting-excel-list-email.html)

Basil

Converting excel list for email
 
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

Converting excel list for email
 
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.....


Basil

Converting excel list for email
 
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.....


Sheeloo

Converting excel list for email
 
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.....



All times are GMT +1. The time now is 10:30 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com