How to display the Outlook Address book?

[kre1973]

Currently I'm using the following VB 6.0 code to bring up the Outlook Address book where I can select names from it and put them in a textbox on my form. How would I do this in VB .Net??

Here is the VB 6.0 code which works great:

Private Sub cmdAddressBook_Click()
  Dim arrName As Variant, ReceipList As String
  Dim i As Integer, Receip As String
  On Error GoTo ToAddError
         
      MAPIMessages1.MsgIndex = -1
      MAPIMessages1.AddressEditFieldCount = 1
      MAPIMessages1.AddressCaption = "MVS Jobs Contacts Address Book"
      
      Resolve RECIPTYPE_TO
                 
      MAPIMessages1.Action = MESSAGE_SHOWADBOOK
                          
       For i = 0 To MAPIMessages1.RecipCount - 1
        MAPIMessages1.RecipIndex = i
        If i = 0 Then
           Receip = MAPIMessages1.RecipDisplayName
           If InStr(Receip, ",") > 0 Then
                arrName = Split(Receip, ",")
                Receip = Trim$(arrName(1)) & Trim$(arrName(0))
                ReceipList = Receip & "@abc.com"
            Else
                ReceipList = Receip & "@abc.com"
            End If
      Else
           Receip = MAPIMessages1.RecipDisplayName
           If InStr(Receip, ",") > 0 Then
                arrName = Split(Receip, ",")
                Receip = Trim$(arrName(1)) & Trim$(arrName(0))
                Receip = Receip & "@abc.com"
                ReceipList = ReceipList & "," & Receip
            Else
                Receip = Receip & "@abc.com"
                ReceipList = ReceipList & "," & Receip
            End If
      
      End If
      
       Next i
              
         txtPSC = txtPSC & "," & ReceipList
         txtPSC = Mid(txtPSC, 1, Len(txtPSC) + 1)
            
        If Left(txtPSC, 1) = "," Then
         txtPSC = Right(txtPSC, Len(txtPSC) - 1)
       End If
           txtPSC = Replace(txtPSC, ",", ";") 
            
Exit_Early_Add:
       Exit Sub
ToAddError:
        If Err <> 32001 And Err <> 32003 Then
            MsgBox "Mail Error: " & Chr$(13) & Err & Error$(Err), , "Mail Error"
            DoEvents
        End If
        Resume Exit_Early_Add    
   End Sub

Private Sub Resolve(Recip_Type As Integer)
 Dim i As Integer
  For i = MAPIMessages1.RecipCount - 1 To 0 Step -1
          MAPIMessages1.RecipIndex = i
         If MAPIMessages1.RecipType = Recip_Type Then MAPIMessages1.Action = RECIPIENT_DELETE
  Next i
End Sub

thanks

 

[BrianB]

You do more or less the same thing.

Just add the ref like you do in VB6 and .NET will handle the interop issues pretty painlessly.


Brian Begy
BugSentry - Automatic error reporting

http://www.bugsentry.com