Domino 9 und frühere Versionen > ND6: Entwicklung

Doclink in Reminder einfügen per LS

<< < (3/3)

Alexis:
Hallo Forum,

meine Euphorie war etwas zu laut. Die Funktion klappt bestens nur dass ich neben dem Eintrag als Reminder auch noch einen Eintrag als Mail Draft erhalte, was von mir nicht gewünscht ist.

Hat jemand eine Idee woran das liegt?

Hier der betreffende Code-Ausschnitt:

Set taskdoc = New NotesDocument(maildb)
         taskdoc.Form = "Appointment"
         taskdoc.appointmenttype = "4"     
         taskdoc.ReplaceItemValue "$Alarm", 1
         taskdoc.ReplaceItemValue "$AlarmMemoOptions", "2"
         taskdoc.ReplaceItemValue "$AlarmSendTo", UName
         taskdoc.ReplaceItemValue "$AlarmDescription",  subject
         taskdoc.ReplaceItemValue "$AlarmSound", "Defsound"
         taskdoc.ReplaceItemValue  "ViewIcon",    "67" 
         taskdoc.Alarms= "1"
         taskdoc.Principal = UName
         taskdoc.StartDateTime = Cdat(duedate)
         taskdoc.StartDate = Cdat(duedate)
         taskdoc.StartTime=Cdat(duedate)
         taskdoc.EndDate=Cdat(duedate)
         taskdoc.Endtime=Cdat(duedate)
         taskdoc.EndDateTime=Cdat(duedate)
         taskdoc.CalendarDateTime=Cdat(duedate)
         taskdoc.Subject = "Action Item Reminder"
         Set rtitem = taskdoc.CreateRichTextItem("Body")         
         Call rtitem.AddNewLine(2)
         Call rtitem.AppendText("Action Item No. " & aino & " has a Due Date for Today")   
         Call rtitem.AddNewLine(2)
         Call rtitem.AppendText("Use Link to Action Item in SupportLineTool - Database --> ")   
         Call rtitem.AppendDocLink(doc, "Document Link")
         Call taskdoc.ComputeWithForm(True, True)
         Call taskdoc.Save(True,True)

Alexis

Axel:
Hi,

füge die fettgedruckte Zeile an die entsprechende Stelle in deinen Code ein. Dann sollte das funktionieren.

...
taskdoc.ReplaceItemValue "$AlarmSound", "Defsound"
taskdoc.ReplaceItemValue  "ViewIcon",    "67" 
taskdoc.Alarms= "1"
taskdoc.Principal = UName
taskdoc.ExcludeFromView = "D"
taskdoc.StartDateTime = Cdat(duedate)
...


Axel

Alexis:
@Alex,

Super! Woher wisst Ihr das immer :o.

Danke

Alexis

Semeaphoros:

--- Zitat von: Alexis am 13.12.04 - 15:08:17 ---Super! Woher wisst Ihr das immer :o.

--- Ende Zitat ---

Alexis, noch nicht gemerkt, dass wir alle Dir über die Schultern schauen ......  ;D

Axel:

--- Zitat von: Alexis am 13.12.04 - 15:08:17 ---Super! Woher wisst Ihr das immer :o.

--- Ende Zitat ---

Ich hatte das gleiche Problem. Da hab' ich mit auf Entdeckertour in die Mail-Schablone begeben. Da findet man so einiges. unter anderem auch die berühmte "Stecknadel im Codehaufen".  ;)


Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete