• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 273
  • Last Modified:

Getting Dialog List Values into Excel from Notes database

I have two fields in a notes view 'testView' EmpNo and his Interest. The Interest is from a Dialog List consisting of multiple values for an employee. How will I output the same information into a excel file. example row 1 will be emp 1 and Interest 1 which is checked. row 2 will be emp 1 and Interset 2 which is checked.

Thanks
Raghunath.R
0
RaghunathR
Asked:
RaghunathR
  • 3
  • 2
1 Solution
 
burmontpointCommented:
You can select [File][Export] from the menu, and whatever is displayed in the view will be exported.  Select "Lotus 1-2-3" as the file type and this can then be read by Excel. If you want only selected documents, just select the ones you want before you click the menu commands.
0
 
RaghunathRAuthor Commented:
I need to write an agent for the same, can you let me know how to read the values.. I can write the same in excel if I will be able to get the selected list values for a particular employee
0
 
burmontpointCommented:
YOu best bet programatically is to create a CSV expoprt file. There is some sample code in two posts that I made at SearchDomino.com. They should be a good starting place.

See "Formats a text output file" for how to create the output file and process the view:  http://searchdomino.discussions.techtarget.com/WebX?msgInContext@253.7elmabZhARo.2@.ee7740b/8904

See "check post 8905" for the code used to append a row for each record processed: http://searchdomino.discussions.techtarget.com/WebX?msgInContext@253.7elmabZhARo.1@.ee7740b/15479


0
 
RaghunathRAuthor Commented:
This doesn't help can you let me know how to read the values from a Dialog List(Multi select list box)

Thanks
0
 
burmontpointCommented:
Here is a sample from the help files. Substitute your field name for "SendTo". and then change the code inside the forall loop to process each value in the field.

Dim doc As NotesDocument
Dim item As NotesItem
Dim j As Integer
'...set value of doc...
Set item = doc.GetFirstItem( "SendTo" )
' if there's no SendTo item
' try to find another item of type Names, that has a value
If ( item Is Nothing ) Then
  Forall i In doc.Items
    If i.IsNames And ( i.Values( 0 ) <> "" ) Then
      Set item = i
      Exit Forall
    End If
  End Forall
  ' if we found an item of type Names
  ' mail the document to people in that item
  If Not ( item Is Nothing ) Then
    Call doc.Send( False, item.Values )
  End If
' if there is a SendTo item, no parameters needed    
' mail the document
Else
  Call doc.Send( False )
End If
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now