sauvegarde automatique de fichier attacher sur disque dur par vba

Bonjour,

Lorsque un e-mail arrive dans mon outlook et qu'il y a xyz dans le sujet,

je veux sauvegarder l'attachement dans un répertoire particulier sur mon
disque dur.

Pour commencer j'essai de faire marcher le code suivant (qui envoit un
email lorsque un contact est ajouté) que je dois mettre dans un module
de classe. Je l'ai fait.

1. est-ce que j'ai créé une classe qui s'appelle myolitems
2. comment y avoir acces a partir d'un autre module
3. on me dit que initialize_handler doit etre appelle avant que ca
puisse fonctionner, comment faire
J,ai essayé
Dim oi as myOlitems
mais je ne vois pas les propriétés et méthode.
je voulais faire oi.initialise_handler mais non marche pas....

quelqu'un peut m'aider ou m'envoyer ou il y a des exemples du genre?


Dim myOlApp As Outlook.Application
Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()
Set myOlItems =
myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Dim myOlMItem As Outlook.MailItem
Dim myOlAtts As Outlook.Attachments
Set myOlMItem = myOlApp.CreateItem(olMailItem)
myOlMItem.Save
Set myOlAtts = myOlMItem.Attachments
' Add new contact to attachments in mail message
myOlAtts.Add Item, olByValue
myOlMItem.To = "Sales Team"
myOlMItem.Subject = "New contact"
myOlMItem.Send
End Sub

.