Domino 9 und frühere Versionen > ND8: Entwicklung

Kalender Export per Lotus Notes Agent

<< < (2/3) > >>

fettehenne:

--- Zitat ---Du kannst auf die Suche gehen nach LotusScript-Code für den Export in das ICS-Format - das gibt es zuhauf. Und damit bist Du ja schon ganz nah dran.
--- Ende Zitat ---

Das habe ich gemacht und so langsam nähere ich mich der Lösung. Folgendes ist bisher dabei rausgekommen:


--- Code: ---Sub Initialize

Dim session As New NotesSession

Set db = session.CurrentDatabase
Set col = db.UnprocessedDocuments

outputFile = Freefile()
Open "C:\\NotesCalendar.txt" For Output As outputFile

Set doc = col.GetFirstDocument
While Not (doc Is Nothing)

Set startDate = New NotesDateTime(doc.StartDateTime(0))
Set endDate = New NotesDateTime(doc.EndDateTime(0))

Print #outputFile, "Subject: " &  doc.Subject(0)

Print #outputFile, "StartDate: " & startDate.DateOnly & " " & startDate.TimeOnly
Print #outputFile, "EndDate: " & endDate.DateOnly & " " & endDate.TimeOnly

Print #outputFile, "Location: " & doc.Location(0)
Print #outputFile, "Room: " & doc.Room(0)
Print #outputFile, "ApptUNID: " & doc.ApptUNID(0)
Print #outputFile, "AppointmentType: " & doc.AppointmentType(0)
Print #outputFile, "$Chair: " & doc.Chair(0)
Print #outputFile, "$From: " & doc.From(0)

For i=Lbound(doc.INetRequiredNames) To Ubound(doc.INetRequiredNames)
str_INetRequiredNames = str_INetRequiredNames & Cstr(doc.INetRequiredNames(i)) & ", "
Next
Print #outputFile, "$INetRequiredNames: " & str_INetRequiredNames

For i=Lbound(doc.RequiredAttendees) To Ubound(doc.RequiredAttendees)
str_RequiredAttendees = str_RequiredAttendees & Cstr(doc.RequiredAttendees(i)) & ", "
Next
Print #outputFile, "$RequiredAttendees: " & str_RequiredAttendees

' Funzt noch nicht
Print #outputFile, "$PublicAccess: " & doc.PublicAccess(0)
Print #outputFile, "$Alarm: " & doc.Alarm(0)
Print #outputFile, "$AlarmOffset: " & doc.AlarmOffset(0)


' Ende des Termins markieren über "\f"
Print #outputFile, Chr(12)

Set doc = col.GetNextDocument(doc)
Wend

Close outputFile

End Sub

--- Ende Code ---

Leider liefern mir die letzten drei (PublicAccess, Alarm, AlarmOffset) nichts zurück, obwohl über den Standard-Export als "Structured Text" hätte etwas kommen müssen.

SOLL (über den Standard Export)

--- Code: ---$Alarm:  1
$AlarmOffset:  -30
$PublicAccess:  1

--- Ende Code ---

IST (über den Lotus Script Agent)

--- Code: ---$Alarm:
$AlarmOffset:
$PublicAccess:

--- Ende Code ---

Greife ich da evtl. falsch drauf zu? Wo könnte denn hier der Hund begraben liegen?

koehlerbv:
Du hast das unscheinbare "$"-Symbol aber schon bemerkt, Adam?

Um Dich nicht auf das nächste Glatteis zu schicken: In Verbindung mit dem "$"-Symbol musst du bei der Notation die Mathilde voranschicken, also so:
NotesDocument.~$Alarm (0).

HTH,
Bernhard

fettehenne:
Bernhard, Du bist der Beste :knuddel: Da hätte ich ja lange suchen können...
Vielen Dank dafür!

BTW: Wofür steht eigentlich HTH?

Noch ein paar Fragen:
Wie kann ich den nachfolgenden Code in eine eigene Funktion auslagern und aufrufen? Kann ich die Funktion dann in die gleiche Datei hinter der Sub-Methode (also hinter "End Sub") schreiben? Und wie würde ich sie dann aus meinem o.g. Codebeispiel aufrufen?


--- Code: --- str_RequiredAttendees = ""
For i=Lbound(doc.RequiredAttendees) To Ubound(doc.RequiredAttendees)
str_RequiredAttendees = str_RequiredAttendees & Cstr(doc.RequiredAttendees(i)) & ", "
Next
Print #outputFile, "$RequiredAttendees: " & str_RequiredAttendees

--- Ende Code ---

Schonmal vielen Dank im Voraus, Adam

WernerMo:
Hallo,


--- Zitat von: fettehenne am 16.09.11 - 19:06:18 ---
BTW: Wofür steht eigentlich HTH?

--- Ende Zitat ---

"Hope This Helps“ („Hoffe, das hilft“)
obwohl man bei Bernhard auch mit "Heavy Transport Helicopter" rechnen könnte ;-)

Gruß aus Weißenburg
Werner

Bastel123:
Hallo Bernhard,

der Tip mit Mathilde ist gut. Er hat mir (vorerst) weitere graue Haare erspart.

Danke
Seabstian

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete