Discussion :

[Dixies]

Bonjour,

J'ai une appli Access, gérant des évènements que j'envoie dans le calendrier Outlook avec ceci :

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
Public Function FctAddCalendar()
 
    'Ajout d'un rdv au calendrier
 
    Dim objOutlook As New Outlook.Application
    Dim objOutlookAppt As Outlook.AppointmentItem
 
    Set objOutlook = CreateObject("outlook.application")
    Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)
    With objOutlookAppt
           .Start = VarNouveauDateDebutOutlook
           .End = VarNouveauDateFinOutlook
           .Subject = VarNouveauEvenementOutlook
           .Categories = VarCategorieOutlook
           .AllDayEvent = True
           .Save
    End With
End Function

Ca marchait trés bien jusque là est depuis qq jours, le transfert vers Outlook ne se réalise que lorsque Outlook est ouvert !

Lorsque Outlook est fermé : pas de message d'erreur excepté une petite icône en bas à droite de l'écran (Cf PJ) avec ce message en survol de la souris :

"Un autre programme utilise Outlook. pour déconnecter les programmes et quitter Outlook, cliquez sur l'icône Outlook et appuyez sur Q."

Le problème est qu'aucune autre application n'est ouverte (excepté forcément Access).
J'ai mis du code dans Outlook pour trier mes mails : est ce que ça vient de là ?

Merci pour votre aide.

[mumen]

J'ai mis du code dans Outlook pour trier mes mails : est ce que ça vient de là ?

Si c'est le facteur déclenchant, essayes déjà de l'enlever !

Ensuite, on peut imaginer à la lecture des symptômes, que le code que tu as ajouté ferme mal se ressources, par exemple...

[Dixies]

Bonjour mumen,

J'avais déjà essayé de retirer mon code outlook : en vain !
Je viens de resupprimer mon code dans Outlook et : en vain !

J'ai même désactiver les macros dans le centre de gestion, et c'est pas mieux !

Merci de ton aide.

[mumen]

J'avais déjà essayé de retirer mon code outlook : en vain !
Je viens de resupprimer mon code dans Outlook et : en vain !

Et redémarré Outlook, ta machine ? (tant qu'a faire si un processus reste scotché)

[Dixies]

Re,

J'ai fermé Access
J'ai fermé Outlook
J'ai éteint PC puis redémarré ----> Sans résultat

J'ai désactivé l'antivirus ----> Sans résultat non plus

[mumen]

J'ai mis du code dans Outlook pour trier mes mails : est ce que ça vient de là ?

Nous sommes donc en mesure de penser que ce n'est pas l'événement déclenchant.

Ca marchait trés bien jusque là est depuis qq jours

Pas d'autre idée sur ce qui a changé depuis lors ?

Et aussi as tu pensé poster ton souci sur le forum Outlook ?

[Dixies]

Bonsoir mumen,

Me revoici....

Pas d'autre idée sur ce qui a changé depuis lors ?

Non je n'ai rien modifié de particulier, et je cherche ce que j'aurais pu changer comme paramètres dans Outlook ...

Je poste de suite sur le forum Outlook, peut-être une idée à prendre par là.

Néanmoins, je laisse celui-ci ouvert et y apporterai des infos le moment venu.

Merci. Bonne soirée.

[Robert1957]

Bonjour Dixies,
J'ai déjà vu un problème semblable et la cause était que Outlook fonctionnait en mode administrateur. C'est peut-être une piste.

[paidge]

Bonjour,
une autre piste que Mumen a soulevée : peut-être que le processus Outlook es toujours en mémoire. Personnellement, j'essaierais de vider les variables en fin de procédure, du style :

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
 
Public Function FctAddCalendar()
 
    'Ajout d'un rdv au calendrier
 
    Dim objOutlook As New Outlook.Application
    Dim objOutlookAppt As Outlook.AppointmentItem
 
    On Error GoTo Err_FctAddCalendar
 
    Set objOutlook = CreateObject("outlook.application")
    Set objOutlookAppt = objOutlook.CreateItem(olAppointmentItem)
    With objOutlookAppt
           .Start = VarNouveauDateDebutOutlook
           .End = VarNouveauDateFinOutlook
           .Subject = VarNouveauEvenementOutlook
           .Categories = VarCategorieOutlook
           .AllDayEvent = True
           .Save
    End With
 
Exit_FctAddCalendar:
    'Libération
    If Not objOutlookAppt Is Nothing Then Set objOutlookAppt = Nothing
    If Not objOutlook Is Nothing Then Set objOutlook = Nothing
    Exit Function
 
Err_FctAddCalendar:
    ' Gestion des erreurs
    Select Case err.Number
        Case Else
            MsgBox "Erreur n°" & err.Number & vbCrLf & "Description : " & err.Description & vbCrLf & "Source : " & err.Source, vbCritical, "Erreur"
    End Select
    Resume Exit_FctAddCalendar
End Function

[Dixies]

Bonsoir et merci à vous deux,

Robert1957 : effectivement mais mon Outlook n'est pas en mode administrateur

paidge : j'ai donc modifié le code comme tu me l'as proposé mais en vain. J'ai toujours les mêmes symptômes que cités plus haut.

Y a t-il dans Outlook un système de protection qui interdirais toutes intrusions dans le logiciel quand celui-ci est fermé ?
Comme un paramètre d'inviolabilité.

J'ai comme l'impression que Outlook (quand il est fermé) a fermé sa porte d'entrée à triple tours.

J'ai entre temps remis à jour l'antivirus (Kaspersky licence 2013).
Cette MAJ aurait-elle pu aller trifouiller dans Outlook pour justement fermer cette porte à triple tour ?

Merci à vous de m'avoir consacré un peu de temps.
Bonne soirée.

[paidge]

ça ne va pas ptet pas résoudre ton problème, mais je viens de remarquer une coquille dans le bout de code que je t'ai donné :p Il fallait mettre Exit Function plutôt que Exit Sub lol

[Dixies]

Oui j'avais vu la chose qui d'ailleurs générait une erreur. J'avais corrigé.

Malheureusement ce code modifié ne règle pas mon souci ...

Merci belle journée.

[mumen]

le transfert vers Outlook ne se réalise que lorsque Outlook est ouvert

Tu essayé d'ouvrir Outlook toi même ?

[Dixies]

Bonsoir mumen,

Excuse moi, mais je crains de ne pas comprendre ta question.

Quand j'ouvre moi-même Outlook et qu'ensuite je retourne dans mon appli Access et lance l'éxecution de mon code, l'export du RDV vers Outlook se réalise sans encombre.
Seulement voilà, j'aimerai pouvoir faire cet export sans obligatoirement ouvrir Outlook au prélable.

Essayer n'est pas tout faire, j'ai voulu voir si je pouvais ouvrir Outlook depuis Access avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim ret As Long
ret = Shell("Outlook.exe", vbMinimizedNoFocus)

et ça marche !!!

Merci encore.