Demande de réunion VBA Excel/Outlook

Demande de réunion VBA Excel/Outlook - VB/VBA/VBS - Programmation

Marsh Posté le 10-07-2014 à 08:36:38    

Bonjour, je souhaiterais améliorer le code suivant pour créer une demande de réunion.
1) Avec ce code, le problème est que la réunion s'inscrit directement dans le calendrier sans demander aux destinataires s'ils sont disponibles !
2) De plus il semblerait que j'ai un "bug" car les destinataires optionels ne sont pas en copie mais en destinataires.
Merci de votre aide.

Code :
  1. Sub CreateAppt()
  3. Const olMeeting = 1
  4. Const olAppointmentItem = 1
  6. Const olrequired = 1
  7. Const oloptional = 2
  8. Set myOlApp = CreateObject("Outlook.Application" )
  9. Set myItem = myOlApp.createItem(olAppointmentItem)
  10. myItem.MeetingStatus = olMeeting
  11. myItem.Subject = "Abnahme Einladung : "
  12. myItem.Start = ActiveWorkbook.Worksheets("Einladung" ).Cells(15, 3) & " " & ActiveWorkbook.Worksheets("Einladung" ).Cells(16, 3)
  13. myItem.Duration = 180
  14.  
  15. Set myRequiredAttendee = "U216504"
  16. myRequiredAttendee.Type = olrequired
  17. Set myOptionalAttendee = "U216504"
  18. myOptionalAttendee.Type = oloptional
  19. 'Set myResourceAttendee = myItem.Recipients.Add("Conference Room B" )
  20. 'myResourceAttendee.Type = olResource
  21. myItem.Display
  22. End Sub

Reply

Marsh Posté le 10-07-2014 à 08:36:38   

Reply

Marsh Posté le 10-07-2014 à 13:33:16    

Pour le point 1), le problème est réglé. Je m'étais envoyé l'invitation à moi-même donc pas d'invitation
Par contre le point 2) ressemble à un bug. Avez-vous le même problème chez vous ?

Reply

Marsh Posté le 04-08-2014 à 12:00:39    

Personne n'a d'idée ? J'ai comme l'impression qu'il y a un bug.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed