Automation outlook (calendrier)

Commenter

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

S'inscrire maintenant

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.