Searching for an Outlook Task from Excel

S

scott56hannah

I got some help regarding creating an outlook task from Excel....that worked...

I would now like to be able to search for an existing outlook task on a
users PC and then if it exists update it...

I have the following code so far....Find statement does not seem to be
returning values but the search values are valid for entries in the Outlook
tasks....

Any help appreciated....

Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace


Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")


Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub
 
P

papou

Hello

Here's some suggested amendment to your code below, tested with success on
Office 2003 SP3.

HTH

Cordially
Pascal

Sub ModifyTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")
If Not olFoundTask Is Nothing Then
With olFoundTask
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
'.CardData = "New" & Range("b6")
.Save
End With
Else
MsgBox "Task was not found", vbInformation
End If

Set olFoundTask = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub
 
S

scott56hannah

Have tried the suggested amendment and it still does not seem to register the
olFoundTask as an item object.....that is it does not match and continues on
to say not found.

The subject value in a task within my Outlook has the following "Jeff Smith
- 92 Wynora Street".....so I cannot understand why it is not working....

Any help would be appreciated.....


papou said:
Hello

Here's some suggested amendment to your code below, tested with success on
Office 2003 SP3.

HTH

Cordially
Pascal

Sub ModifyTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")
If Not olFoundTask Is Nothing Then
With olFoundTask
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
'.CardData = "New" & Range("b6")
.Save
End With
Else
MsgBox "Task was not found", vbInformation
End If

Set olFoundTask = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub


scott56hannah said:
I got some help regarding creating an outlook task from Excel....that
worked...

I would now like to be able to search for an existing outlook task on a
users PC and then if it exists update it...

I have the following code so far....Find statement does not seem to be
returning values but the search values are valid for entries in the
Outlook
tasks....

Any help appreciated....

Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace


Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")


Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub
Click to expand...
Click to expand...
 
P

papou

You can't expect the code to match your task item because its subject is not
Jeff but "Jeff Smith - 92 Wynora Street".
So in my opinion you will need to fill in the exact matching subject caption
in your code eg:
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff' Smith - 92 Wynora
Street'")

HTH
Cordially
Pascal

scott56hannah said:
Have tried the suggested amendment and it still does not seem to register
the
olFoundTask as an item object.....that is it does not match and continues
on
to say not found.

The subject value in a task within my Outlook has the following "Jeff
Smith
- 92 Wynora Street".....so I cannot understand why it is not working....

Any help would be appreciated.....


papou said:
Hello

Here's some suggested amendment to your code below, tested with success
on
Office 2003 SP3.

HTH

Cordially
Pascal

Sub ModifyTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")
If Not olFoundTask Is Nothing Then
With olFoundTask
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
'.CardData = "New" & Range("b6")
.Save
End With
Else
MsgBox "Task was not found", vbInformation
End If

Set olFoundTask = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub


scott56hannah said:
I got some help regarding creating an outlook task from Excel....that
worked...

I would now like to be able to search for an existing outlook task on a
users PC and then if it exists update it...

I have the following code so far....Find statement does not seem to be
returning values but the search values are valid for entries in the
Outlook
tasks....

Any help appreciated....

Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace


Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")


Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub
Click to expand...
Click to expand...
Click to expand...
 
P

papou

Other alternative: use a Like comparison,
but this will change the finding method and be aware that it may result in
finding several matching tasks.
HTH
Cordially
Pascal

Sub CreateTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As Boolean
Dim olTaskIt As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace
Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)

For Each olTaskIt In olTasks.Items
If olTaskIt.Subject Like "Jeff*" Then
olFoundTask = True

With olTaskIt
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With
MsgBox "Task item found and amended"
Exit For
Else
olFoundTask = False
End If

Next olTaskIt

If Not olFoundTask Then MsgBox "No task items matching criteria in
subject caption were found"

Set olTaskIt = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub

papou said:
You can't expect the code to match your task item because its subject is
not Jeff but "Jeff Smith - 92 Wynora Street".
So in my opinion you will need to fill in the exact matching subject
caption in your code eg:
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff' Smith - 92
Wynora Street'")

HTH
Cordially
Pascal

scott56hannah said:
Have tried the suggested amendment and it still does not seem to register
the
olFoundTask as an item object.....that is it does not match and continues
on
to say not found.

The subject value in a task within my Outlook has the following "Jeff
Smith
- 92 Wynora Street".....so I cannot understand why it is not working....

Any help would be appreciated.....


papou said:
Hello

Here's some suggested amendment to your code below, tested with success
on
Office 2003 SP3.

HTH

Cordially
Pascal

Sub ModifyTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")
If Not olFoundTask Is Nothing Then
With olFoundTask
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
'.CardData = "New" & Range("b6")
.Save
End With
Else
MsgBox "Task was not found", vbInformation
End If

Set olFoundTask = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub


"scott56hannah" <[email protected]> a écrit dans
le
message de news: (e-mail address removed)...
I got some help regarding creating an outlook task from Excel....that
worked...

I would now like to be able to search for an existing outlook task on
a
users PC and then if it exists update it...

I have the following code so far....Find statement does not seem to be
returning values but the search values are valid for entries in the
Outlook
tasks....

Any help appreciated....

Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace


Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")


Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub
Click to expand...
Click to expand...
Click to expand...
 
S

scott56hannah

Thanks...thats great you have been very helpful

