Error message from this script

[Guest]

When I run this script it works, but I get a warning that stats someone is trying to access outlook how long do you want to allow access 1min erc. ok cancel. How can I avoid this? This is just a test script
TI

Public Sub meeting(
Set myOlApp = CreateObject("Outlook.Application"
Set myItem = myOlApp.CreateItem(olAppointmentItem
myItem.MeetingStatus = olMeetin
myItem.Subject = "Strategy Meeting
myItem.Location = "TBD
myItem.Start = #3/21/1997 1:30:00 PM
myItem.Duration = 9
Set myRequiredAttendee = myItem.Recipients.Add("Name, One"
myRequiredAttendee.Type = olOptiona
Set myOptionalAttendee = myItem.Recipients.Add("Name, Two"
myOptionalAttendee.Type = olRequire
myItem.Displa
End Sub

 

[Ken Slovak - [MVP - Outlook]]

That is due to the Outlook object model security. See
http://www.slipstick.com/outlook/esecup.htm#autosec for the options
available for avoiding the prompts.

When I run this script it works, but I get a warning that stats someone is

trying to access outlook how long do you want to allow access 1min erc. ok
cancel. How can I avoid this? This is just a test script.