Lotus Notes - Importar archivo CSV a Lotus Notes Calendar

   
Vista:

Importar archivo CSV a Lotus Notes Calendar

Publicado por Rafa (25 intervenciones) el 04/08/2014 18:28:31
¿Alguién tendrá algún código en LotusScript para importar archivos CSV al calendario de notes?

Gracias.

p.d. adjunto algo con lo cual empezar, pero me falta la parte de como decirle que es lo que quiero que lea e importe.

'============================================================

Sub Click(Source As Button)
' On Error Goto errHandler
Print "Opening calendar .. "
Dim server As String
Dim subjectClient As String
Dim locationClient As String
Dim bodyClient As String
Dim timeZoneClient As String
Dim s As New notessession
Dim userMailDb As New NotesDatabase("", "")
Call userMailDb.OpenMail()
If userMailDb.IsOpen = False Then
Msgbox "Error occured - cannot open default mail database", 48, "Fail"
Exit Sub
End If
server = Trim(userMailDb.Server)
Dim nam As New NotesName(s.EffectiveUserName)
Dim startDateLocalClient As Variant
Dim latestStartDateClient As NotesDateTime
Dim docNew As NotesDocument
Dim docResp As notesdocument
Dim iCnt, i As Integer
Dim vCalDatRepeatClient() As Variant
Dim isRepeatingClient As Boolean
Dim iRepeatClient As Integer
Dim repeatHowClient As String
Dim tempInstance As Integer
Dim repeatInstance As Integer
Dim fn As Variant

'Version 1
'code from Rafael Nava
'Insert the code into an action button in a view or make it available
'from the action menu because it uses NotesUIWorkspace.
'will import from CSV file type
Dim astrFields As Variant
Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim form As NotesForm
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Dim row As Integer
Dim xlFilename As String
Dim xlsApp As Variant
Dim xlsWorkBook As Variant
Dim xlsSheet As Variant
Dim rows As Long
Dim cols As Integer
Dim x As Integer
Dim itemName As String
Dim flag As Integer
Dim formAlias As String
Dim sortEval As String
Dim sortedList As Variant
Dim indexLo As Long
Dim indexHi As Long
Dim msg As String
Dim formname As String

Dim Obj As Variant
Dim ObjServiceManager As Variant
Dim ObjCoreReflection As Variant
Dim ObjDesktop As Variant
Dim NoArgs() As Variant
' On Error GoTo ErrorHandler
Set db = session.CurrentDatabase
'Get CSV file name
fn =uiws.OpenFileDialog(False, "Select the csv File to Import", "CSV files | *.csv", "c:\My Documents")
xlFilename = Cstr(fn(0)) ' This is the name of the Excel file that will be imported
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder