Autor Thema: Lotus Notes Mapi Problem bei Terminen  (Gelesen 1479 mal)

zerozero

  • Gast
Lotus Notes Mapi Problem bei Terminen
« am: 11.07.06 - 11:44:15 »
Hallo, ihr Profis


also ich habe für meine Anwendung ein VB-Prgramm geschrieben welches mir meine Termine in Lotus Notes übernimmt, dies klappte auch sehr gut bis ich mir das neue Lotus Notes 6.5 holte seit den bekomme ich wenn ich den Termin öffen will folgende Fehlermeldung

"Error trying to open document: Document is damaged or obsolete ( incorrect field lengt)"

nach ein paar Tests ergab sich das es wahrscheinlich an dieser Stelle das Quelltextes liegt:

" Call docMail.REPLACEITEMVALUE("Form", "Appointment")"

Da ohne diese Zeile der Fehler nicht mehr auftritt dafür aber auch der Termin nicht mehr als Termin angezeigt wird sondern als Memo

Gibt es seit Lotus Notes 6.5 nee neue betiltelung der Form für Appointment
fallss ihr möchtet stell ich euch den rest des Quelltextes rein nur ich dachte erstmal nicht weil sonst wird der Beitrag zu lang sind so ca 12 Seiten

mfg

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: Lotus Notes Mapi Problem bei Terminen
« Antwort #1 am: 11.07.06 - 12:06:24 »
Auch in Version 6 und 7 ist der Eintrag "Appointment" für Form vollkommen unverändert. An der von Dir genannten Zeile an sich kann es daher wirklich nicht liegen.

Verwendest Du später ein docMail.ComputeWithForm? Dieses könnte durchaus Ärger machen (ich habe das bis heute auch nicht fehlerfrei zum Laufen bekommen). Das würde dann auch erklären, warum das Auskommentieren der genannten Zeile "hilft".

Bernhard

zerozero

  • Gast
Re: Lotus Notes Mapi Problem bei Terminen
« Antwort #2 am: 11.07.06 - 13:24:34 »
nee eigentlich benutze ich kein "docMail.ComputeWithForm? " naja das ist natürlich schlecht hab mal noch ein teil mit reingestellt damit schon mal alle docMails nachzulesen sind wenn ihr noch mehr braucht sag bescheid


   Call docMail.REPLACEITEMVALUE("Form", "Kalendereinträge")
    Call docMail.REPLACEITEMVALUE("Alarms", "")
    Call docMail.REPLACEITEMVALUE("AppointmentType", eintragstyp)
    Call docMail.REPLACEITEMVALUE("ApptUNID", "453D62C83FE8D6CC1256AA2003F240D")
    Call docMail.REPLACEITEMVALUE("BlindCopyTo", "")
    Call docMail.REPLACEITEMVALUE("Body", txttermin)
    Call docMail.REPLACEITEMVALUE("BookFreeTime", "")
    Call docMail.REPLACEITEMVALUE("CalendarDateTime", terminbeginn)
    Call docMail.REPLACEITEMVALUE("Categories", "")
    Call docMail.REPLACEITEMVALUE("CopyTo", "")
    Call docMail.REPLACEITEMVALUE("Encrypt", "0")
    Call docMail.REPLACEITEMVALUE("EndDate", terminende)
    Call docMail.REPLACEITEMVALUE("EndDateTime", terminende)
    Call docMail.REPLACEITEMVALUE("EndTime", terminende)
    Call docMail.REPLACEITEMVALUE("EnterBlindCopyTo", "")
    Call docMail.REPLACEITEMVALUE("EnterCopyTo", "")
    Call docMail.REPLACEITEMVALUE("EnterSendTo", "")
    Call docMail.REPLACEITEMVALUE("ExcludeFromView", feld)
    Call docMail.REPLACEITEMVALUE("Location", ort)
    Call docMail.REPLACEITEMVALUE("Logo", "stdNotesLtr0")
    Call docMail.REPLACEITEMVALUE("MailFirstPass", "1")
    Call docMail.REPLACEITEMVALUE("MailOptions", "0")
If privat = "1" Then
    Call docMail.REPLACEITEMVALUE("OrgConfidential", privat)
Else
    Call docMail.REPLACEITEMVALUE("OrgConfidential", "")
End If
    Call docMail.REPLACEITEMVALUE("OrgTable", "C0")
    Call docMail.REPLACEITEMVALUE("Repeats", "")
    Call docMail.REPLACEITEMVALUE("Resources", "")
    Call docMail.REPLACEITEMVALUE("RoomToReserve", "")
    Call docMail.REPLACEITEMVALUE("SaveOptions", "")
    Call docMail.REPLACEITEMVALUE("SendTo", "")
    Call docMail.REPLACEITEMVALUE("SequenceNum", 1)
    Call docMail.REPLACEITEMVALUE("Sign", "0")
    Call docMail.REPLACEITEMVALUE("StartDate", terminbeginn)
    Call docMail.REPLACEITEMVALUE("STARTDATETIME", terminbeginn)
    Call docMail.REPLACEITEMVALUE("StartTime", terminbeginn)
    Call docMail.REPLACEITEMVALUE("Subject", betreff)
    Call docMail.REPLACEITEMVALUE("tmpNoActionBar", "")
    Call docMail.REPLACEITEMVALUE("tmpOEMClient", "")
    Call docMail.REPLACEITEMVALUE("tmpOwnerHW", "1")
    Call docMail.REPLACEITEMVALUE("WebCategory", "")
    Call docMail.REPLACEITEMVALUE("WebDateTimeInit", "1")
    Call docMail.REPLACEITEMVALUE("_ViewIcon", 160)
    Call docMail.REPLACEITEMVALUE("$BusyName", Location)
    Call docMail.Save(False, False) 'Include this to save in the send view

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz