Automation outlook (calendrier)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 43 205 fois - Téléchargée 40 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

Messages postés
7
Date d'inscription
samedi 19 novembre 2005
Statut
Membre
Dernière intervention
27 février 2008

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.
Messages postés
3
Date d'inscription
vendredi 13 mars 2009
Statut
Membre
Dernière intervention
1 avril 2009

Je suis très intéressée par ce code vu que je dois synchroniser un planning dans les calendriers outlook des employés.
Messages postés
2
Date d'inscription
mercredi 22 octobre 2008
Statut
Membre
Dernière intervention
30 octobre 2008

bonjour,
j'aimerai savoir si il est possible de faire pareil en C#
d'avance merci.
Messages postés
2
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
5 octobre 2007

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
Messages postés
4
Date d'inscription
vendredi 13 décembre 2002
Statut
Membre
Dernière intervention
25 avril 2007

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.