IBM Support

How to export the profile information from an end-user mail file, by programming a button

Technote (troubleshooting)


How to export the profile information from an end-user mail file, by programming a button


Support may ask SmartCloud Notes company administrators to install the Notespeek utility in order to extract the profile information or to create a Support ticket that requests execution of the command from the SmartCloud Notes servers.

Support has written a small button, that allows for just one click to get the profile information for any investigation.

Resolving the problem

1) Create a button using the following Lotus Script Lines.

2) Successful execution of the command will export all the profiles on the target mail file, to the file called "profiledump.xml", which will get stored on the user's client note data directory.

Option Public
Option Declare

Sub Initialize

Dim s As New NotesSession
Dim curdb As NotesDatabase
Dim curdoc As NotesDocument
Dim profdoccollection As NotesDocumentCollection
Dim profdocentry As NotesDocument
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim stream As NotesStream
Dim exportdir As String
Dim exportprofiledoc As String
Dim gexporter As NotesDXLExporter
Dim goutstring As String
Dim filenum As string

exportdir =s.GetEnvironmentString("Directory", True)
exportprofiledoc = exportdir & "/" & "profiledump.xml"

Set curdb=s.Currentdatabase
Set gExporter = s.CreateDXLExporter

Set profdoccollection = curdb.Getprofiledoccollection()
Set profdocentry = profdoccollection.Getfirstdocument()

While not profdocentry Is Nothing

filenum = FreeFile
Open exportprofiledoc For Append As filenum
gOutString = gExporter.Export(profdocentry)
Print #FileNum, gOutString
Close #filenum

Set profdocentry = profdoccollection.getnextdocument(profdocentry)
Msgbox "profiledump.xml has been created on" & exportdir
End Sub

Document information

More support for: IBM SmartCloud Notes

Software version: Not Applicable

Operating system(s): Platform Independent

Software edition: All Editions

Reference #: 1628346

Modified date: 21 March 2013

Translate this page: