Das Notes Forum
Domino 9 und frühere Versionen => ND8: Administration & Userprobleme => Thema gestartet von: LN_A am 13.02.14 - 14:29:51
-
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
-
Felder mit "Date" oder "Time" im Namen sind keine Textfelder. Da musst Du die Werte vermutlich anders reinschreiben.
-
Ich weiß echt nicht weiter...hast du viel. ne idee? Thx
-
@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
-
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...?
-
Und Office Update war da keins im Spiel?