VBA dans Outlook

Fermé
vinz4444 Messages postés 33 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 8 décembre 2010 - 10 janv. 2008 à 17:04
 salut tlm - 27 août 2008 à 09:13
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
A voir également:

5 réponses

phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
10 janv. 2008 à 18:02
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
0
vinz4444 Messages postés 33 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 8 décembre 2010
10 janv. 2008 à 21:51
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...
0
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
11 janv. 2008 à 12:04
"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)
0
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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.
0