Outlook - A program is trying to automatically send e-mail

[RP121]

I'm using the below code to auto send a number of e-mails during different times in the day; but I keep getting the security error message quoted below the code in which I have to hit 'Yes' before it sends. Is there any way of avoiding without using outside applications(all within the code).

Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "123@the123.com"
        .Subject = "123" &
        .Attachments.Add "C:\123.xls"
        .Send
        
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing

A program is trying to automatically send e-mail on your behalf. Do you want to allow this?

If this is unexpected, it may be a virus and you should choose “No”

Thanks In advance.

 

[blackbox]

you have 3 options that I know of

1. sign your macros

2. download an Outlook security add-in like this
http://www.dirfile.com/advanced_security_for_outlook.htm

3. use a CDO
http://www.mrexcel.com/board2/viewtopic.php?t=280298&highlight=
http://www.rondebruin.nl/cdo.htm