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
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.