Multiple email addresses in cells

[Noddy13]

Hello all,

I have the code that will email and save the active sheet that I am working on however I would like to send it to mulitple email addresses. Those email addresses are stored in cells on a different worksheet in the same workbook.

What do I need to change the below to if the email addresses and in 'sheet1' cells A1 to A12?

With OutMail
            .to = "email@email.com"

Also the code is set up to send one email so I was just thought as I was about to send this, would there be anything I need to add to send multiple?

Thanks
Jamie

 

[Ardus Petus]

dest = ""
for each c in [A1:A12]

 

[Ardus Petus]

Dim c as range, dest as string
dest = ""
for each c in Worksheets("Params").[A1:A12]
    if c.value <> "" then
        dest = dest & iif(dest="","",";") & c.value
    endif
next c
.To = dest

You must have valid email adresses in cells A1 to A12