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