The message is "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this?" Here is the code that I am using in a module in Access.

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("bob_kudulis@hotmail.com")
objOutlookRecip.Type = olTo


.Display

End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub