Bonjour,

Objectif: Récupérer des tâches sur Outlook et les insérer dans une table Access pour les mettre en forme dans un rapport Access.

La version ci-dessous, tout en local et Office 2003 fonctionnait parfaitement.

A la suite d'une réorganisation, outre le passage en Office 2007, Outlook est resté local, mais la base Access a été déplacée sur le serveur.

Mon problème: Je ne sais pas comment déclarer à Access que Outlook est sur C:\ alors que lui même est sur Y:\

Merci d'avance pour l'aide.

Cordialement,

JYV

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
30
31
32
33
34
35
36
dteImport = Date + 15
  strDteImport = CDate(dteImport)
   Dim rst As DAO.Recordset
   Set rst = CurrentDb.OpenRecordset("Tbl_Tasks")
 
 
   ' Set up Outlook objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.Namespace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.TaskItem
   Dim objItems As Outlook.Items
   Dim Prop As Outlook.UserProperty
 
   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.Folders.Item(1).Folders.Item(9).Folders.Item(2) ' Joachim
 
 
    Set objItems = cf.Items.Restrict("[duedate] >= '" & Format(strDteImport & ", dd/mm/yyyy") & "'")
 
 
 
   INumTaches = objItems.Count
   If INumTaches <> 0 Then
      For i = 1 To INumTaches
        TaskItem = objItems(i)
        If TaskItem.DueDate <= dteImport Then
            MsgBox ("titi")
        End If
 
         If TypeName(objItems(i)) = "TaskItem" Then
            Set c = objItems(i)
            rst.AddNew
            rst!FirstName = c.FirstName
            rst!LastName = c.LastName
etc...