Discussion :

[eown]

Bonjour, j'ai un programme qui verifie les mail que je recois dans outlook et recupere les piece jointes, le traitement se fait sans probleme mais par moment j'obtiens une erreure

Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Outlook.MailItem'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{00063034-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)).

Je demande juste si d'aprés ce message quelqu'un pourrait m'en dire un peu plus sur le probleme.

merci

[jmfmarques]

tu es ici sur le forum VB, pas Donet (pour VN.Net)

[eown]

hmm j'ai trouver le probleme mais je ne sais pas du tout comment le resoudre, en fait devant les mails outlook ils y' a desz petites icones

mon programme ne prend que les mails avec une enveloppe devant
Mais les mails avec un rond et une fleche rouge bloquent, apperement il s'agit des mails qui indique qu'un mail n'est pas arrivé a& destination.

Ils ne minteressent pas pour mon programme, comment les contourner??



EDIT: mon problème est un probleme lié a l'utilisation d'outlook depuis vb et j'ai suivit la meme méthode que pour un vb6 ou anterieur donc je pensé que sa place était plutot ici

[Herlece]

je me permet de remettre d'actualité cette discussion car je rencontre le même message. Voila lorsque je suis chez moi mon code fonctionne bien (je filtre les mails via leurs objet). Mais lorsque je suis à mon taff ce code ne fonctionne pas. et d'après ce que j'ai pu voir c'est parce que outlook est connecté sur un serveur mail et qu'il ne télécharge pas les mails mais les lis. Alors ma question est comment résoudre ce problème?
Voici mon code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim appOutLook As Microsoft.Office.Interop.Outlook.Application
        appOutLook = New Microsoft.Office.Interop.Outlook.Application
        'Récupération de l'espace de nom
        Dim outlookNameSpace As Microsoft.Office.Interop.Outlook.NameSpace = appOutLook.GetNamespace("MAPI").Folders("Dossiers publics")
        Dim inbox As Microsoft.Office.Interop.Outlook.MAPIFolder
        inbox = appOutLook.ActiveExplorer().Session.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
        Dim nbreMail As Integer
        nbreMail = 0
 
        Dim Items As Microsoft.Office.Interop.Outlook.Items = inbox.Items
        Dim MailItem As Microsoft.Office.Interop.Outlook.MailItem = Nothing
        Dim folderItem As Object
        Dim subjectName As String = String.Empty
 
        Dim filter As String = "RE: Info montante N° " & [Ref_REGIE_N_TextBox].Text
        Try
 
            For Each MailItem In Items
                If MailItem.Subject.ToUpper.Contains(filter.ToUpper) Then
                    nbreMail = nbreMail + 1
                    subjectName = MailItem.Subject
                End If
            Next
            folderItem = Items.FindNext()
            subjectName = "The following e-mail messages were found: " _
                    & subjectName
            MessageBox.Show(subjectName)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Select Case nbreMail
            Case Is = 1
                MsgBox("le mail suivant a été trouvé:" & MailItem.Subject.ToString)
            Case Is = 0
                MsgBox("auncun mail trouvé")
        End Select

Le message d'erreur se produit sur cette ligne:For Each MailItem In Items