issue with sending mail thru xls

Thank you, SOS and Dominicb, for your replies.

The codes that you pointed out thru the link works and the clickyes software also works.

However, my question here is whether it'd be possible not to use the software "clickyes" installed. I mean i prefer to use that i'm aware of or know how to take control of it.

I'm sort of in a dilemma. Don't know what to do. It's certainly not a good practice to disable the warning security from Outlook when sending automated email from the excel spreadsheet (only If i know how to disable it). because i don't want any incoming e-mails to my outlook that may contain virus that could trigger itself to send mails out from outlook without me knowing it.

But at the same time, i don't want to scare admin people by letting the warning security from outlook show up for every mails to be sent out automatically either.

If i disable the outlook warning security, that would be a greater risk, wouldn't it?

If i want to disable it, how do i go about doing that? so that i don't see it popping up for every single outgoing mails sent by excel via outlook.

Thank you in advance

Please find attached some examples of using excel only to send email using macros.

You may need to add excel.exe to your firewall lsit for this to work.

Hope this helps
Sam

Thank you for your replies,

I ended up combining the two codes together, sending a copy of the sheet and the CDO code. It works fine but there is a slight problem here. When a mail is sent out, i enclose an attachment to it. The problem here is the first person gets one attachment file, the second person gets two attachment files, the 3rd gets 3 attachment files. This is not right. It keeps on appending the previous to the current one. That's why it keeps on adding depending on the number of people to be sent to. What's right is each persons should get only one attachment file. There is something wrong in the code i may have overlooked.

Here is the code

    For N = 0 To i - 1

        TempFileName = "mysheet " & Format(Now, "dd-mmm-yy h-mm-ss")

        ThisWorkbook.Sheets("mysheet").Copy
        Set wb = ActiveWorkbook
        
        With wb
            .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormatNum
            .Sheets("mysheet").Range("B3") = mystaff(N)
            .Sheets("mysheet").Range("E3") = Format(Now, "dd-mmm-yy")
            .Close SaveChanges:=True
        End With
        
        myattach(j) = TempFilePath & TempFileName & FileExtStr
        
        With iMsg
            Set .Configuration = iConf
            .To = Addr(N)
            .CC = ""
            .BCC = ""
            .From = """Admin Staff"" <[email protected]>"
            .Subject = "mysheet for beginning week " & Format(Now, "dd-mmm-yy")
            .TextBody = strbody
            .AddAttachment myattach(j)
            .Send
        End With

        Kill TempFilePath & TempFileName & FileExtStr
        j = j + 1

I even tried to store the filename into the array, myattach but to no avail.

wonder what i have done wrong here.

Thank you in advance