Récupéré automitiquement une pièce jointe d'un e-mail sous outlook

Télécharger le projet
Commenter

Description

Ce code permet de récupérer les fichiers attachés dans de nouveaux mails.
Ici on récupère les pièces jointes des message dont l'objet est "Les fichiers zip" et on les sauvegarde dans un répertoire.

Source / Exemple : 


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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DJGunsmith)