Extracting Emails

[Scott]

I have a worksheet that includes a column of email
addresses. I want to send an email to all of the emails
in the column. Without having to type each email (there
are at least 50), is there an easy way to acomplish this?

P.S. This is business related and in no way is meant for
spamming.

TIA

Scott

 

[Peo Sjoblom]

You would probably be better off using software made for this but there are
options,

http://www.rondebruin.nl/sendmail.htm

has examples, note that you will have to OK each email manually since the
virus protection kicks in,
something in the way of "Another program is trying to etc...")

 

[Ron de Bruin]

Try this Scott
http://www.rondebruin.nl/sendmail.htm#message

 

[Ron de Bruin]

something in the way of "Another program is trying to etc...")

I love Excel 2000 sr1 (last version without this problem)

 

[Ron de Bruin]

I will add the same example to the CDO page this week
http://www.rondebruin.nl/cdo.htm

Then you don't have to click ok each time if you are using
a higher version then Excel 200 sr1

 

[Scott]

I tried it by creating the macro and associating it with a
clickable button. I set all the entries in the third
column to No and created a row with my own email and name
and set it to YES. I ran the macro, but I never got an
email message. Could I be doing something wrong?

 

[Ron de Bruin]

Hi Scott

Maybe it is still in your outbox?

Or you have your E-Mail address in column A and the name in column B

 

[Scott]

No, neither. Shouldnt it appear in the Sent Items
folder? Its not there either...

I dont, however, get any errors when I run the macro.

-----Original Message-----
Hi Scott

Maybe it is still in your outbox?

Or you have your E-Mail address in column A and the name in column B

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)




"Scott" <[email protected]> wrote in

message news:[email protected]...

 

[Ron de Bruin]

Do you get errors??

Is your sheet named Sheet1

 

[Ron de Bruin]

Send me your testfile(private mail) and I will look at it Scott

 

[Ron de Bruin]

Hi Scott

And cell.Offset(0, 1).Value = "yes"

You use Yes instead of yes