Email to address entered in cell using CDO

[cheelie]

Hi

This is probably simple but somehow I can't seem to get it to work!!!

I have code which emails a workbook using CDO to an address hard coded in the macro. I now want to add an aditional address to the code. The additional address is entered in a cell of a worksheet before running the macro.

The code at present looks like this:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1
Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "My Server.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With
        
        Dim MySubject As String
        MySubject = Range("A331").Value

    With iMsg
        Set .Configuration = iConf
        .To = "hard_coded_emai@address.Com"
        .CC = ""
        .BCC = ""
        .From = """ME"" <Me@Here.com>"
        .Subject = MySubject
        .TextBody = "Workbook Attached"
        .AddAttachment TempFilePath & TempFileName & FileExtStr
        .Send
    End With

I now want it to also send to the address contained in "uptime" worksheet cell "G4"

Thanks Guys!!!!!!!!

[Charles]

Hi,

Try setting the ".CC" to the worksheet range that has the email address.

[cheelie]

Hi Charles

Thanks for your response.
I thought that was the solution myself but it doesn't work!!
Any other ideas??

Cheelie

[michelxld]

Hello


It's seems not possible to use multiple addressees with CDO method


Regards
michel

[cheelie]

I tried Charles' method (which I had tried before) and addressed it to 2 of my email addresses I use. The hardcoded address, whether it be "To" or "CC" is received but the address pulled from the cell is not. However both the emails which are delivered show the address from the cell as "To" or "CC" as if they had been sent!!!! Confused!!!
Why is CDO not playing ball??
I have to use CDO as not all personnel using the macro have email accounts set up on the PC's and I can't think of an alternative method to send.

Thanks

Cheelie