Création RDV sur Outlook depuis Access ne fonctionne pas quand Outlook est fermé ?

**Dixies** · 07/04/2013, 16h00

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** · 08/04/2013, 13h03

Envoyé par Dixies

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** · 08/04/2013, 14h08

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** · 08/04/2013, 14h15

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** · 08/04/2013, 14h47

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** · 08/04/2013, 15h08

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** · 14/04/2013, 22h02

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** · 15/04/2013, 15h59

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** · 15/04/2013, 16h53

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** · 15/04/2013, 23h34

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** · 16/04/2013, 10h24

ç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** · 16/04/2013, 10h56

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** · 16/04/2013, 14h13

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

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

**Dixies** · 16/04/2013, 22h01

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.

Création RDV sur Outlook depuis Access ne fonctionne pas quand Outlook est fermé ?

VBA Access

Discussions similaires

Partager

Partager