Hi all,

I am currently looking at Redemption (http://www.dimastr.com/redemption)
with a intent on buying it, to allow me to program Outlook forms without the
security prompts continuously being displayed.

While it seems fairly straight-forward (and well documented) to create an
email item and send it programmatically, what I am wanting to do is
auto-populate various fields in my custom outlook form with values that I
look up through CDO, and through outlook objects.  At the moment the code
that does this is causing several security prompts to appear when I load the
form.

Here is my startup code:

Function Item_Open()
If item.size = 0 Then 'if in compose mode
 dim myOlApp

 set myOlApp = CreateObject("Outlook.Application")
 Item.UserProperties("Req Name") = _
  myOlApp.Application.GetNamespace("MAPI").CurrentUser.Name

  Const CdoPR_BUSINESS_TELEPHONE_NUMBER = &H3A08001E
 dim objSession
 set objSession = CreateObject("MAPI.Session")
 objSession.Logon ,,,False
 For each objAddrList in objSession.AddressLists
  If left(objAddrList.Name,19) = "Global Address List" _
   or objAddrList.Name = "Offline Address Book" Then
   'use online or offline version
   'Get address entry from the GAL
   Set objAddr = _
    objAddrList.AddressEntries(objSession.CurrentUser.Name)
   Item.UserProperties("Req Phone") = _
    objAddr.Fields(CdoPR_BUSINESS_TELEPHONE_NUMBER)
   exit for
  End If
  Next
  objSession.Logoff
  set objSession = Nothing
End If
End Function

Can anyone tell me how I go about obtaining the equivilent information
as:

myOlApp.Application.GetNamespace("MAPI").CurrentUser.Name

And

objAddr.Fields(CdoPR_BUSINESS_TELEPHONE_NUMBER)

Through redemption?

Thanks

David Buddrige