message d'erreur avec outlook

[lily333]

Kikou!

J 'ai un programe qui va reccupérer des données sur mes contacts dans outlook. Quand je rapatri les noms par exemple, aucun problème. Mais quand il s'agit des adresses, il me met un message d'erreur :
"Un programme essaie d'accéder aux addresses de messagerie enregistrées dans outlook"
Puis il me propose de l'autoriser ou non.
Or mon appli doit fonctionner de manière automatique, donc sans personne pour valider chaque fois que ce message apparait...

Si vous aviez une petite idée, j ai fait pas mal de recherche avant de demander de l'aide, mais la je seche completement. Merci!!

voici mon code...

Imports System.IO
Imports System.Reflection

Module Module1

    Sub Main()
        Dim oOL As Microsoft.Office.Interop.Outlook.Application
        Dim oNS As Microsoft.Office.Interop.Outlook.NameSpace
        Dim oFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
        Dim oItems As Microsoft.Office.Interop.Outlook.Items
        Dim oContact As Object

        oOL = New Microsoft.Office.Interop.Outlook.Application
        oNS = oOL.GetNamespace("MAPI")
        oFolder = oNS.Folders("Dossiers publics")
        oFolder = oFolder.Folders("Tous les dossiers publics")
        oFolder = oFolder.Folders("CONTACTS")
        oItems = oFolder.Items

        Dim SW As New StreamWriter("MonFichier.txt")

        For Each oContact In oItems

            Dim suivant As Boolean
            Dim contact As String

            suivant = False
            contact = ""

            While suivant.Equals(False)

                Try
                    Dim ad As String = oContact.Email1Address
                    SW.Write(ad)

                    suivant = True

                Catch
                    contact = "!!!!!!!!!!!!!!!"

                End Try

            End While

        Next

        SW.Close()
        oOL = Nothing
        oNS = Nothing
        oFolder = Nothing
        oItems = Nothing
        oContact = Nothing

    End Sub

End Module

 

[zeb]

C'est une fonctionnalité d'OutLook.

Depuis les vers (virus) qui vont piocher dans le carnet d'adresses d'OutLook, nous avons ce genre de message obligatoires :sarcastic:

 

[lily333]

donc ya aucun moyen d'automatisation!!???

 

[zeb]

Non, puisque des petits malins ont fait des virus avec cette possibilité.

Il existe peut être un moyen, genre certification de ta macro ou quelque chose comme ça. Mais ce n'est pas trivial. Si tu cherches dans ce sens et que tu trouves une soluce, tu nous en parles

Ah moins qu'un autre forumeur te vienne en aide ici ...