Discussion :

[jolinon]

Salut à tous. J'ai un problème vec ce code de Lebeau. lorsqu'un mail arrive ou alors lorsque j'appelle mon mail. j'obtient une erreur d'éxécution

Voici l'erreur:

Erreur d'éxecution: '-2147221233 (8004010f)'

Un Objet n'a pas été trouvé

qui apparaît dans un message-Box.

et après avoir appuyer sur

debugger

j'obtient la ligne marquée en gras dans le code comme source d'erreur

voici le 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
Private Sub Application_NewMail()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myItems = myInbox.Items
    Set myDestFolder = myInbox.Folders("Temp")
    Dim strName As String
    
    For Each myItem In myInbox.Items
    
        strName = myItem.EntryID
        
        myItem.SaveAs "C:\temp\" & strName & ".txt", olTXT
        myItem.Move myDestFolder
        Set myItem = myItems.GetNext
        
    Next myItem
End Sub

d'ap`re ce qui précède je crois qu'il faut que je comprenne ce signifie les Mots
CAPI, \Temp

merci d'avance
cordialement
Jolinon

[Oliv-]

Salut,

As tu bien un sous dossier TEMP dans ta boite de reception ?