Automation outlook (calendrier)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 44 531 fois - Téléchargée 42 fois

Contenu du snippet

Ce code permet d'ajouter des appointment (événement calendrier dans Outlook). C'est un bout de code simple mais utile pour ceux qui en auront besoin !

Si quelqu'un désire que je place le code pour ajouter un appointment dans un folder différent que celui par défault, juste à m'envoyer un message et je me ferai un grand plaisir d'updater ma source pour vous !!! @+

Source / Exemple :


Private Sub command1_Click()
     
    On Error GoTo AddAppt_Err
        
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.AppointmentItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olAppointmentItem)
    
    With outappt
            .Start = Now
            .Duration = 10000        ' En minute 
            .Subject = " VOTRE SUJET"
            .Body = " LE TEXTE DE VOTRE RENDEZ-VOUS "
            .Location = "L'EMPLACEMENT"
            .AllDayEvent = True     ' Toute la journée oui/non
            .ReminderSet = False   ' S'il y a un rappel
            .Save
       End With
       Set outobj = Nothing  ' Retire de la mémoire les objets créer
         
      Exit Sub

AddAppt_Err:
         MsgBox "Error " & Err.Number & vbCrLf & Err.Description
         Exit Sub
      End Sub

Conclusion :


N'oublier pas qu'il faut ajouter la référence Microsoft Outlook 9.0 object library au projet pour que le code ci-haut fonctionne !

Voilà, il faut savoir qu'on pourrait faire le même genre de truc pour une TASK, un MAIL ou encore toutes les choses que l'on fait avec OUTLOOK !!!

A voir également

Ajouter un commentaire Commentaires
cs_gfortin9 Messages postés 7 Date d'inscription samedi 19 novembre 2005 Statut Membre Dernière intervention 27 février 2008
18 mai 2009 à 19:59
Allô!

J'utilise un code très semblable inspiré de codes trouvés sur ce forum.
J'aimerais comprendre comment faire pour vérifier sur le rendez-vous existe déjà.
Car présentement, le code permet d'insérer autant de fois un rendez-vous qu'on l'exécute la macro.

Merci de vos bons conseils.
cs_Smyles Messages postés 3 Date d'inscription vendredi 13 mars 2009 Statut Membre Dernière intervention 1 avril 2009
1 avril 2009 à 13:58
Je suis très intéressée par ce code vu que je dois synchroniser un planning dans les calendriers outlook des employés.
tscalendar Messages postés 2 Date d'inscription mercredi 22 octobre 2008 Statut Membre Dernière intervention 30 octobre 2008
30 oct. 2008 à 09:49
bonjour,
j'aimerai savoir si il est possible de faire pareil en C#
d'avance merci.
koulang Messages postés 2 Date d'inscription mardi 5 octobre 2004 Statut Membre Dernière intervention 5 octobre 2007
20 sept. 2007 à 09:12
super c'est nickel, mais mon problème est que je cherche un prog qui permet d'importer des appointements à partir d'un fichier txt ou mdb.

Merci
cs_GG25 Messages postés 4 Date d'inscription vendredi 13 décembre 2002 Statut Membre Dernière intervention 25 avril 2007
25 avril 2007 à 14:03
Bonjour,Merci pour ce petit bout de prog qui est très intéressant!
J'aimerais savoir comment on fait pour consulter les rendez vous d'un autre utilisateur qui a partagé son calendrier. En effet, j'aimerais pouvoir exporter un certain nombre de calendrier dans une feuille Excel pour créer mon propre planning.
ça fonctionne très bien mais juste pour mes rendez-vous, je n'ai pas encore trouvé la commande pour accéder aux autres calendriers.
En tout cas merci d'avance pour votre aide et pour ce sujet!
GG
Afficher les 30 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.