VBA dans Outlook Fermé

Question

Bonjour,

Voilà je me prends la tête depuis un moment là-dessus et j'ai pas beaucoup de résultats...

Je voudrais créer pour un usage professionnel une macro me permettant de créer un rendez-vous dans un agenda Outlook partagé.
---> j'ai trouvé le code pour créer un rdv mais pas pour le créer dans un agenda partagé précis. Il me le crée toujours dans le mien.
Dim olApp As Outlook.Application
    Dim objApt As AppointmentItem
    Set olApp = Outlook.Application
    Set objApt = olApp.CreateItem(olAppointmentItem)
    objApt.ReminderSet = False
    objApt.Subject = "TEST MONTEUR1"
    objApt.Save
EY il me manque quelques autres trucs genre : avoir une "duration" d'une journée entière (il y a une case à cocher dans outlook mais je ne trouve pas le code...)

Je pensais AUSSI utiliser une macro afin de pouvoir 
- choisir dans une liste les "catégories..." et lier automatiquement le code couleur d'une catégorie du calendrier

- choisir la disponibilité ou l'assigner automatiquement si certaines "catégories..." bien précises étaient choisies.

- faire des propositions de menus déroulants (la liste n'est pas longue : je l'ai mise dans excel au cas où) pour constituer un "objet" de rendez-vous qui soit toujours de la même forme et qui évite les erreurs d'ortographe de nom de famille notamment ou de client.
--->Je ne connais pas le code pour rappatrier un menu déroulant d'une liste Excel pour poser une question en VBA et rentrer la réponse dans une variable.

Je vous remercie d'avance pour vos réponses même si elles ne sont pas exhaustives ... Parce que là j'ai du mal...
Ciao,
Vinz

phil232 · Answer

objApt.Duration
puis F1 nous fournit

Duration Property
See AlsoApplies ToExampleSpecificsReturns or sets a Long indicating the duration (in minutes) of the appointment, journal entry, or recurrence pattern. For recurrences, this property is only valid for appointments. Read/write.

--> 1 jour = 24 * 60

objApt.Recipients
ceci devrait envoyer le rdv aux gens concernés

vinz4444 · Answer

Bonjour Phil,

En fait j'avais pensé à mettre 24 * 60 mais ça ne fait pas exactement ce que je veux... "journée entière". Et du coup ça n'apparaît pas comme je voudrais dans le calendrier. Ca permettrait de distinguer des rdv d'une journée (bord noir) et des rdv ne complétant pas la journée entière (pas de bord).

Et puis pour le recipient, ce n'est pas ça en fait que je veux. Je n'ai pas besoin de prévenir les gens. je veux qu'en lançant cette maccro ça écrive dans un agenda qu'ils partagent, toujours le même d'ailleurs...

Vous voyez ce que je veux dire ?

Merci d'avance...

phil232 · Answer

"Je n'ai pas besoin de prévenir les gens", je crois c'est inévitable dans Outlook. je n'ai pas non plus trouvé une prop qui pourrait faire l'affaire. et puis tu dois préciser qui est invité au rdv. la prop Recipient n'est pas seulement utilisé pour les mail mais aussi pour les rdv (F1 va te renseigner là-dessus)

dark vador · Answer

Bonjour

.BusyStatus sert à indiquer la disponibilité , les valeurs sont 0,1,2,3

.AllDayEvent = 'True' permet de cocher la case jour entier

.body te permet d'ajouter du text

Par contre pour les catégories je cherche aussi comment faire.

salut tlm · Answer

Up!

Salut tout le monde!

Je trouve pas non plus de solutions pour inscrire un rendez dans un calendrier partagé sur outlook. 

Merci d'avance. Tout aide est la bienvenue.

VBA dans Outlook

5 réponses

Discussions similaires