how can i integrate the Redemption library in this code
so outlook security messege will not jump?
Dim olApp As OutLook.Application
Dim Olmapi As OutLook.NameSpace
Dim OlTmp As OutLook.MAPIFolder
Dim Olfolder As OutLook.MAPIFolder
Dim OlMail As Object
Dim OlItems As OutLook.Items
Dim strname
Set olApp = CreateObject("Outlook.Application")
Set Olmapi = olApp.GetNamespace("MAPI")
Set Olfolder = Olmapi.GetDefaultFolder(olFolderInbox)
Set OlTmp = Olfolder.Folders("TmpInbox")
Set OlItems = OlTmp.Items
Do Until OlItems.Count = 0
For Each OlMail In OlItems
Set OlItems = OlTmp.Items
strname = IIf(Len(OlMail.Subject) > 0, Rplace(OlMail.Subject), Int(1000 * Rnd) + 1)
strname = Rplace_n(strname)
strname = Left(Rplace(strname), 60)
OlMail.SaveAs "c:\Mails\" & strname & ".msg", olMSG
OlMail.Delete
Next
Loop