ACC: Using Automation to Add a Task/Reminder to MS Outlook

MORE INFORMATION

1. Start Microsoft Access and open the sample database Northwind.mdb.
2. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

3. On the Tools menu, click References.
4. Click Microsoft Outlook 8.0 Object Library in the Available References box.
   
   NOTE: If this object library is not available in the References list, click Browse to locate the Msoutl8.olb file, which is installed by default in the C:\Program Files\Microsoft Office\Office folder.
5. Type the following procedure:

         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. To test this function, type the following line in the Debug window, and then press ENTER:

   ?AddOutLookTask()
   						

   Note that a new task is added to Microsoft Outlook.