Extracting MS Project Custom Field Lookup "Description" data

Question

I'm using MS Project 2010 Professional and
I have created a Custom Field which is called "Responsible Person" which is linked to Text2 field
On it Under Custom Attributes> Lookup I have  Under "Value" column ---->Responsible Person Names and Under "Description" Column ----> I have entered email addresses for each person.
For each project tasks , under Text2 I have selected from the dropdown the Responsible person Name ( which is the Value Column)
My Question is there a way to read using VBA, the Lookup "Description" column data which i have entered as email address.
If some one have done it in MS Project 2010 using VBA please guide me how to do this.
Thanks a lot.

Answer 1

Hi,
I have never done before for a text field. But the following works for OutlineCodes, I renamed OutlineCode2 a "xx". Perhaps you can also use an Outlinecode? Or can use this a basis to get it work with text fields.
Sub ReadDescription()
Dim oc As OutlineCode
Dim lt As LookupTable
Dim lte As LookupTableEntry
Dim tsk As Task
Set oc = ActiveProject.OutlineCodes("xx")
Set lt = oc.LookupTable
For Each tsk In ActiveProject.Tasks
If Not tsk Is Nothing Then
For i = 1 To lt.Count
Set lte = lt.Item(i)
If lte.Name = tsk.GetField(Application.FieldNameToFieldConstant("xx", pjTask)) Then
tsk.Text30 = lte.Description
End If
Next
End If
Next
End Sub
Hope that helps!
Barbara
To increase the value of this forum, please mark the replies that helped to solve your issue as answer. If you find answers to questions from other forum participants to be helpful, please mark them as helpful. Your participation will help others to find
an appropriate solution faster. Thanks for your support!