Sending email from within Access 2003

I am using the http://support.microsoft.com/?kbid=286431 version of the VBA Code - however, there are two messages that pop up at the end of the code.

 How do i prevent this so it is completely automatic?  The first is check the box for "A program is trying to access e-mail address you have stored in outlook...., then I need to manually click on Allow Access" and the second is to click yes to "A program is trying to automatically send email on your bechalf - do you want to allow this......

Also I need to have my message be displayed on multiple lines how do I break up the body of my email to display correctly.

Thanks,

Karen

Here is my code:

ub SendMessage(Optional AttachmentPath)
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment

   ' 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("Karen Schaefer")
      objOutlookRecip.Type = olTo
' .Recipients.Add("Mark Olson")
      ' Add the CC recipient(s) to the message.
      Set objOutlookRecip = .Recipients.Add("Karen Schaefer")
      objOutlookRecip.Type = olCC

      ' Set the Subject, Body, and Importance of the message.
      .Subject = "Master Reference Table"
      .Body = "Latest data is ready for your input. & "" &  vbCrLf & vbCrLf" & _
                "Thanks & "" & vbCrLf & vbCrLf" & _
                "Karen"
      .Importance = olImportanceHigh  'High importance

      ' Add attachments to the message.
     ' If Not IsMissing(AttachmentPath) Then
      '   Set objOutlookAttach = .Attachments.Add(AttachmentPath)
      'End If

      ' Resolve each Recipient's name.
      For Each objOutlookRecip In .Recipients
         objOutlookRecip.Resolve
         If Not objOutlookRecip.Resolve Then
         objOutlookMsg.Display
      End If
      Next
      .send

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