run time error 48

K

Kerry

I have the code below in an access 2000 database. I'm
trying to add a task to outlook 2000. It works fine on my
windows 2000 and winxp machines, but as soon as I try to
get it to run on my windows2000 terminal server I get the
run time error. Any suggestions?

'Option Explicit

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)
.DueDate=DateAdd("n", 5, Forms!
MMEHT_ShortTermDisability.Follow_Up_Date)
.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

Create task in Outlook folder 3
Automate Task Responce? 1
Run time error 48 0
Date subtraction problem 6
Function: Expected Equals 0
Adding Task to Outlook 1
Send Outlook object from Access 6
Setting the ReminderTime gives strange results 1

Top