Selecting Multiple Email Addresses

[uvebeenwarrened]

Can anyone help with modifying this code to select multiple email addresses that are in a list in excel rather than having to hard code an email into VBA?

Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub

Thanks!

[Logit]

.
Here's an example to work with that includes attachments as well listed in Col B:

Please Login or Register  to view this content.

[uvebeenwarrened]

Thanks I was trying to use the envelope feature to create and send the email because I would ultimately like to copy a range of cells and paste special the picture of that copy into the email.

I already have the code below that works with the email list and does everything like I expect it to but I can't seem to get the same concept to work with the envelope feature.

Maybe the question I should be asking is how can I paste special a picture of a copied range of cells into the email in the code below?

Please Login or Register  to view this content.

Also on another note when sharing code in the message how do I get it into the separate box like you did?

THANKS!

[Logit]

.
When you click on the HASH MARK symbol, it creates this : (CODE)(/CODE)"

First click on the HASH symbol, then create a blank line between the two so it looks like this:

(CODE)

(/CODE)

Then paste your code in the blank line.

The words CODE and /CODE will actually be surrounded by these symbols [ ] . I couldn't use those in the explanation above
because it would not have displayed correctly for the explanation. Here's an example of what I mean :

Please Login or Register  to view this content.

You don't actually see the words CODE & /CODE


To the point of your question .. let me review the code. I've not had much luck with sending email via ENVELOPE method.

[uvebeenwarrened]

Thanks!

Please Login or Register  to view this content.

[Kenneth Hobson]

Welcome to the forum!

Drop Envelope method.

Be sure to download Ron's routine as commented.

e.g.

Please Login or Register  to view this content.

[uvebeenwarrened]

Thanks Ken. I like the Drop Envelope method other than I would like the email addresses to be selected from a list in excel rather than having to hard code them into VBA every time they change and I can't seem to figure out how to make that work. Plus I will want to send to multiple emails at once.

What do you mean download Ron's routine as commented?

[Kenneth Hobson]

RangeToHTML() is a custom routine. No sense posting it since Ron does on his site.

[uvebeenwarrened]

Gotcha, thanks. I have looked through Ron's site. I tried to find this myself before asking on here with no luck. I can't seem to find how to do both copy a range from Excel and paste as a picture in Outlook and also send to a list of emails rather than having to hard code it into the actual VBA code. I asked because I thought you meant that there was something I was missing that you had already commented on a routine to copy from Ron's site. Are you familiar with where to find what I am trying to do on Ron's site already? I found similar things on there and bits in pieces that have helped but I can't seem to pull it all together to accomplish the whole goal.

[Logit]

.
Here is an example and sample workbook.

Please Login or Register  to view this content.

[Kenneth Hobson]

To get back to your original question, it depends on your data. Is the range of emails in a row, column, both, a listbox, etc.

[uvebeenwarrened]

Thanks Logit. I'm going to try to incorporate some of this code and see if I can get it to work.

Ken-Currently the email addresses are manually typed into a column. The same starting point for the list is used all the time but the emails themselves of the number of emails change every time.