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

Macros et VBA Excel Discussion :

Récupérer destinataires sélectionnés dans carnet d'adresse Outlook


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Chargé d'Ingénierie et d'Analyses en Ressources Humaines
    Inscrit en
    Novembre 2012
    Messages
    63
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'Ingénierie et d'Analyses en Ressources Humaines
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2012
    Messages : 63
    Par défaut Récupérer destinataires sélectionnés dans carnet d'adresse Outlook
    Bonjour,

    Je cherche à automatiser l'envoie d'un document par mail Outlook à partir d'un fichier Excel.
    Pour cela, je souhaite que l'utilisateur puisse aller sélectionner dans le carnet d'adresse Outlook les destinataires du document final.

    J'ai réussi à partir du code ci-dessous à faire apparaître le carnet d'adresse Outlook.
    Néanmoins, je n'arrive pas à y récupérer les personnes qui sont ajoutées aux champs "A", "CC" et "CCi".

    Jusqu'à maintenant, je me suis basé sur l'aide MSDN suivante :
    https://msdn.microsoft.com/fr-fr/lib.../ff863291.aspx

    Pourriez-vous m'éclairer car soit j'utilise mal dans mes différents tests les propriétés citées, soit je ne comprends pas les explications figurant sur cette page.

    Merci d'avance.
    Chtik

    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
     
    Sub MailOutlook()
    Dim Email As Outlook.Application
    Dim EmailMsg As Outlook.MailItem
     
    Set Email = CreateObject("Outlook.Application")
    Set EmailMsg = Email.CreateItem(olMailItem)
     
    test = Email.Session.GetSelectNamesDialog.Display
     
    ' Récupérer les destinataires sélectionnés dans le carnet d'adresse
    If Email.Session.GetSelectNamesDialog.ForceResolution = True Then
       Debug.Print Email.Session.GetSelectNamesDialog.Recipients
    Else
       MsgBox "Aucun destinataire sélectionné", vbCritical, "Erreur"
    End If
     
    EmailMsg.Display
     
    Set EmailMsg = Nothing
    Set Email = Nothing
    End Sub

  2. #2
    Membre émérite Avatar de Nicolas JACQUIN
    Homme Profil pro
    .
    Inscrit en
    Avril 2014
    Messages
    556
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : .
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2014
    Messages : 556
    Par défaut
    Bonjour,

    Apparemment il manque des lignes sur votre code par rapport au code proposé sur votre lien

    http://msdn.microsoft.com/fr-fr/libr.../ff861560.aspx

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.Session.GetSelectNamesDialog

Discussions similaires

  1. [Toutes versions] Recherche par mail dans carnet d'adresses Outlook
    Par jeanmidudu dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 06/06/2016, 10h17
  2. Réponses: 2
    Dernier message: 02/09/2013, 12h25
  3. déplacer carnet d'adresses outlook 2003
    Par Piccolo_son dans le forum Outlook
    Réponses: 1
    Dernier message: 06/07/2007, 16h49
  4. [conseil][outlook] SQL Server vers Carnet d'adresses Outlook
    Par lucie.houel dans le forum Outlook
    Réponses: 3
    Dernier message: 13/09/2006, 12h59
  5. Manipulation du carnet d'adresse outlook via VBA Excel?
    Par Dragon Tours dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/11/2005, 12h16

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