try this :

CloseIt = FindWindow(vbNullString, "Microsoft Outlook")
hwndButton = FindWindowEx(CloseIt, 0, "Button", "OK")
SendMessage hwndButton, BM_CLICK, CLng(0), CLng(0)

and tell me if it works becouse i forgot how it works i mean this functions FindWindowEx, i want to refresh my memory