Preventing Outlook Security Alert

I am using windows 8 pro with office 365.  I have created a database in MS Access of some 83 records with different email addresses.  I have composed a form module that traverse the database table, selects the desired records, one at a time that fills a form.

I want to send an email with the form attached as a PDF.  It works BUT I get an Outlook Security alert that says a program is attempting to send an email on my behalf and asks (Allow, Deny, Help.  I have to sit and click ‘Allow; for each message.

I have tried changing the registry, as well as changing the TRUST Center.  Neither option appears to work.  I have probably done it incorrectly.

Can you help?

Thanks, Surry Everett

Code Follows

Sub CreateEmails()

    Dim Query
    Dim Where
    Dim DBOC_Msg
    Dim ID As String   

    Query = "SELECT members.ID, members.Inactive, members.[Account Name], members.Mail, members.Email, members.LName1, members.FName, members.MName, "
    Query = Query + "members.[permanent-address], members.nok, members.birthdate, members.[reg form date], members.SSN, members.[Home Phone], "
    Query = Query + "members.[Work Phone], members.[Cell Phone], members.Name, members.Registration, members.Trustee, members.[JT Owner], members.Address, "
    Query = Query + "members.Address11, members.Address1, members.[City-St-Zip], members.LName, members.Remarks, members.[reg form signed], "
    Query = Query + "members.[Account Registration]"
    Query = Query + "FROM members "
    Query = Query + "WHERE (((members.Inactive) = False) And ((members.Mail) = False))"
    Query = Query + "ORDER BY members.LName1, members.FName, members.MName;"

    Dim Recordset   

    Set Recordset = CurrentDb.OpenRecordset(Query)   

    DBOC_Msg = "Please see the attached registration update form which contains your data currently on file. " + Chr(12) + Chr(12)
    DBOC_Msg = DBOC_Msg + "Please review, update if necesary, and return only if updated." + Chr(12) + Chr(12)
    DBOC_Msg = DBOC_Msg + "Thank you," + Chr(12) + Chr(12)
    DBOC_Msg = DBOC_Msg + "Surry Everett" + Chr(12)
    DBOC_Msg = DBOC_Msg + "DBOC Club Manager"

    Do While Recordset.EOF = False     

        ID = Recordset("ID")
        Where = "ID = " + ID       

        DoCmd.OpenForm "frmUpdateEmail", , , Where      

        If Recordset("ID") = 27 Then
            'DoCmd.SendObject (acSendForm, "frmUpdateEmail", acFormatPDF, Recordset("Email"), , , "DBOC Reg Form", DBOC_Msg, False
              DoCmd.SendObject acSendForm, "frmUpdateEmail", acFormatPDF, Recordset("Email"), , , "DBOC Reg Form", _
                "Dear " + Recordset("FName") + ":" + Chr(12) + Chr(12) + DBOC_Msg, False

        End If           

        Recordset.MoveNext

    Loop   

    DoCmd.Close

End Sub