rb hat geschrieben:Hi,
aktueller als vCalendar- ist ja der iCalendar-Standard (.ics). Sonst werden einige Dinge nicht unterstützt oder zumindest komplizierter, ich glaube Wiederholungstermine sind da z.B. Kandidaten. Falls ihr da also nochmal Entwicklungszeit für's Makro habt...
Hast du zusätzlich die Erweiterung vcs Support installiert? Ohne die sieht's mit der Verarbeitung von .vcs-Dateien durch Sunbird/Lightning ja eigentlich ohnehin nicht so dolle aus. Oder versuchst du den Import in ein Lightning ohne weitere Erweiterungen?
Schöne Grüße
Robert
BEGIN:VCALENDAR
BEGIN:VEVENT
SUMMARY:Werbewirkung I
DESCRIPTION: ab 14:00 Uhr
DTSTART:20092001T090000
DTEND:20092001T140000
End:VEVENT
BEGIN:VEVENT
SUMMARY:Werbewirkung II
DESCRIPTION: ab 19:00 Uhr
DTSTART:20092101T140000
DTEND:20092101T190000
End:VEVENT
End:VCALENDAR
.
ENDLICH beginnt am | beginnt um | endet um | Betreff | Beschreibung
22.01.2009 09:00 14:00 Mediaplanung I Herr *Option Explicit
Sub x()
Dim intHandle As Integer
Dim i As Long
intHandle = FreeFile
Open "C:\Kalender.vcs" For Output As #1
Print #intHandle, "BEGIN:VCALENDAR"
Print #intHandle,"VERSION:1.0"
Print #intHandle,"PROD-ID:-//Mozilla.org/NONSGML Mozilla Calendar V1.1//EN"
For i = 2 To IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
Print #intHandle, "BEGIN:VEVENT"
Print #intHandle, "DTSTART:" & MakeDate(Cells(i, 1).Text, Cells(i, 2).Text)
Print #intHandle, "DTEND:" & MakeDate(Cells(i, 1).Text, Cells(i, 3).Text)
Print #intHandle, "SUMMARY:"; Cells(i, 4).Text & " " & Cells(i, 5).Text
Print #intHandle, "END:VEVENT"; vbNewLine
Next
Print #intHandle, "END:VCALENDAR"
Close #intHandle
End Sub
Private Function MakeDate(ByVal s1 As String, ByVal s2 As String) As String
If Not IsDate(s1) Or Not IsDate(s2) Then Exit Function
MakeDate = Year(s1) & Format(Month(s1), "00") & Format(Day(s1), "00") & "T" & _
Format(Hour(s2), "00") & Format(Minute(s2), "00") & Format(Second(s2), "00")
End Function
Zurück zu Lightning - Kalender, Termin- und Aufgabenverwaltung
Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste