Overrule sikkerhed i Outlook

Når jeg starter følgende VBA kode fra Excel, kommer Outlook frem med en meddelelse der lyder:

"A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this?

Allow access for x minutes"

Her kan jeg så manuelt trykke allow for 5 minutes, hvorefter resten af min kode udføres som den skal.

Er der nogen der ved hvordan jeg kan undgå at denne "afbrydelse" kommer frem?

Håber at I kan hjælpe..

Her er min kode:

MyMailGroup = Range("G6")

Set gSession = CreateObject("MAPI.Session")

gSession.Logon "Outlook"

Set addList = gSession.AddressLists("Global Address List")
Set addMailList = addList.AddressEntries(MyMailGroup)

CurrentRowValue = 2


For Each addEntry In addMailList.Members
    iFreeBusyCode = addEntry.GetFreeBusy(Now, DateAdd("n", 1, Now), 1)
    iFreeNameCode = addEntry.Name(Now, DateAdd("n", 1, Now), 1)
   
    Range("A" & CurrentRowValue) = iFreeNameCode
    Range("B" & CurrentRowValue) = iFreeBusyCode
   
    CurrentRowValue = CurrentRowValue + 1
Next