Undgå sikkerhedsadvarelse fra outlook ved send TASK fra excel

Hej

jeg har følgende kode til at lave en tast fra Excel til outlook (VBA)

Sub LavOpgave()

Dim olApp As New outlook.Application
Dim olTask As outlook.TaskItem

Set olApp = New outlook.Application
Set olTask = olApp.CreateItem(olTaskItem)

With olTask
.Subject = "Dette er titlen"
.Body = "det her er body"
'.Owner = "Mig"
.Categories = "Projekt fra Excel"
'datoværk
.StartDate = DateValue("22-04-2008")
.DueDate = DateValue("23-04-2008")
'status
.Status = olTaskWaiting
.Importance = olImportanceNormal
.ReminderPlaySound = True
'på detaljefanen
.Companies = "Firma"
.TotalWork = "0"
.ActualWork = "0"

'hvis en anden skal have opgaven så:

.Recipients.Add ("modtagermail@mail.dk") 
.Recipients.ResolveAll  'fortæller bare at den skal finde navnet i kontakterne
.Assign  'assigner opgaven

'Skal gemmes
.Save


.Send  'hvis den skal sendes til en person - ARGG sikkerhedsfejl
End With

Set olTask = Nothing
Set olApp = Nothing
MsgBox "så er vi færdige"

end sub


problemet er bare at outlook kommer op med, vil du give adgang... x antal minutter.. men kan man undgå det????