Notes Adressebog

Åbn adressebogen og gå op i Filer og Export. Der kan du så gemme info som alm text fil! Tahts it

Hej

Det virker fint hvis man vælger \"Structured Text\", men hvis du vælger \"Tabular Text\" gemmes kun Navn, adresse telefon og fax. Er det rigtigt opfattet?

I princippet skulle det være ens, men jo, jeg har også erfarret at der kan være forskel. Og vil også anbefale dig at exportere som \"Structured Text\". Men det kommer jo lidt an på hvad man skal bruge det til ;o)

/roed

>>roed
Ikke helt korrekt. Forskellen er, at Structured text exporterer SAMTLIGE felter på formen (også hidden fields), mens Tabular text kun exporterer fra det aktuelle view (incl. skjulte kolonner).
>>rager
En mere optimal løsning kunne være, at bruge en agent hvor du kan vælge hvilke dokumenter og hvilke felter du vil have udskrevet. Se eksempel her:

Sub Initialize
  Dim Session As NotesSession
  Dim Db As NotesDatabase
  Dim Col As NotesDocumentCollection
  Dim Doc As NotesDocument
  Dim FF As Integer
  Dim FilePath As String
  Dim FullDesc As String
  Dim FullRequestDescription As NotesRichTextitem

  FF = Freefile

  FilePath=Inputbox(\"File Path\")
  If FilePath <> \"\" Then
      Open FilePath For Output As #FF
      Set Session = New NotesSession
      Set Db = Session.CurrentDatabase
      Set Col = Db.UnprocessedDocuments
      Set Doc = Col.GetFirstDocument
      Write #FF,\"Felt1 header\" ,\"Felt2 header\",\"Feltn header\"
      Do While Not Doc Is Nothing
        With Doc
            Write #FF,Felt1, Felt2, Feltn
        End With
        Set Doc = Col.GetNextDocument(Doc)
      Loop
      Close #FF
  End If
   
End Sub

Tak for hjælpen

Koden må siges at være den bedste løsning.