Numéro d'article: 162371 - Dernière mise à jour: jeudi 15 janvier 2004 - Version: 3.0

ACC : Utilisation de Automation pour ajouter une tâche/un rappel dans Microsoft Outlook

Retired KB ArticleExclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Voir les produits auxquels s'applique cet article
A noterCet article s'applique à un système d'exploitation différent de celui que vous utilisez. Le contenu de l'article qui ne vous concerne peut-être pas est désactivé.
Ancien nº de publication de cet article : F162371
Agrandir tout | Réduire tout

Résumé

Cet article vous explique comment utiliser Automation pour ajouter une tâche ou un rappel dans Microsoft Outlook.

Cet article suppose que vous connaissez bien Visual Basic pour Applications et que vous savez créer des applications Microsoft Access à l'aide des outils de programmation inclus dans Microsoft Access. Pour plus d'informations sur Visual Basic pour Applications, consultez votre manuel " Création d'applications avec Microsoft Access ".

Il peut arriver que vous souhaitiez ajouter, en programmation, une tâche ou un rappel dans Microsoft Outlook à partir de Microsoft Access. Cet article présente un exemple de code qui vous permet de créer une tâche et d'exécuter un fichier .wav en tant que rappel.

REMARQUE : Vous devez configurer la propriété .ReminderSoundFile de sorte qu'elle pointe vers un fichier son valide sur votre disque dur.
Retour au début

Plus d'informations

Pour ajouter une tâche ou un rappel à Microsoft Outlook, procédez comme suit :
  1. Démarrez Microsoft Access, puis ouvrez la base de données exemple Comptoir.mdb.
  2. Créez un module et tapez la ligne suivante dans la section Déclarations si celle-ci n'y figure pas déjà :
     Option Explicite
  3. Dans le menu Outils, cliquez sur Références.
  4. Cochez la bibliothèque d'objets Microsoft Outlook 8.0 Object Library (pour Outlook 98) ou Microsoft Outlook 9.0 Object Library (pour Outlook 2000) dans la zone Références disponibles.

    REMARQUE : Si cette bibliothèque d'objets n'est pas disponible dans la liste Références, cliquez sur Parcourir pour rechercher le fichier Msoutl8.olb (ou Msoutl9.olb) installé par défaut dans le dossier C:\Fichiers programme\Microsoft Office\Office.
  5. Tapez la procédure suivante :
     Function AddOutLookTask()
    Dim appOutLook As Outlook.Application
    Dim taskOutLook As Outlook.TaskItem
    Set appOutLook = CreateObject("Outlook.Application")
    Set taskOutLook = appOutLook.CreateItem(olTaskItem)
 With taskOutLook
     .Subject = "This is the subject of my task"
     .Body = "This is the body of my task."
     .ReminderSet = True .ReminderTime = DateAdd("n", 2, Now) ' Set to remind us
                                                              ' 2 minutes from
                                                              ' now.
     .DueDate = DateAdd("n", 5, Now)                          ' Set the due date
                                                              ' to 5 minutes
                                                              ' from now.
     .ReminderPlaySound = True
      'add the path to a .wav file on your computer.
      .ReminderSoundFile = "C:\Win95\media\ding.wav" 
      .Save
  End With
 End Function
  6. Pour tester cette fonction, tapez la ligne suivante dans la fenêtre Débogage, puis appuyez sur Entrée :
     ?AddOutLookTask()
    Notez qu'une nouvelle tâche est ajoutée dans Microsoft Outlook.
Retour au début

Références

Pour plus d'informations sur l'utilisation de Automation pour ajouter des rendez-vous dans Microsoft Outlook, consultez l'article suivant dans la Base de connaissances :
160502  (http://support.microsoft.com/kb/160502/FR/ ) ACC : Ajout de rendez-vous dans Microsoft Outlook à l'aide d'Automation
Pour plus d'informations sur l'utilisation de Automation avec Microsoft Access, recherchez " Automation " dans l'index de l'Aide ou interrogez le Compagnon Office de Microsoft Access 97.
Retour au début
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 95 Standard
  • Microsoft Access 97 Standard
Retour au début
Mots-clés : 
inf: intpolea kbofficeprog kbole KB162371
Retour au début
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Retired KB ArticleExclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.
Retour au début