Discussion :

[FlyRoxxx]

Bonjour,
j'aimerai lier des tâches outlook enregistré, cepandant lorsque je cherche à lier les tables (Via l'interface Access et en selectionnant Outlook()), il ne me propose dans la liste que les carnets d'adresses et non les autres dossiers comme par exemple les taches qui dans mon cas sont mas "cible" !!!

J'ai suivie la procédure de recherche sans trouver de solution à mon problème, si quelqu'un sais comment puis-je faire !

Merci d'avance,
Romain

[cotmar]

Excuses moi Flyroxx,
Est ce que tu ne pourrais pas être un ^peut plus clair dans ta question s'il te plait ?
Marco.

[FlyRoxxx]

Oui bien sur

En fait, j'ai un peut avancer, je trouve maintenant via Exchange() la totalité des dossiers, cepandant le fait de lier des taches Outlook à une base Access ne me donne pas acces a toute les information désirés !!!

J'explique un peut mon but :

Une petite aplication sur Outlook permet aujourd'hui à l'entreprise ou je suis de creer des compte rendu mensuel, avec la gestion de taches :
Les employer remplissent leurs taches avec le temps de débu / de fin et le petit script génère donc un classement en fonction de ses date et crée une clé unique. Cela permet donc d'avoir un récapitulatif rapide via Outlook de se qui a était fait depuit la mise en place de se systeme.

Ce que je cherche à faire :

Chaque fin de mois, j'aimerai présenter un grafique des données collecter, répartition du temps par projet (Taches) en fonction de chaque employer et dans des domaines prédéfinie. Par exemple l'employer A a consacrer 25% de son temps mensuel à installer des nouveaux serveurs et l'employer B 20% de son temps mensuel à installer le nouveau réseau. Et enfin, le programe devrai être capable de géré le fait que l'employer A et l'employer B on travailler enssemble sur la configuration des posts.

Ce qui me donne les relations suivantes :

- Un employer peut travailler dans un ou plusieur domaines pendant un projet (Tache)
- Un projet peut être executé par un ou plusieur employer

L'application devrai être développer sous Access cepandant pour cela il faut que j'arrive à lier ou importer les taches access (Un copier coller est faisable mais pas digne d'un vrai développement !!!) Il faudrai intéroger la base d'Outlook (Je pense via Exchange).

Mon problème maintenant est donc que lorsque je lie la base "Taches" d'outlook à Access, les heures de début, de fin d'échéance ect ne sont pas remplie et les autres champs contienne des valeur qui ne corresponde pas hormis les noms... Comment extraire les données bruts des taches d'Outlook !?

Merci, Romain

[cotmar]

SAlut,

Je n'ai pas encore entièrement compris ton problème.
Il me semble que tu cherches à récupérer des données ou à créer des tâches Outlook...

Voici un bout de code que j'ai récupéré là dessus (non entièrement testé). J'espère que celà pourra t'aider.

Marco.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
 
 
 
'****************************************************************************************
'* Module comprenant les fonctions d'interfaçage avec Outlook
'****************************************************************************************
Option Compare Database
Option Explicit
Public Function FctSendEmail( _
    ByVal StrDestinataire As String, _
    ByVal StrSujet As String, _
    ByVal StrMessage As String) As Boolean
'Envoie de mail
 
Dim objOutlook          As New Outlook.Application
Dim objOutlookMsg       As Outlook.MailItem
 
    On Error GoTo ErrHandler
 
    FctSendEmail = False
 
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    With objOutlookMsg
           .To = StrDestinataire    '"Adresse@Destinataire"
           .Subject = StrSujet      '"Objet du message"
           .Body = StrMessage       '"Texte du message"
           .Display                 '.Send
    End With
    FctSendEmail = True
ExitHandler:
    Set objOutlookMsg = Nothing
    Exit Function
ErrHandler:
'Resume
    FctSendEmail = False
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Function
'
'Public Function FctAddCalendar()
'
''Ajout d'un rdv au calendrier
'
'Dim objOutlook As New Outlook.Application
'Dim objOutlookAppt As Outlook.AppointmentItem
'
'    Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)
'    With objOutlookAppt
'           .Start = "jj/mm/aaaa hh:mm"
'           .Duration = x 'En minute
'           .Subject = "Description du rendez-vous"
'           .Save
'    End With
'End Function
'
'Public Function FctModifSupprDrvCalendar()
'
''Modifier/Supprimer un rdv du calendrier
'
'Dim objOutlook As New Outlook.Application
'Dim objOutlookAppt As Outlook.AppointmentItem
'Dim objOutlookCalendar As Outlook.Items
'Dim objOutlookNameSpace As Outlook.Namespace
'Dim DateDebut As String, DateFin As String
'
'    Set objOutlookNameSpace = objOutlook.GetNameSpace("MAPI")
'    Set objOutlookCalendar = objOutlookNameSpace.GetDefaultFolder(olFolderCalendar).Items
'    objOutlookCalendar.Sort "[Start]"
'    objOutlookCalendar.IncludeReccurrences = True
'
'    DateDebut = "jj/mm/aaaa hh:mm"
'    DateFin = "jj/mm/aaaa hh:mm"
'
'    Set objOutlookAppt = objOutlookCalendar.Find("[Start] >= " " " & DateDebut & " " " and [Start] <= " " " & DateFin & " " " ")
'    While TypeName(objOutlookAppt) <> "Nothing"
'           If objOutlookAppt.Subject = "RDV recherché pour etre modifié" Then
'                  objOutlookAppt.Subject = "Nouveau sujet"
'                  objOutlookAppt.Save
'                  Exit Function
'           End If
'
'           If objOutlookAppt.Subject = "RDV recherché pour supprimé" Then
'                  objOutlookAppt.Delete
'                  Exit Function
'           End If
'           Set objOutlookAppt = objOutlookCalendar.FindNext
'    Wend
'End Function
'

[cotmar]

Sinon, est ce que tu aurais un exemple pour illuster ce que tu essayes de décrire ?

[FlyRoxxx]

Je n'ai pas vraiment d'exemple, mais ce que tu me fourni au dessu la me semble pas mal, en faite la ou est mon plus gros problème c'est pour lier les données d'Outlook (Qui se trouve sur le serveur) à celle de mon programme sous Access. Je sais Qu'Exchange devrai le faire mais ca ne fonctionne pas, je pence que je devrai pouvoir le faire via le code avec un lien.

Dans le code au dessu, on est d'accord, tu travail en local sous Outlook dirrectement !?
Moi je voudrai relier cette base Outlook à Access mais peut être que ce n'est pas possible !!!

Merci en tout cas de m'aider ,
Romain