IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

"Ouvrir dans le navigateur" en VBA ?


Sujet :

VBA Outlook

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2013
    Messages : 42
    Points : 18
    Points
    18
    Par défaut "Ouvrir dans le navigateur" en VBA ?
    Bonjour à tous,

    J'ai une liste de contacts Sharepoint qui est ouverte/liée dans Outlook 2010.
    Lorsque j'ouvre un contact, j'ai la possibilité d'ouvrir la fiche complète du contact via le navigateur en cliquant dans le bandeau sur l'icône "Ouvrir dans le navigateur". Il y a donc "quelque part" et lié à cet item à la fois l'url du site SP, le nom du formulaire à utiliser et l'ID unique de l'item dans la liste SharePoint.

    Malheureusement, on ne peut plus enregistrer de Macro dans OL2010, donc je ne peut utiliser ce vieux truc pour trouver mes infos.
    Savez-vous comment je peux trouver l'ID unique SP ?

    P.S: In fine, je souhaite afficher une popup et non le navigateur, mais c'est une autre histoire.

    Merci d'avance !
    Images attachées Images attachées  

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Citation Envoyé par Antoine B Voir le message

    Malheureusement, on ne peut plus enregistrer de Macro dans OL2010, donc je ne peut utiliser ce vieux truc pour trouver mes infos.
    Savez-vous comment je peux trouver l'ID unique SP ?
    Salut,
    il n'y a jamais eu d'enregistreur de macro dans LES versions d'outlook !

    Quand tu cliques sur ce lien quelle est l'adresse qui s'affiche dans le navigateur ?
    un truc comme cela ?
    "D:\Document\Config\Internet\Temporary Internet Files\Content.Outlook\UU1Y1BIY\email.mht"

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2013
    Messages : 42
    Points : 18
    Points
    18
    Par défaut
    Citation Envoyé par Oliv- Voir le message
    Salut,
    il n'y a jamais eu d'enregistreur de macro dans LES versions d'outlook !

    Quand tu cliques sur ce lien quelle est l'adresse qui s'affiche dans le navigateur ?
    un truc comme cela ?
    "D:\Document\Config\Internet\Temporary Internet Files\Content.Outlook\UU1Y1BIY\email.mht"
    Bonjour Oliv et merci de ta réponse.
    Pour l'enregistrement, il me semblait pourtant ...
    En ce qui concerne le lien, il s'agit directement d'un lien HTML pointant vers le formulaire sharepoint. Du genre "https://monsite.sharepoint.com/dispForm.aspx?ID=1".

    D'après ce que j'ai pu lire, il semblerait que ces infos soient strockées dans un "message" qui serait associé au dossier/contact. J'ai essayé de trouver où en utilisant OutlookSpy ... mais faute de savoir où chercher précisément ... sans succès.

  4. #4
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    SALUT
    essaye ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub OpenInBrowser()
    Set item = Application.ActiveInspector.CurrentItem
    Set objInsp = item.GetInspector
             Set colCB = objInsp.CommandBars
             If item.Class = olMail Then
              Set objCBB = colCB.FindControl(, 11846) 'ouvrir dans navigateur POUR EMAIL
             Else
             Set objCBB = colCB.FindControl(, 13428) 'ouvrir dans navigateur POUR CONTACT
            End If
             If Not objCBB Is Nothing Then
                 objCBB.Execute
             End If
    End Sub

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2013
    Messages : 42
    Points : 18
    Points
    18
    Par défaut
    Citation Envoyé par Oliv- Voir le message
    SALUT
    essaye ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub OpenInBrowser()
    Set item = Application.ActiveInspector.CurrentItem
    Set objInsp = item.GetInspector
             Set colCB = objInsp.CommandBars
             If item.Class = olMail Then
              Set objCBB = colCB.FindControl(, 11846) 'ouvrir dans navigateur POUR EMAIL
             Else
             Set objCBB = colCB.FindControl(, 13428) 'ouvrir dans navigateur POUR CONTACT
            End If
             If Not objCBB Is Nothing Then
                 objCBB.Execute
             End If
    End Sub
    Salut & merci !
    Si je comprends bien to code, il permet de lancer l'ouverture sans avoir à cliquer sur le bouton du ruban (j'ai peut-être mal lu ?). Ce que je cherche, c'est à énumérer les paramètres de cette commande (url, ID - sans savoir quel est leur nom), afin de faire "ma sauce" après ...

    P.S: J'ai par ailleurs des erreurs à l'exécution, mais je ne vais pas t’embêter avec ça (sans doute dû à l'endroit ou je place ton code)

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 53
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Difficile de te renseigner sans avoir la possibilité de tester.

    Comment est paramétré /ajouté ce carnet d'adresse SHAREPOINT ?

    Sinon tu lances ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    sub test ()
    Set item = Application.ActiveInspector.CurrentItem
    stop
    end sub
    lors de l'arrêt tu vas dans la fenetre variables de vbe et tu développes en cherchant une propriété = ton id

  7. #7
    Membre à l'essai
    Profil pro
    Inscrit en
    Mars 2013
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2013
    Messages : 42
    Points : 18
    Points
    18
    Par défaut
    Citation Envoyé par Oliv- Voir le message
    Difficile de te renseigner sans avoir la possibilité de tester.

    Comment est paramétré /ajouté ce carnet d'adresse SHAREPOINT ?

    Sinon tu lances ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    sub test ()
    Set item = Application.ActiveInspector.CurrentItem
    stop
    end sub
    lors de l'arrêt tu vas dans la fenetre variables de vbe et tu développes en cherchant une propriété = ton id
    Oliv, merci; ça m'a permis d'apprendre des tas de trucs
    En ce qui concerne mon projet et étant donné la propension de MS à modifier les choses sans prévenir, j'ai opté pour une autre solution.
    En fait, je gère maintenant cette URL directement dans sharepoint lors de la création/modification d'un item via un workflow qui alimente une colonne connue par SP et OL (en l'occurrence le "Code client" (CustomerID)). Ainsi, je ne serai pas dépendant de la version d'OL ...
    Merci encore, je marque le topic comme résolu.

    Edit : ooops; comment on fait pour marquer comme résolu ?

Discussions similaires

  1. au clic : genere fichier et l'ouvrir dans le navigateur
    Par italiasky dans le forum ASP.NET
    Réponses: 1
    Dernier message: 11/04/2010, 13h02
  2. forcer un fichier de s'ouvrir dans le navigateur
    Par messahel dans le forum Balisage (X)HTML et validation W3C
    Réponses: 7
    Dernier message: 22/04/2009, 09h44
  3. ouvrir un fichier xml dans un navigateur
    Par hysah dans le forum Format d'échange (XML, JSON...)
    Réponses: 5
    Dernier message: 12/09/2006, 14h38
  4. [JDIC] ouvrir url dans un navigateur (même page ou nouvelle page)
    Par dymezac dans le forum API standards et tierces
    Réponses: 2
    Dernier message: 16/02/2006, 15h35

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