1. #1
    Membre à l'essai
    Homme Profil pro
    Analyste financier
    Inscrit en
    août 2014
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Analyste financier
    Secteur : Finance

    Informations forums :
    Inscription : août 2014
    Messages : 19
    Points : 21
    Points
    21

    Par défaut RDV sur Calendrier Partagé Exchange - Erreur L'administrateur du serveur a restreint le nombre d'éléments

    Bonjour à tous,

    Je développe actuellement une application de gestion de RDV sur Excel.

    L'application permet notamment à l'utilisateur de créer un nouveau RDV sur le calendrier partagé des commerciaux de l'entreprise.

    Au bout d'un certain nombre de RDV, mon code plante sur la ligne suivante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set objRDV = MyCalendar.Items.Add
    Avec le message d'erreur suivant :
    Impossible d'ouvrir les informations de disponibilité.L'administrateur du serveur a restreint le nombre d'éléments pouvant être ouverts simultanément.Fermez les messages que vous avez ouverts ou supprimez des pièces jointes et des images de messages non envoyé que vous êtes en train de composer.
    Mon administrateur réseau m'a confirmé que l'utilisateur de l'application avait "32 éléments ouverts"... Je ne sais pas s'il s'agit de sessions Outlook ou d'éléments...
    En tout, ce n'est pas visible depuis son poste : une seule instance Outlook et pas de mail, ou RDV ouverts.

    Je ne sais pas comment "fermer" ces éléments ou sessions Outlook... Pourriez-vous svp m'aider ?

    Merci d'avance,

    Voici le code utilisé :

    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
     
    Set objOutlook = CreateObject("Outlook.Application")
    Set myNamespace = objOutlook.GetNamespace("MAPI")
    Set objRDV = objOutlook.CreateItem(olAppointmentItem)
    Set myRecipient = myNamespace.CreateRecipient([mail du commercial])
     
    myRecipient.Resolve
     
    If myRecipient.Resolved Then
          Set MyCalendar = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)                                
          Set objRDV = MyCalendar.Items.Add
     
          With objRDV
                .Subject = [Sujet]
                .Start = [Date & Heure début]
                .Location = [Lieu]
                .Duration = [Durée]
                .Body = [Message]
                .Attachments.Add [PJ]                                        
                .Display
          End With
     
          ObjOutlook.Quit
          Set objRDV= Nothing
          Set objOutlook = Nothing
    End If

  2. #2
    Membre à l'essai
    Homme Profil pro
    Analyste financier
    Inscrit en
    août 2014
    Messages
    19
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 27
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Analyste financier
    Secteur : Finance

    Informations forums :
    Inscription : août 2014
    Messages : 19
    Points : 21
    Points
    21

    Par défaut

    Personne n'a une idée ?

  3. #3
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 009
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 009
    Points : 5 262
    Points
    5 262
    Billets dans le blog
    13

    Par défaut

    Bonjour,
    Essaye en mettant cela avec d'initier ta boucle

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    Dim objOutlook 
    Dim myNamespace 
     
    Sub traitement ()
    Set objOutlook = CreateObject("Outlook.Application")
    Set myNamespace = objOutlook.GetNamespace("MAPI")
    for i = 1 to 10
    Createrdv
    Next i
     
    Set myNamespace = nothing
          Set objOutlook = Nothing
    End sub
    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
     
    sub createrdv()
    Set objRDV = objOutlook.CreateItem(olAppointmentItem)
    Set myRecipient = myNamespace.CreateRecipient([mail du commercial])
     
    myRecipient.Resolve
     
    If myRecipient.Resolved Then
          Set MyCalendar = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)                                
          Set objRDV = MyCalendar.Items.Add
     
          With objRDV
                .Subject = [Sujet]
                .Start = [Date & Heure début]
                .Location = [Lieu]
                .Duration = [Durée]
                .Body = [Message]
                .Attachments.Add [PJ]                                        
                .Display  ' AS TU BESOIN d'AFFICHER LE RDV ?
          End With
     
          Set objRDV= Nothing
    Set MyCalendar = nothing
     
    End If
     
    end sub

Discussions similaires

  1. [XL-2010] Création rendez vous sur calendrier partager outlook depuis excel
    Par chab91270 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/09/2016, 16h49
  2. Calendriers partager Exchange 2010
    Par KevinPasciolla dans le forum Exchange Server
    Réponses: 1
    Dernier message: 22/03/2012, 17h18
  3. Réponses: 0
    Dernier message: 26/05/2010, 12h12
  4. [OL-2007] être prévenu d'un rdv sous calendrier partagé
    Par Mimoune932 dans le forum Outlook
    Réponses: 3
    Dernier message: 08/09/2009, 10h00
  5. Calendrier commun sur outlook ou exchange 2003
    Par Piou2fois dans le forum Outlook
    Réponses: 1
    Dernier message: 16/11/2007, 23h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo