Discussion :

[Dixies]

Bonsoir à tous,

Pour faire suite à ce post :
http://www.developpez.net/forums/d13...-/#post7233128

je viens vers vous pour chercher une idée ...

J'ai une appli Access qui gère des évènements et par VBA m'envoie dans le calendrier Outlook de nouveaux RDV.

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 tés bien jusque là mais depuis qq temps ça ne fonctionne que si Outlook est ouvert.
Outlook fermé, ma procédure s'exécute mais un tout petit message en bas à droite au survol de la souris (voir PJ) :
"Un autre programme utilise Outlook. pour déconnecter les programmes et quitter Outlook, cliquez sur l'icône Outlook et appuyez sur Q."

et le RDV n'est pas réceptionné par Outlook.

Est-ce que qq à connu ce problème ?
Une idée ?
Mieux encore, une réponse ?

Merci d'avance. Bonne soirée.