1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    avril 2008
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : avril 2008
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Installation auto calendriers depuis liste des salles

    Bonjour,

    Je souhaite créer une macro pour installer automatiquement plusieurs salle de réunions depuis les dossiers publics (manuellement cela se fait par Calendrier\Depuis la liste des salles).

    Après plusieurs heures de recherche sur le net j'arrive a faire ceci (c'est maigre, je sais :-( ) :

    Set recip = Application.Session.CreateRecipient("Masalle1@monentreprise.com")
    recip.Resolve
    If recip.Resolved Then
    Set Folder = Application.Session.GetSharedDefaultFolder(recip, olFolderCalendar)
    Folder.Display
    End If

    Mon soucis c'est que dans le cas de ma macro,il faut disposer préalablement de l'adresse email liée à la salle ce qui n'est pas mon besoin.
    Je souhaiterai plutôt explorer par programme la liste des salles des dossiers publics et trouver toutes les salles selon un critère (par exemple la ville).

    D'autre part, avec mon code, mon calendrier ne s'installe pas dans la liste des salle d'outlook mais dans la liste des calendriers partagés.

    merci de votre aide.

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    2 822
    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 : 2 822
    Points : 4 923
    Points
    4 923
    Billets dans le blog
    12

    Par défaut

    Bonjour,
    Voici pour obtenir les adresses des salles, ici la ville figure dans le nom de la salle.

    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
    Sub DemoAE()
     
        Dim colAL As Outlook.AddressLists
        Dim oAL As Outlook.AddressList
        Dim colAE As Outlook.AddressEntries
        Dim oAE As Outlook.AddressEntry
        Dim oExUser As Outlook.ExchangeUser
     
        Set colAL = Application.Session.AddressLists
     
        For Each oAL In colAL
     
            'Address list is an Exchange Global Address List
     
            If oAL.Name = "All Rooms" Then
     
                Set colAE = oAL.AddressEntries
     
                For Each oAE In colAE
     
                    If InStr(1, oAE.Name, "Lille", vbcomparetext) > 0 Then
     
                        Set oExUser = oAE.GetExchangeUser
     
                        Debug.Print (oExUser.Name) & "|" & vbTab & (oExUser.PrimarySmtpAddress)
     
                    End If
     
                Next
     
            End If
     
        Next
     
    End Sub

Discussions similaires

  1. Paquet compilé et installé absent de la liste des paquets
    Par Philippe Dpt35 dans le forum Linux
    Réponses: 4
    Dernier message: 01/12/2016, 18h05
  2. Auto-compléter une liste des checkboxes
    Par ChInOvSki dans le forum jQuery
    Réponses: 4
    Dernier message: 01/06/2016, 09h03
  3. [Plugin]Liste des Pug-in installés
    Par Sim dans le forum Eclipse Java
    Réponses: 4
    Dernier message: 13/05/2004, 17h24
  4. Comment récupérer la liste des logiciels installés sur une machine ?
    Par david_chardonnet dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 19/09/2003, 17h41
  5. Liste des applications installées
    Par Reisubar dans le forum API, COM et SDKs
    Réponses: 7
    Dernier message: 17/05/2003, 13h43

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