VBA Excel et Outlook

[C@thy]

Bonjour le forum,

j'ai écrit une macro excel qui marche super bien et traite les e-mails reçus,
remplit un tableau excel et archive les e-mails traités dans un sous-répertoire
la question que je me pose est la suivante :
est-il possible sous outlook de faire l'équivalent d'une macro événementielle
(à chaque fois qu'un e-mail arrive)?
Cela éviterait à l'utilisateur d'avoir à ouvrir Excel pour lancer la macro.

Merci pour vos lumières.

Edit :

ceci, dans un module outlook, fonctionne, mais il faut lancer la macro...

Sub Application_NewMail()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.MAPIFolder
    Dim myDestFolder As Outlook.MAPIFolder
    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

ceci ne fonctionne pas : (pour archiver le dernier reçu)

Set myItems = myInbox.Items(1)

Bises

C@thy

 

[C@thy]

Re : VBA Excel et Outlook

J'ai trouvé!

Il faut la mettre dans le module ThisOutlookSession et rajouter Private devant Sub,

reste à trouver comment copier 1 seul message (celui qui vient d'arriver....)

Merci à vous... j'avance...

Bises

C@thy

 

[C@thy]

Re : VBA Excel et Outlook

RESOLU

Ceci fonctionne :

Sub test()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.MAPIFolder
    Dim myDestFolder As Outlook.MAPIFolder
    Dim myItems As Outlook.Items
  
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myItems = myInbox.Items
      
    i = myInbox.Items.Count 'dernier message
    MsgBox myInbox.Items(i).Subject

End Sub

j'adapte avec mon traitement...

Bizzz

C@thy