Domino 9 und frühere Versionen > Entwicklung

ToDo per Agent generieren?

<< < (3/3)

LisaS:
Hallo,
dieses Script Funktioniert jetzt in soweit, daß das ToDo in der Kalender Ansicht erscheint.
Jetzt habe ich nur noch das Problem, daß ich das ToDo nicht auf den Status Completed setzten kann (im To Do selbst). Hier ich das Script, vieleicht weiß ja jemand Rat.

Sub Click(Source As Button)
   
   Dim session As New notessession
   Dim diesedb As notesdatabase  
   Dim mail As notesdocument ' ToDo-Dokument
   Dim Konfig_doc As notesdocument 'Konfigurations-Doument
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim dateTime As New NotesDateTime( "28.04.2003 12:01:00" )
   Dim styleMsg As NotesRichTextStyle
   Dim Start As String
   Dim Due As String
   Dim Subject As String
   Dim Status As String
   Dim vprs As Variant
   Dim askme As Variant
   
   Const Profildokument ="5002"
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc
   Set diesedb = session.currentdatabase
   Set Konfig_doc = diesedb.GETPROFILEDOCUMENT("1" & Profildokument)
   vprs = Konfig_doc.GetItemValue( "VPRS")
   askme = workspace.Prompt(PROMPT_OKCANCELLIST, "Vertriebsprojekt vorlegen", "Bitte wählen Sie einen Mitarbeiter aus", PROMPT_LIST, vprs)
             'Werte aus uidoc holen      
   Adr_Name$ = uidoc.fieldgettext("AdrName")
   Adr_Ort$ = uidoc.fieldgettext("AdrOrt")
   Adr_Plz$ = uidoc.fieldgettext("AdrPlz")
   Adr_Land$ = uidoc.fieldgettext("AdrLand")
   aTitel$ = uidoc.fieldgettext("aTitel")
   aTXT$ = uidoc.fieldgettext("aTXT")
      '.... und ggf. weitere ----
   
         ' ToDo generieren
   Subject="V-Projekt: "+aTXT$+aTitel$+" bei "+Adr_Name$+" "+Adr_LAnd$+Adr_Plz$+" "+Adr_Ort$
   
   Set mail = diesedb.CreateDocument
   Call mail.ReplaceItemValue( "Form", "Task" )
   Call mail.ReplaceItemValue("Subject", Subject)
   Call mail.ReplaceItemValue("StartDate", dateTime)
   Call mail.ReplaceItemValue("DueDate", dateTime)
   Call mail.ReplaceItemValue("DueDateTime", dateTime)
   Call mail.ReplaceItemValue("StartDateTime", dateTime)
   Call mail.ReplaceItemValue("CalendarDateTime", dateTime)
   Set rtitem = New NotesRichTextItem( mail , "Body" )
   Call rtitem.appendtext("Dies ist ein Test ! Bitte löschen Sie diese Mail!")
   Call rtitem.AddNewLine(1)
   Call rtitem.Appenddoclink(workspace.CurrentDocument.document, session.currentDatabase.title)
   Set styleMsg = session.createRichTextStyle()
   styleMsg.bold = True
   styleMsg.fontsize = 16
   styleMsg.NotesColor = 10
   Call rtitem.appendStyle(styleMsg)
   mail.~$AlarmUnit = "D"
   mail.~$AlarmMemoOptions = ""
   mail.~$Alarm = 1
   mail.~$AlarmOffset = 1440
   mail.~$CSVersion = "2"      
   mail.~$Alarms = "1"
   mail.~_ViewIcon = 168
   mail.~$KeepPrivate = ""
   mail.~$ExpandGroups = "3"
   mail.~$PublicAccess = "1"
   mail.~$WebFlags = "J"
   
   mail.Chair = session.UserName
   mail.WebDateTimeInit = "1"
   mail.tmpOwnerHW = "1"
   mail.Assignstate = 0
   mail.DueState = 1
   mail.TaskType = "1"
   mail.Importance = "2"   
   mail.ExcludeFromView = "D"
   mail.MailFirstPass = "1"
   mail.MailOptions = "0"
   mail.AppointmentType = ""
   mail.Repeats = ""
   mail.OrgConfidential = ""
   mail.OrgTable = "T0"
   mail.OrgTable = "T0"
   mail.tmpNoActionBar = ""      
   mail.DefaultMailSaveOptions = ""      
   Set Item = New NotesItem(mail, "Sign", "0")
   item.IsSummary = True  
   Set Item = New NotesItem(mail, "Encrypt", "0")
   item.IsSummary = True   
   
   Call mail.Send( False, askme)
End Sub

Gruß
Hitcher

Navigation

[0] Themen-Index

[*] Vorherige Sete