Dim session As New NotesSession 
  Dim workspace As New NotesUIWorkspace 
  Dim db As NotesDatabase 
  Dim collection As NotesDocumentCollection 
  Dim uidoc As NotesUIDocument 
  Dim pickdoc As NotesDocument 
  Set uidoc = workspace.CurrentDocument 

  Set db = session.CurrentDatabase 
  Set collection = workspace.PickListCollection( _ 
  PICKLIST_CUSTOM,  _ 
  False,  _ 
  "GREATWALL/OPENS",  _ 
  "S_Dir\SYMPHONY20-TCDB.nsf",  _ 
  "Functions",  _ 
  "Select Category",  _ 
  "Please select a Category." ) 
  If collection.Count = 0 Then 
  Else 
    Set pickdoc = collection.GetFirstDocument 
    Call uidoc.FieldAppendText("Category", "," + pickdoc.FullTitle(0)) 
 End If 

				
 Dim ws As New NotesUIWorkspace 
  Dim filenames As Variant 
  Dim collection As NotesDocumentCollection 
  Dim pickdoc As NotesDocument 
  Dim docr As NotesDocument 
  filenames = ws.OpenFileDialog(True, "Select sample Files to import database",,"c:\") 
  If Isempty(filenames) Then 
    Msgbox "Please select files!",48,"Sample Files"
    Exit Sub 
  End If  
  Dim session As New NotesSession 
  Dim db As NotesDatabase 
  Dim doc As NotesDocument 
  Dim rtitem As NotesRichTextItem 
  Dim object As NotesEmbeddedObject 
  Dim authorItem As NotesItem 
  Dim readerItem As NotesItem 
  Dim view As NotesView 
  Dim sourcedoc As NotesDocument 
  Dim curuser As NotesName 
  Dim Crprofile As NotesDocument 
  Set db = session.CurrentDatabase 
  Set curuser = session.CreateName(session.EffectiveUserName) 
  Set view = db.GetView("Source") 
  Set Crprofile = db.GetProfileDocument("dlgPhase",session.UserName) 
  If ws.DialogBox("dlgPhase",True,True,False,False,False,False,"Select......",
  Crprofile,False,False) Then 
    Forall o In filenames 
      If FileExist(db,o) = 0 Then 
        Set doc = db.CreateDocument 
        doc.form = "FileInfo"
        doc.SubmitDate = Now() 
        doc.Submiter = curuser.Abbreviated 
        doc.Category = Crprofile.Category(0) 
        doc.Requirements = Crprofile.Requirements(0) 
        doc.TestPhase = Crprofile.TestPhase(0) 
        doc.Release = Crprofile.Release(0) 
        doc.Source = Crprofile.Source(0) 

        Set sourcedoc = view.GetDocumentByKey(Crprofile.Source(0)) 
        If Not sourcedoc Is Nothing Then 
          Set readerItem = New NotesItem(doc, "Readers", "[DB Admin]",READERS) 
          Set authorItem = New NotesItem(doc, "Editors","[DB Admin]",AUTHORS) 
          Call readerItem.AppendToTextList(sourcedoc.Owners) 
          Call authorItem.AppendToTextList(sourcedoc.Owners) 
          Call readerItem.AppendToTextList(curuser.Canonical) 
          Call authorItem.AppendToTextList(curuser.Canonical) 
        End If 
      
        doc.FileFormat=Crprofile.FileFormat(0) 
        doc.OS = Crprofile.OS(0) 
        doc.Application = Crprofile.Application(0) 
        doc.Automated = Crprofile.Automated(0) 
        doc.Description = Crprofile.Description(0) 
        
        Set rtitem = New NotesRichTextItem(doc, "Attachment") 
        Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", o) 
        seccess = doc.ComputeWithForm(False, False) 
        Call doc.Save(True,True) 
      Else 
        Msgbox o+" is already in DB, and it can not be attached."
      End If 
    End Forall 
  End If 
  Call Crprofile.Save(False, False) 

				
 Dim ws As New NotesUIWorkspace 
  Dim filenames As Variant 
  filenames = ws.SaveFileDialog(True, "Select sample Files to import database",,"c:\") 
  If Isempty(filenames) Then 
    Msgbox "Please select files!", 48, "Sample Files"
    Exit Sub 
  End If  
  Dim session As New NotesSession 
  Dim db As NotesDatabase 
  Dim dc As NotesDocumentCollection 
  Dim doc As NotesDocument 
  Dim rtitem As Variant 
  Set db = session.CurrentDatabase 
  Set dc = db.UnprocessedDocuments 
  If dc.Count = 0 Then 
  Else 
    Set doc = dc.GetFirstDocument 
    While Not doc Is Nothing 
      Set rtitem=doc.GetFirstItem("Attachment") 
      If rtitem.type=RICHTEXT Then 
        Forall o In rtitem.EmbeddedObjects          
          If o.Type=EMBED_ATTACHMENT Then 
            Call FolderExists(filenames(0), doc.Category(0))            
            Call o.ExtractFile(filenames(0) + "\" + doc.Category(0) + "\" + o.Source)
          End If        
        End Forall 
      End If 
      Set doc = dc.GetNextDocument(doc) 
    Wend 
  End If