papou said:
Other alternative: use a Like comparison,
but this will change the finding method and be aware that it may result in
finding several matching tasks.
HTH
Cordially
Pascal

Sub CreateTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As Boolean
Dim olTaskIt As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace
Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)

For Each olTaskIt In olTasks.Items
If olTaskIt.Subject Like "Jeff*" Then
olFoundTask = True

With olTaskIt
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With
MsgBox "Task item found and amended"
Exit For
Else
olFoundTask = False
End If

Next olTaskIt

If Not olFoundTask Then MsgBox "No task items matching criteria in
subject caption were found"

Set olTaskIt = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub

papou said:
You can't expect the code to match your task item because its subject is
not Jeff but "Jeff Smith - 92 Wynora Street".
So in my opinion you will need to fill in the exact matching subject
caption in your code eg:
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff' Smith - 92
Wynora Street'")

HTH
Cordially
Pascal

scott56hannah said:
Have tried the suggested amendment and it still does not seem to register
the
olFoundTask as an item object.....that is it does not match and continues
on
to say not found.

The subject value in a task within my Outlook has the following "Jeff
Smith
- 92 Wynora Street".....so I cannot understand why it is not working....

Any help would be appreciated.....


:

Hello

Here's some suggested amendment to your code below, tested with success
on
Office 2003 SP3.

HTH

Cordially
Pascal

Sub ModifyTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")
If Not olFoundTask Is Nothing Then
With olFoundTask
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
'.CardData = "New" & Range("b6")
.Save
End With
Else
MsgBox "Task was not found", vbInformation
End If

Set olFoundTask = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub


"scott56hannah" <[email protected]> a écrit dans
le
message de news: (e-mail address removed)...
I got some help regarding creating an outlook task from Excel....that
worked...

I would now like to be able to search for an existing outlook task on
a
users PC and then if it exists update it...

I have the following code so far....Find statement does not seem to be
returning values but the search values are valid for entries in the
Outlook
tasks....

Any help appreciated....

Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace


Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")


Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub
Click to expand...
Click to expand...
Click to expand...
 
P

papou

My pleasure

Cordially
Pascal

scott56hannah said:
Thanks...thats great you have been very helpful

papou said:
Other alternative: use a Like comparison,
but this will change the finding method and be aware that it may result
in
finding several matching tasks.
HTH
Cordially
Pascal

Sub CreateTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As Boolean
Dim olTaskIt As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace
Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)

For Each olTaskIt In olTasks.Items
If olTaskIt.Subject Like "Jeff*" Then
olFoundTask = True

With olTaskIt
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With
MsgBox "Task item found and amended"
Exit For
Else
olFoundTask = False
End If

Next olTaskIt

If Not olFoundTask Then MsgBox "No task items matching criteria in
subject caption were found"

Set olTaskIt = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
(e-mail address removed)...
You can't expect the code to match your task item because its subject
is
not Jeff but "Jeff Smith - 92 Wynora Street".
So in my opinion you will need to fill in the exact matching subject
caption in your code eg:
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff' Smith - 92
Wynora Street'")

HTH
Cordially
Pascal

"scott56hannah" <[email protected]> a écrit dans
le
message de news: (e-mail address removed)...
Have tried the suggested amendment and it still does not seem to
register
the
olFoundTask as an item object.....that is it does not match and
continues
on
to say not found.

The subject value in a task within my Outlook has the following "Jeff
Smith
- 92 Wynora Street".....so I cannot understand why it is not
working....

Any help would be appreciated.....


:

Hello

Here's some suggested amendment to your code below, tested with
success
on
Office 2003 SP3.

HTH

Cordially
Pascal

Sub ModifyTask()
'Reference must be set to Microsoft Outlook x.0 Object Library
Dim olApp As Outlook.Application

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")
If Not olFoundTask Is Nothing Then
With olFoundTask
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
'.CardData = "New" & Range("b6")
.Save
End With
Else
MsgBox "Task was not found", vbInformation
End If

Set olFoundTask = Nothing
Set olTasks = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing

End Sub


"scott56hannah" <[email protected]> a écrit
dans
le
message de (e-mail address removed)...
I got some help regarding creating an outlook task from
Excel....that
worked...

I would now like to be able to search for an existing outlook task
on
a
users PC and then if it exists update it...

I have the following code so far....Find statement does not seem to
be
returning values but the search values are valid for entries in the
Outlook
tasks....

Any help appreciated....

Sub CreateTask()

Dim olApp As Outlook.Application
Dim olTsk As TaskItem

Dim olFoundTask As TaskItem
Dim olTasks As Outlook.MAPIFolder
Dim olNameSpace As Outlook.Namespace


Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olTasks = olNameSpace.GetDefaultFolder(olFolderTasks)
Set olFoundTask = olTasks.Items.Find("[Subject] = 'Jeff'")


Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem(olTaskItem)

With olTsk
.Subject = Range("A6")
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Range("B6")
.TotalWork = 40
.ActualWork = 20
.CardData = "New" & Range("b6")
.Save
End With

Set olTsk = Nothing
Set olApp = Nothing

End Sub
Click to expand...
Click to expand...
Click to expand...
 

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

outlook task 6
send an outlook task to colleagues 5
outlook task recipient 6
User Defined not defind 6
Task option control 3
Command Button Controls 6
Send Email to Task while sending to Email address 1
disregard the Outlook dialog box sending task/eMail from Excel 2003 6

Top