Creating a Task with VBScript

[yannickestrada]

Regards.

Hi I´m trying to create a task in a custom Contact form in Outlook. I would
like that the task appears in the Activities tab, but I only get to create
the task in the session, can´t associate with the current contact form.

How I can do that?

I was trying to link the Task Item with the contact form bu that don´t seems
to work.

Thanks for your help.
Yannick

 

[Ken Slovak - [MVP - Outlook]]

You need the contact as a ContactItem. Then get the Links collection of the
new task item and add that ContactItem to the Links collection of the task
using the Links.Add method.

 

[yannickestrada]

Thanks I was traying to do the opposite.

But my new code doesn´t seems to work neither.

Set myTask = Application.CreateItem(3)
myTask.Subject = "..."
myTask.DueDate #17/08/09#

myTask.Save

Set colLinks = myTask.Links
colLinks.Add(Item)

How I get the current form as a ContactItem is not enough with Item?

Regards.

 

[yannickestrada]

I get the error when I call: colLinks.Add(Item)

 

[Ken Slovak - [MVP - Outlook]]

Item should work if the item is a contact item. Form code is VBScript, so it
only has Variant objects and you can't create a ContactItem reference.

Does it work if you use it as a function:

Set colLinks = myTask.Links
Set oLink = colLinks.Add(Item)

 

[yannickestrada]

Same error. I don´t know what is the problem, because the Item is like
Item.Contact.MyForm, that should work.

Thanks again.

 

[Ken Slovak - [MVP - Outlook]]

Try an experiment and do the same code in the Outlook VBA project. Declare
the item as a ContactItem and get it from
Application.ActiveInspector.CurrentItem. Then run the code that creates a
new task and see if the adding to the Links collection works there.

 

[yannickestrada]

It´s works, but the task doesn´t appear in the Activities tab. Instead
appears the Form as a Contact element.

Thanks.

 

[Sue Mosher [MVP]]

Here's another idea: Try saving the item before you call Links.Add

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

 

[yannickestrada]

Thanks Sue, that works.

But know I had 2 problems. The task doesn´t appear in the Activities tab
like I expected, instead appears my custom form as a contact element.

The other problem is that the elements in Activities tab sometimes appears
sometimes not. Why is that? I use Outlook 2007.

Regards

 

[Sue Mosher [MVP]]

Sorry, but I don't understand what you mean by "appears my custom form as a
contact element."

The Activities tab does an on-demand search each time you use it, which can
be quite slow, depending on how many folders are included in the selected
activity group. Maybe you just need to wait longer for the search to
complete.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

 

[yannickestrada]

Sorry Sue, that was ocurring when I run the code in a VBA project.

My code looks like this:

Set myTask= Application.CreateItem(3)
myTask.Subject = "Subject"
myTask.DueDate = #17/09/2009#
myTask.Save

Item.Save

Set colLinks = myTask.Links
Set oLinks = colLinks.Add(Item)

Now the Add function isn´t the problem. I checked the colLinks count and the
add is happening, but I never see the task in the Activities tab.

Thanks.

 

[Ken Slovak - [MVP - Outlook]]

Do you save the item again after adding to the Links collection?

 

[Sue Mosher [MVP]]

The task won't appear on the contact's Activities page until you save the
task.

Which activities list are you looking at -- All Items? Upcoming
Tasks/Appointments? Are you watching until the animation on the right side
of the window stops?

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

 

[yannickestrada]

Thanks both!...that was missing. Works nice now.

I appreciate the time you both take to fix my problem.

Regards.
Yannick