RÉCUPÉRÉ AUTOMITIQUEMENT UNE PIÈCE JOINTE D'UN E-MAIL SOUS OUTLOOK

Private Sub Application_NewMail()


'Set myOlApp = CreateObject("Outlook.Application") ' mettez cela si vous l'utiliser directement sur VB
Set myOlApp = CetteSessionOutlook ' mettez cela si vous l'utiliser directement sur Outlook
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

nb_messages = myFolder.Items.Count
For i_mess = 1 To nb_messages
    estLu = myFolder.Items(i_mess).UnRead

    If estLu = True Then
        Set myItem = myFolder.Items(i_mess)
        myItem.Display

        Set myItem2 = Application.ActiveInspector.CurrentItem

        If Left(myItem2, 16) = "Les fichiers zip" Then
            Set myAttachments = myItem2.Attachments
            nb_fic = myAttachments.Count
            If nb_fic <> 0 Then
                For i = 1 To nb_fic
                mois = Int(Right(Left(myAttachments.Item(i).DisplayName, 6), 2))
                    myAttachments.Item(i).SaveAsFile "c:\sauv_mail" & _
                    myAttachments.Item(i).DisplayName
                Next i
            End If
        End If
    End If
Next i_mess
End Sub