Outlook Secrity popup bypass with Redemption

[SkyHigh]

Hi Folks
Has anyone written a code to send emails silently in the background using Redemption utility with outlook express, I need to convert the following routines for Redemption, can someone kindly help me with that.

I am using outlook 2002 as client and I am not using MS Exchange Server -
Thanks
Brenda

---

---

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Dim vEmailTo As String
Dim vEmailCc As String
Dim vEmailBcc As String
Dim vEmailSubject As String
Dim vEmailMsg As String
Dim vAttachementOne As String
Dim vAttachementTwo As String

            Set objOutlook = CreateObject("Outlook.application")
            Set objEmail = objOutlook.CreateItem(olMailItem)

                With objEmail
                    .To = vEmailTo
                    .CC = vEmailCc
                    .BCC = vEmailBcc
                    .Subject = vEmailSubject
                    .Body = vEmailMsg & vbCrLf & vbCrLf & vbCrLf
                    .Attachments.Add (vAttachementOne)
                    .Attachments.Add (vAttachementTwo)
                    '.Display
                    .Send
                End With

Set objOutlook = Nothing
Set objEmail = Nothing

---[Code]---