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

 

  1. #1
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    septembre 2011
    Messages
    8 116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : septembre 2011
    Messages : 8 116
    Points : 14 207
    Points
    14 207

    Par défaut VBA créer un rendez-vous et l'envoyer aux destinataires

    Bonjour,

    Je dois générer des rendez-vous (appointments) avec invitation de destinataires. J'ai modifié ce code trouvé sur internet (le code a été écrit pour Excel) :

    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
    Sub CreateAppt()
     Dim myItem As Object
     Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Object
    Set olApp = CreateObject("Outlook.Application")
     Set myItem = olApp.CreateItem(1)
     myItem.MeetingStatus = olMeeting
     myItem.Subject = "Strategy Meeting"
     myItem.Location = "Conf Rm All Stars"
     myItem.Start = #9/24/2018 1:30:00 PM#
     myItem.Duration = 90
     Set myRequiredAttendee = myItem.Recipients.Add("Nate Sun")
     myRequiredAttendee.Type = olRequired
     Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy")
     myOptionalAttendee.Type = olOptional
     Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars")
     myResourceAttendee.Type = olResource
     myItem.Display
     myItem.Send
    End Sub
    Le rendez-vous s'affiche bien, sauf les destinataires qui n'apparaissent que si je clique sur le bouton "Inviter". Comment faire l'équivalent en VBA ?

    Merci d'avance.

    PS. La différence entre rendez-vous et réunion n'est pas évidente pour moi. Si vous pouviez me la préciser, je vous en saurais gré.
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  2. #2
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    septembre 2011
    Messages
    8 116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : septembre 2011
    Messages : 8 116
    Points : 14 207
    Points
    14 207

    Par défaut

    Je me réponds : il faut positionner :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MeetingStatus = 1 'olMeeting
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2010] Créer un rendez-vous Outlook depuis access
    Par bvalenza dans le forum Access
    Réponses: 3
    Dernier message: 18/12/2017, 11h53
  2. [XL-2007] Créer un rendez-vous dans un calendrier partagé Outlook
    Par scoubi77 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/09/2017, 10h53
  3. [AC-2003] Créer des rendez-vous périodiques un peu comme sous OutLook.
    Par User dans le forum Contribuez
    Réponses: 10
    Dernier message: 22/07/2015, 08h40
  4. [VBA-O]lire les rendez vous outlook
    Par LostIN dans le forum VBA Outlook
    Réponses: 5
    Dernier message: 27/03/2007, 15h53
  5. [VBA-Access]Pop-up avertissant un rendez-vous imminent
    Par DomBourti dans le forum Access
    Réponses: 5
    Dernier message: 11/05/2006, 22h01

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