LN VBA Kalendar

[LN_A]

Hallo,

ich habe ein Problem mit meiner Funktion, mit der ich aus Excel Termine im LN Kalender mache.
Das ganze hat super funktioniert, dann hatten wir ein Update und ab da ging es nur noch bedingt.
Es funktioniert immer noch.... nur werden die Daten nicht korrekt übertragen. Die Speicherung erfolgt immer zum aktuellen Datum mit einer für mich "zufälligen" Uhrzeit. Es wäre echt super, wenn mir jemand helfen könnte. Ich habe das ganze Schritt für Schritt laufen lassen und es wird alles korrekt befüllt aber gespeichert wird etwas total anderes...ich verstehe es nicht! Vorab schon mal danke! Hier der Code:

Sub sendtocalenedar()


Dim MailDbName As String
Dim strSTime As String
Dim strETime As String
Dim CalenDoc As Object
Dim WorkSpace As Object
Dim ErrCnt As Integer
 
    Set WorkSpace = CreateObject("Notes.NOTESUIWORKSPACE")
 
    strSTime = Range("I7").Value
    strETime = Range("J7").Value
   
    Set CalenDoc = WorkSpace.COMPOSEDOCUMENT("XXXX", "mailyy\yyyyy.nsf", "Appointment")
   
    CalenDoc.FIELDSETTEXT "AppointmentType", "0"
       
    CalenDoc.FIELDSETTEXT "StartDate", CStr(Range("I6").Value)
    CalenDoc.FIELDSETTEXT "EndDate", CStr(Range("J6").Value) 
    CalenDoc.FIELDSETTEXT "StartTime", strSTime
    CalenDoc.FIELDSETTEXT "EndTime", strETime
    CalenDoc.Refresh
   
    Subject = Range("J8").Value
    Body = Range("J9").Value
 
    CalenDoc.FIELDSETTEXT "Subject", Subject
    CalenDoc.FIELDSETTEXT "Location", "Desk"
    CalenDoc.GotoField "Body"
    CalenDoc.insertText Body
    CalenDoc.Refresh
    CalenDoc.Save
    CalenDoc.send   
    CalenDoc.Close
    Set CalenDoc = Nothing
    Set WorkSpace = Nothing
       
End Sub

[m3]

Felder mit "Date" oder "Time" im Namen sind keine Textfelder. Da musst Du die Werte vermutlich anders reinschreiben.

[LN_A]

Ich weiß echt nicht weiter...hast du viel. ne idee? Thx

[koehlerbv]

@Martin: Im UI ist das schon (erstmal) Text.

@Namenloser: Was war das für ein oinöses Update? Was hat Excel in den betreffenden Tabellen wirklich gespeichert (Datumsseriennummer ermitteln).

Bernhard

[LN_A]

Es war ein update von LN7 auf LN8...seit diesem Update werden die Daten nicht richtig übergeben. Also ich sehe nur was in LN passiert und wenn ich das ganze Schritt für Schritt laufen lasse, dann sehe ich wie die Daten so wie in Excel vorgegeben übenommen werden, jedoch nicht so gespeichert werden. Ich weiß aber auch nicht wie es sonst prüfen kann...?

[m3]

Und Office Update war da keins im Spiel?