Pointer Outlook local depuis Access sur serveur
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:
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... |
