Discussion :

[a_ferre]

Hello

Je bosse sur un logiciel de gestion et j'aimerai interagir avec le serveur exchange de la boite pour laquelle je travaille. Mais plus je cherche et moins je trouve (bizarre hein) de documentation sur l'utilisation d'un serveur exchange avec outlook et vb.net.

voici le code de base que j'essaye de bidouiller pour y arriver mais rien a faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 Private Sub CreationContact() Handles Button1.Click
 
 
        Dim oApp As Outlook.Application = New Outlook.Application()
        Dim MonContact As Outlook.ContactItem
        Dim contactFolder As Outlook.MAPIFolder
        Dim cpt As Integer
        contactFolder = oApp.GetNamespace("MAPI").PickFolder
 
        MonContact = oApp.CreateItem(OlItemType.olContactItem)
        For Each MonContact In contactFolder.Items
            cpt = cpt + 1
        Next
 
        MsgBox(cpt & " contacts")
 
 
        oApp = Nothing
        MonContact = Nothing
 
    End Sub

Et la j'essaye juste de compter le nombre de fiches qu'il y a dans le repertoire que je choisis. visual studio me retourne une erreurau niveau du for each en me signalant Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Microsoft.Office.Interop.Outlook.ContactItem'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{00063021-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Cette interface n'est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).

Si quelqu'un peut m'aider je l'aimerai toute ma vie

[a_ferre]

re

En testant ce code sur mes dossiers personnels (stockés sur ma machine) ca marche très bien! Forcément me direz vous, puisque ca marche jamais sur ce qu'on veut :'(

[Oliv-]

Bonjour,
ca doit venir du fait qu'il n'y a pas que des ContactItem dans ton dossier (il peut y avoir des liste de diffusion ou des même des mails).

Cependant tu peux simplifier remplace ta boucle par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox contactFolder.items.count

[a_ferre]

Finalement j'suis passé par la selection des contacts que je veux importer. si il y a des contacts selectionnés et que j'appuie sur le bouton importer, le programme détecte les items et les enregistre automatiquement dans la base de données.

Merki!