PB 8 , Microsoft Outlook XP

string ls_ret
OLEObject iole_outlook, iole_namespace, iole_folder_in

iole_outlook = Create OLEObject
li_return = iole_outlook.ConnectToNewObject("outlook.application")

If li_return <> 0 Then
//goto: errors
Else
iole_namespace = iole_outlook.GetNameSpace("MAPI")
iole_folder_in = iole_namespace.GetDefaultFolder(6)
End If

ll_limit = iole_folder_in.Items.Count

For ll_loop = 1 To ll_limit
ll_index += 1

istrs_oi[ll_index].an_von = iole_folder_in.Items(ll_loop).SenderName
//здесь получаю собщение от оутлок 'програма пытается получить доступ к Addressbook. Разрешить?’ Yes No
Проблема: если пользователь выбирает 'No' , получаю ошибку 'недействительное своиство SendName'
Вопрос: возможно ли это собщение отключить или както обработать эту ошибку?
…
…
Next