OUTLLOK: gestion de messages

[jacques]

Bonjour...et merci à ceux qui essaieront de comprendre mon problème...

Je veux gérer un peu ma messagerie à partir dun fichier excel.En cherchant sur le Net, je suis arrivé à un résultat qui est le suivant:

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set mynewfolder = myFolder.Folders("Demande de Réservation")
'cherche le premier message dont l'objet sois FORM Result

Set myitem = mynewfolder.Items.Find("[Subject] =""FORM Results""")

Jusque là ça va, mais comment:
- déplacer myitem (qui est dans la boite "FORM Results" dans une autre boite : "demande taitées"??)... la fonction "MOVE" ne marche pas

par ailleurs, comment ouvrir automatiquement un fichier Excel lorsqu'un message arrive dans la boite "FORM Results"?

qq'un a-t-il une idée?

Merci encore pour ceux qui auront pris le temps d'essayer de comprendre...
a bientôt

 

[Jon]

voilà ce que j'ai pondu

Sub dd()
Dim olApp As New Outlook.Application
Dim olNmSp As Outlook.NameSpace
Dim sf As Outlook.MAPIFolder
Dim olTgtFolder As Outlook.MAPIFolder
Dim xy As Outlook.MailItem


Set olNmSp = olApp.GetNamespace("MAPI")
Set olDefltFolder = olNmSp.GetDefaultFolder(olFolderInbox)
Set olTgtFolder = olDefltFolder.Folders("test")

Set xy = olDefltFolder.Items.Find("[Subject]=""Golf w/ Jerry Wheeler""")


If Not xy Is Nothing Then
MsgBox xy.Body & "déplacé"
xy.Move olTgtFolder
End If

End Sub

bye
STéphane