Results 1 to 4 of 4
  1. #1
    Lounger
    Join Date
    Feb 2001
    Location
    London UK, Gtr London, England
    Posts
    46
    Thanks
    0
    Thanked 0 Times in 0 Posts

    WANT: Stand Alone MAPI address book App

    Many years ago I remember seeing a simple stand alone application that presented the MAPI (outlook) address book. (it was either a sample or on winfiles.com) . Now I have had a request for such a product and I can't find it out there. Can anyone direct me to where I can find this?

    Thanks

  2. #2
    Plutonium Lounger Leif's Avatar
    Join Date
    Dec 2000
    Location
    U.K.
    Posts
    14,010
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WANT: Stand Alone MAPI address book App

    Something like <A target="_blank" HREF=http://www.dencom.co.nz/gab/gab.htm>http://www.dencom.co.nz/gab/gab.htm</A> ?

  3. #3
    Lounger
    Join Date
    Feb 2001
    Location
    London UK, Gtr London, England
    Posts
    46
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WANT: Stand Alone MAPI address book App

    Interesting, but not quite: This app was even simpler, basically just the address book dialogue from Outlook.
    We use Exchange and have a GAL, as well as public contact lists, so the workgroup features of this product would not be useful. However i may come back to it later.
    Thanks!

  4. #4
    Lounger
    Join Date
    Feb 2001
    Location
    London UK, Gtr London, England
    Posts
    46
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WANT: Stand Alone MAPI address book App

    Sod it, Wrote my own. Doesn't have all the features of the Outlook Version, but should do the job:

    (CDO 1.2.1)
    Dim oSession As MAPI.Session
    Dim oReps As Recipients 'not realy needed but useful if i reuse the code for something else

    Sub main()
    If oSession Is Nothing Then
    Set oSession = CreateObject("MAPI.Session")
    End If
    'logon to the session
    oSession.Logon ShowDialog:=True, NewSession:=False
    On Error GoTo ABend 'mainly if user hits cancel
    Set oReps = oSession.AddressBook(, "Address Book", , , 0, , , , 0)
    ABend:
    oSession.Logoff
    Set oSession = Nothing 'clear session
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •