Χαιρετώ την ομύγυρη

Θέλω να εμφανίσω το standart παράθυρο του βιβλίο Διευθύνσεων του Outlook. Να διαλέγει ο χρήστης τις διευθύνσεις που θέλει και μετά να τους παίρνω στην εφαρμογή μου

Ακολουθεί πρόχειρα γραμμένος κώδικας

Private Sub MailBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MailBtn.Click

        Dim objOutlook As Object
        Dim ObjAddressBook As Object
        Dim ObjMessage As Object

        objOutlook = Microsoft.VisualBasic.CreateObject("MAPI.session")
        objOutlook.logon("Microsoft Outlook", "", "true")
        ObjMessage = objOutlook.outbox.messages.add

        ObjAddressBook = objOutlook.addressbook(ObjMessage.recipients, "Επιλογή Αποδεκτών", True, True, 1, "add")

''''''''''''''''''έδώ θέλω κάτι για να πιάσω τις επιλογές του χρήστη. Καμιά ιδέα??

        objOutlook.logoff()

        ObjAddressBook = Nothing
        ObjMessage = Nothing
        objOutlook = Nothing

    End Sub

Απ' ότι βλέπω, χρησιμοποιείς late binding (όλα αυτά τα "As Object") που σημαίνει ότι θα σου βγει η πίστη για να βρεις τις μεθόδους και τα properties από τα objects. Επιπρόσθετα, μπορεί να προκύψουν run-time errors που δεν θα τα πιάσει το compilation. Μάλλον αυτός ο κώδικας είναι από VBScript και έχει γίνει port σε VB.NET, οπότε παράτα τον...

Για το standard address book δεν ξέρω να σε βοηθήσω, ωστόσο μπορείς να ακολουθήσεις εναλλακτική οδό. Μπορείς να διαβάσεις όλα τα contacts και να τα εμφανίσεις σε δική σου φόρμα. Είχα κάνει κάτι παρόμοιο και με είχε βοηθήσει αυτό το άρθρο: http://support.microsoft.com/?kbid=313802

Επίσης, θα πρέπει να δεις τι θα κάνεις με το security, καθώς στη μέση μπαίνει το Outlook Object Model Guard. Δες εδώ http://www.outlookcode.com/d/sec.htm κι εδώ http://msdn2.microsoft.com/en-us/library/aa168346(office.11).aspx

Γενικά, μπορείς να βρεις πολλές πληροφορίες για development με το Outlook εδώ: http://www.outlookcode.com/d/index.htm#dotnet

KelMan:

Απ' ότι βλέπω, χρησιμοποιείς late binding (όλα αυτά τα "As Object") που σημαίνει ότι θα σου βγει η πίστη για να βρεις τις μεθόδους και τα properties από τα objects. Επιπρόσθετα, μπορεί να προκύψουν run-time errors που δεν θα τα πιάσει το compilation. Μάλλον αυτός ο κώδικας είναι από VBScript και έχει γίνει port σε VB.NET, οπότε παράτα τον...

 
Είχες δίκιο Kel. Το παράτησα τον κώδικα και το υλοποίησα με τον κλασσικό τρόπο.

Απλά βαριόμουν να φτιάξω από την αρχή φορμούλα για το Address Book.

Γεια όποιον ενδιαφέρεται ο κώδικας πάει κάπως έτσι 

        Dim oApp As Outlook.Application = New Outlook.Application()

        ' Get NameSpace and Logon.
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")

        Try
            oNS.Logon("Microsoft Outlook", "", False, True)
            Dim MyAddressList As Outlook.AddressList = oNS.AddressLists("My Address List")
            'Retrieve the contacts of the selected address book
            Dim MyAddressEntries As Outlook.AddressEntries = MyAddressList.AddressEntries
            Dim myentry As Outlook.AddressEntry

            For i = 1 To MyAddressEntries.Count
                myentry = MyAddressEntries.Item(i)
                Me.AddressLst.Items.Add(myentry.Name)
            Next
        Catch
            MsgBox("Μη Προσβάσιμο Βιβλίο Διευθύνσεων!", vbExclamation)
            Me.Close()
        Finally
            oNS.Logoff()
            oApp = Nothing
            oNS = Nothing
        End Try