Outlook 2007 Update Fields Thru Tasks

[Diane Poremsky]

You repeated what you said above and I wrote back : I think so as in a contact, I have that script code that creates a task to that contact and the contact link is at the bottom of the task.

No, that second reply was the frinkin' board reposting my replies. I don't know what is wrong with it - it seems like its mostly me who is affected by it, although i think you and someone else had double posts yesterday.

I've been thinking about switching forum software and this might be enough to make me change... or drive me to drink. lol

 

[LMS]

I still need the help!!!!

 

[Diane Poremsky]

I still need the help!!!!

My kids tell me that all the time, but usually not in a nice way. lol (Can you tell I just got off a 1 hr meeting that accomplished nothing? )

I'm getting type mismatch when i test the code and i can't see where the problem is - it's not highlighting the code, so the error kicks in before it doesn't anything. I think the problem is with this For cq = 0 To UBound(conts) is sending data to outlook that is not what its expecting, but it should work so i don't understand the problem.

 

[LMS]

So what should do or try?

 

[Diane Poremsky]

I have no idea - the code looks correct, so it should work. maybe check with the person who gave it to you and see if they have any ideas what could be wrong.

 

[LMS]

Any new thoughts so i can change the fields of contacts with tasks?

 

[Diane Poremsky]

No. Test the macro with the default fields - this will tell you if it is working at all. If it works, then the problem is the custom fields. If not, it's the code.

 

[LMS]

What do you mean and how to:

Test the macro with the default fields

 

[Forum Admin]

Instead of using the custom fields in the macro, use the default fields - like hte tash start field and try inserting it into the contact's body. This will help you determine if the macro is working. Another option is to write all of the values in the immediate window. Or write after each step

debug.print "step 1"

debug.print "step 2"

The code looks ok to me, and this will help you troubleshoot it.

 

[LMS]

As I repeat, I am not the expert in this area. Can you possibly just post the code I need to change and make the changes you just mentioned, and then I will run it and let you know the result of it. Thanks very much.

 

[Diane Poremsky]

I'm not much of an expert all of the time either. It's really hard for me to test this since you are using custom fields and my outlook doesn't support the contact links that you are using.

The code looks good - I can't see any glaring errors in it, the logic looks good. It either can't be done or there is a mistake that is easy to overlook.

Instead of using this:

otask.UserProperties.Item("FieldName") = oContact.UserProperties.Item("FieldName")

Test it with regular fields:

otask.Subject = oContact.fullname

otask.body = oContact.subject & vbcrlf & otask.body

You could even add a few debug.prints to the code then check the immediate window and see if the field values print

debug.print ocontact.fullname
otask.Subject = "before " oContact.fullname
debug.print "after " otask.Subject

 

[LMS]

Here is the macro of the Module someone gave me....please show me exactly what is changed:

Public Sub UpdateContactFieldTasks(ByVal FieldName As String, ByVal myValue As String)

Dim tsk As taskItem, c As contactItem, f As MAPIFolder
Set f = Application.GetNamespace("mapi").GetDefaultFolder(olFolderContacts)
For Each tsk In ActiveExplorer.Selection
conts = Split(tsk.ContactNames, ",")
For cq = 0 To UBound(conts)
Set c = f.Items(conts(cq))
c.UserProperties.Item(FieldName).value = myValue
c.Save
Next
Next
End Sub

 

[Forum Admin]

since myvalue is coming in from elsewhere, add a debug.print myvalue right before the For Each line.

add a debug.print tsk.ContactNames after the For Each line.

add debug.print conts after the conts = line

If these don't print the expected values in the immediate window, the problem is with a different macro.

 

[LMS]

I did the following and each added line shows up as an error yellow

Public Sub UpdateContactFieldTasks(ByVal FieldName As String, ByVal myValue As String)

Dim tsk As taskItem, c As contactItem, f As MAPIFolder
Set f = Application.GetNamespace("mapi").GetDefaultFolder(olFolderContacts)
For Each tsk In ActiveExplorer.Selection
Debug.Print tsk.ContactNames
conts = Split(tsk.ContactNames, ",")
Debug.Print conts
For cq = 0 To UBound(conts)
Set c = f.Items(conts(cq))
c.UserProperties.Item(FieldName).value = myValue
c.Save
Next
Next
End Sub

 

[Diane Poremsky]

do you get a dialog that says why each line generated the error?

My guess is that it can't find the object identified by tsk but without an error code, that is just a guess.

 

[LMS]

All that happens is the code lines you gave me turns yellow and nothing shows up describing the error.

 

[Diane Poremsky]

Well, there is something wrong with the code that feeds that macro - i can only assume its not getting values for FieldName and myValue. I'm not able to test it because of the custom form and features no supported in 2013 so I won't be much help in figuring out where the problem is. sorry.

 

[LMS]

To All,

If this helps to others, I just wanted to explain. Through the forum, we have worked hard to find the way to adjust contacts and their related fields, through selecting tasks that are linked to a contact each one.

Since I have the codes that does it when I select contacts, and I want to adjust contacts if they are in a task, I setup in the contact form, that when I create a task for the contact using a script code of the contact form, it automatically adds to a new text field named as Task Yes/No, the word "Yes". That way I sort a contact folder by the field

Task Yes/No, which then shows me the list of contacts in Tasks, and I can then change them thru my code that changes selected contacts.