L
Lor
Hi,
I am using Outlook 2003 and Access 2000. I try to mark a task as completed
from Access, but there is an Outlook warning that always comes up that I have
to click on "Yes" to allow the procedure to continue. The code is:
Function MarkComplete()
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim myItem As Outlook.TaskItem
Dim myTask As String
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Jane Smith")
myRecipient.Resolve
myTask = "Subject Name of Task"
Set myItem =
Outlook.Application.Session.GetSharedDefaultFolder(myRecipient,
olFolderTasks).Items(myTask)
myItem.MarkComplete
End Function
Is there an easy way to get around the warning?
Thanks,
Lor
I am using Outlook 2003 and Access 2000. I try to mark a task as completed
from Access, but there is an Outlook warning that always comes up that I have
to click on "Yes" to allow the procedure to continue. The code is:
Function MarkComplete()
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim myItem As Outlook.TaskItem
Dim myTask As String
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Jane Smith")
myRecipient.Resolve
myTask = "Subject Name of Task"
Set myItem =
Outlook.Application.Session.GetSharedDefaultFolder(myRecipient,
olFolderTasks).Items(myTask)
myItem.MarkComplete
End Function
Is there an easy way to get around the warning?
Thanks,
Lor