Bypass Outlook Security Setting when using Envelope in Workbook Method

Hi,

I was wondering if there is a way to bypass the security settings by adding to the code below. I've checked out (http://www.rondebruin.nl/mail/prevent.html) but it doesn't work for me as I am using a different method to send the emails. I am using Microsoft Office 2007.

Sub Send_EMailsTEST()
   Dim r As Integer
   Dim emaAl As String
   Dim CCList As String
   Dim subjectLine As String
   
   subjectLine = "Action Required: Update for Top Customers"
   
   For r = 12 To 14
        'Go to sheet with E-Mail list
        Sheets("Jan. 2012").Select
        'Store E-Mail address
        Email = Range("K" & r).Value & ";" & Range("L" & r).Value
        
        Sheets("Lists").Select
        CCList = Range("F2").Value
        
        'Go to sheet where e-mail body is
        Sheets("Template").Select
        
        'Select the range to be included in body of e-mail
        Sheets("Jan. 2012").Range("A11:O11").Copy
        ActiveSheet.Range("A30").Select
        ActiveSheet.Paste
        Sheets("Jan. 2012").Range("A" & r & ":O" & r).Copy
        ActiveSheet.Range("A31").Select
        ActiveSheet.Paste
        ActiveSheet.Range("A3:A33").Select
        
        'Start E-Mail
        ActiveWorkbook.EnvelopeVisible = True
        With ActiveSheet.MailEnvelope
            'Set the to address from the earlier stored variable
            .Item.To = Email
            .Item.CC = CCList
            'Set subject line based on range
            .Item.Subject = subjectLine
            'Send E-Mail
            .Item.Send
        End With
    'Move to next line
   Next r
  
    Sheets("Template").Select
    Rows("30:31").Select
    Selection.Delete Shift:=xlUp
  

End Sub