Run time error 48

K

Kerry

I have this piece of code in and access 2000 database.
Once a user enters a date into a field then this code
runs to add it as a task in Outlook 2000. The code work
fine when using a windows2000 or xp machine, but as soon
as I try using it on Windows 2000 Terminal Server I get
the run time error 48. Any suggestions? I'm new at this
and can't figure it out.

Function fncAddOutlookTask()
Dim OutlookApp As Outlook.Application
Dim OutlookTask As Outlook.TaskItem

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookTask = OutlookApp.CreateItem(olTaskItem)

With OutlookTask
.Subject = "Need to Follow Up"
.Body = "Check this date for follow up."
.ReminderSet = True
.ReminderTime = DateAdd("n", 2, Forms!
MMEHT_ShortTermDisability.Follow_Up_Date) 'Remind 2
minutes from now.
.DueDate = DateAdd("n", 5, Forms!
MMEHT_ShortTermDisability.Follow_Up_Date) 'Due 5
minutes from now.
.ReminderPlaySound = True
.ReminderSoundFile
= "C:\Windows\Media\Ding.wav" 'Modify path.
.Save
End With
End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Automate Task Responce? 1
Create task in Outlook folder 3
Date subtraction problem 6
run time error 48 0
Function: Expected Equals 0
Adding Task to Outlook 1
Setting the ReminderTime gives strange results 1
Outlook Tasks - I thought I had it but somethings wrong 5

Top