Access Assigning Outlook Tasks

[darkstar257]

I looked into setting up automatic reminders for doing things from Access. I came across this method of assigning tasks from Outlook. I should be able to assign tasks to myself and recipients from this code. However, it activates the Microsoft security warning again. Is there another method to avoid the whole Microsoft security popups fiasco?

Dim outTask As Outlook.TaskItem
Dim outApp As Outlook.Application
Set outApp = New Outlook.Application
Set outTask = outApp.CreateItem(olTaskItem)
outTask.DueDate = Now() + 15 
outTask.ReminderTime = Now() + 1 
outTask.Body = "My task message"
outTask.Subject = "Testing Auto Task Assignment"
outTask.Recipients.Add "santaClaus1032@gmail.com"
outTask.Assign
outTask.Save
Set outTask = Nothing
outApp.Quit
Set outApp = Nothing