Function fncAddOutlookTask() 
               Dim OutlookApp As Outlook.Application       'Defines as Outlook Application 
               Dim OutlookTask As Outlook.TaskItem       'Defines as setting a Task in Outlook 
               Dim SubjectWords As String 
               Dim QuoteNo As String 
               Dim TaskBody As String 
               Dim ContactName As String 
               Dim Company As String 
               Dim NextDate As Date 

               Set OutlookApp = CreateObject("Outlook.Application") 
               Set OutlookTask = OutlookApp.CreateItem(olTaskItem) 
                QuoteNo = Form_QuoteRegistryForm!QuoteNo 
                QuoteName = Form_QuoteRegistryForm!QuoteName 
                ContactName = Form_QuoteRegistryForm!FollowUpTablesubform.Form!ContactName 
                ClientName = Form_QuoteRegistryForm!ClientName 
                TaskBody = Form_QuoteRegistryForm!FollowUpTablesubform.Form!ContactDetails 
                NextDate = Form_QuoteRegistryForm!FollowUpTablesubform.Form!NextContact 

                SubjectWords = "Follow up Quote No." & QuoteNo & ", " & QuoteName & "with " & ContactName & " from " & ClientName 

           With OutlookTask 
                .Subject = SubjectWords 
                .Body = TaskBody 
                .ReminderSet = True 
                .ReminderTime = NextDate  'Remind on same day its Due ...Remind 2 minutes from now=DateAdd("n", 2, Now) 
                .DueDate = NextDate         'Due at Contact Date from subform. 
                .ReminderPlaySound = True 
                .ReminderSoundFile = "C:\WINNT\Media\Microsoft Office 2000\Clap.wav" 'Modify path. 
                .CATEGORIES = "Quotations" 
                .Save 
           End With 
           End Function