OUTLLOK: gestion de messages

jacques · 6 Juin 2003

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 · 6 Juin 2003

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

OUTLLOK: gestion de messages

jacques

Guest

Jon

Guest

Discussions similaires