Find a Task 1

[Jellytree]

I'm sure this is very simple, but I'm new to outlook and VBA, so my knowledge is pretty sketchy.

Through vba in Access, I need to determine if an Outlook Task exists with a certain name (file number) and return True or False. Can someone please show the way? TIA.

 

[macropod]

Hi JellyTree,

Check out the Tasks Collection Object in the vba Help file.

Cheers

 

[Jellytree]

Thanks, macropod. I have gotten this far, but for some reason it never seems to return true, always false. I've got something wrong somewhere, but don't have the experience or know-how to find it:

Dim objApplication2 As outlook.Application
Dim objNameSpace2 As outlook.NameSpace
Dim fdrTasks As outlook.MAPIFolder
Dim itmTasks As outlook.TaskItem
Dim strTask As String

Set objApplication2 = CreateObject("outlook.application")
Set objNameSpace2 = objApplication2.GetNamespace("MAPI")
Set fdrTasks = objNameSpace2.GetDefaultFolder(olFolderTasks)
strTask = "[Subject]=" & FileID
Set itmTasks = fdrTasks.Items.find(strTask)

    If itmTasks Is Nothing Then     'the Find failed
       IsTask = False
    Else
       IsTask = True
    End If
    

Set objApplication2 = Nothing
Set objNameSpace2 = Nothing
Set fdrTasks = Nothing
Set itmTasks = Nothing

I believe the error is on the following line, but no errors are given when the code is run:
Set itmTasks = fdrTasks.Items.find(strTask

 

[PHV]

And what about this ?
strTask = "[Subject]='" & FileID & "'"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Jellytree]

A star to you! Worked like a charm. Thanks so much.