Bonjour,
Ma question première est : existe-il une différence importante entre Outlook et outlook Express ?
J'ai un bout de code (voir ci dessous) qui est cessé enregistrer les pièces jointes de outlook. Je dois utiliser outlook express, et quand j'utilise ce code dans un module access 2003, il ouvre bien outlook express mais il ne fait aucune action d'enregistrement.
Est-ce nomal docteur ??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Sub SaveAttachments(strPath As String) Dim Ol_App As New Outlook.Application Dim Ol_MAPI As Outlook.NameSpace Dim Ol_Items As Outlook.Items Dim Ol_Item As Outlook.MailItem ' Dim strAttachment As String Dim NbAttachments As Integer Dim i As Integer Dim NbEmails As Integer ' Set Ol_MAPI = Ol_App.GetNamespace("MAPI") Set Ol_Items = Ol_MAPI.PickFolder.Items ' For Each Ol_Item In Ol_Items NbAttachments = Ol_Item.Attachments.Count i = 1 Do While i <= NbAttachments strAttachment = Ol_Item.Attachments.Item(i).FileName Ol_Item.Attachments.Item(i).SaveAsFile strPath & strAttachment i = i + 1 Loop Next Ol_Item ' Set Ol_Item = Nothing Set Ol_Items = Nothing Set Ol_MAPI = Nothing Set Ol_App = Nothing End Sub
Partager