Excel Sending Email via VBA - Suppressing the Warnings

Question

Hello everybody,
I would be very appreciative if someone more knowledgeable than would help me out. I am building a VBA code in Excel that will send an Excel File as an attachment in an email to somebody using Outlook. I can get everything to work just fine except that a
warning message pops up and it is quite irritation and negates the usefulness of the macro if I have to constantly click on [Allow].
Any help with how to suppress the warning messages would be greatly appreciated! 
Note: My company's IT will not let me download add-ins or programs not on their "safe" list.
Also, I have included the important parts of my code below.
Thanks!
Eric
Sub Email_Finance()
    Dim oApp As Object
    Dim oMail As Object
    Dim WB As Workbook
    Dim FileName As String
    Dim wSht As Worksheet
    Dim shtName As String
    Dim wsTab As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ' The section below goes to Outlook to create an email, fill in some details, and then emails it out.
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
        ' Uncomment the line below to hard code a recipient
        .To = "[email protected]"
        .Cc = "[email protected]"
        ' Uncomment the line below to hard code a subject
        .Subject = "G&A Monthly Report - Finance"
        ' Uncomment the lines below to hard code a body
        .body = "Dear Eric," & vbCrLf & vbCrLf & _
          "Please find attached the G&A report for this month. Please review and adjust accordingly. " & vbCrLf & vbCrLf & _
          "Thanks, Eric"
        .Attachments.Add WB.FullName
        .Display
        .Send
    End With

Answer 1

See http://www.outlookcode.com/article.aspx?id=52 for the list of your options.
Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption
Redemption - what the Outlook
Object Model should have been
Version 5.5 is now available!