Bonjour,
J'ai une appli Access, gérant des évènements que j'envoie dans le calendrier Outlook avec ceci :
Ca marchait trés bien jusque là est depuis qq jours, le transfert vers Outlook ne se réalise que lorsque Outlook est ouvert !
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
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.
Partager