OE Address Book interface not too friendly with exporting - Seeking A97 solution to read it

[MLH]

Anyone ever experiement importing WAB data
directly into A97? Would lke a chance to look
at any work done in this arena.

[MLH]

How did you intend MAPI_DIALOG to be defined?

[Lyle Fairfield]

"Lyle Fairfield" <ly***********@ aim.com> wrote in
news:11******** *************@i 39g2000cwa.goog legroups.com:

As usual, we have to ask you, wtf do you want to do? If you want to
find out Fred Jones WAB address and Fred Jones is in your WAB then this
(first posted may years ago) may do it.

Option Explicit

Type MAPIRecip
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type

Declare Function MAPIResolveName _
Lib "c:\program files\outlook express\msoe.dl l" _
Alias "BMAPIResolveNa me" ( _
ByVal Session As Long, _
ByVal UIParam As Long, _
ByVal UserName As String, _
ByVal Flags As Long, _
ByVal Reserved As Long, _
ByVal Recipient As Long) As Long
Private Const MAPI_DIALOG As Long = &H8
Public Function GetEmailAddress ThroughOE(ByVal strName As String) As
String
' should bring up resolve name dialog if name not found
Dim r As MAPIRecip
MAPIResolveName 0, 0, strName, MAPI_DIALOG, 0, VarPtr(r)
GetEmailAddress ThroughOE = StrConv(r.Addre ss, vbUnicode)
End Function

Public Sub Test()
Debug.Print GetEmailAddress ThroughOE("Cand ace Bergen")
End Sub

--
Lyle Fairfield