Skip to main content
This forum is closed to new posts and responses. New discussions are now taking place in the IBM Developer Answers forum.
 
developerWorks
AIX and UNIX
Information Mgmt
Lotus
New to Lotus
Products
How to buy
Downloads
Live demos
Technical library
Training
Support
Forums & community
Events
Rational
Tivoli
WebSphere
Java™ technology
Linux
Open source
SOA and Web services
Web development
XML
My developerWorks
About dW
Submit content
Feedback



developerWorks  >  Lotus  >  Forums & community  >  Notes/Domino 6 and 7 Forum

Notes/Domino 6 and 7 Forum

developerWorks

  

PreviousPrevious NextNext


Jason Sas 29.Dec.08 10:00 PM a Web browser
Domino Designer 6.5.6; 6.5.5 FP3; 6.5.5 FP2; 6.5.5 FP1; 6.5.5; 6.5.4 FP3; 6.5.4 FP2; 6.5.4 FP1; 6.5.4; 6.5.3 FP2; 6.5.3 FP1; 6.5.3; 6.5.2 FP1; 6.5.2; 6.5.1; 6.5 Windows XP


Hi,

We have a meeting management database which links into a calendar database. When we create a 'meeting' in the meeting management database, it will open up the associated calendar database, fill in the required attendees, start time, end time etc and then the user will save/send the invitation.

We have a problem with the code in the management database which creates the appointment in the calendar database. The first problem is that if the code saves the appointment document, and we then add additional attendees from the appointment form itself, the 'original' attendees don't get the invitation (just the 'additional' attendees). I assume the invitation isn't going to the original attendees because at the point the appointment form saves, it thinks those people have already received the invitation.

If we DON'T save the appointment document in the code, we fix the above problem. However if the meeting is longer than an hour, the meeting duration defaults back to 60 minutes (which is the preference in the calendar database).

Is there any way around either of these problems?

See code below (the code below saves the document at the end, meaning additional invitees don't get the invitation)

Cheers,
Jason



TempString=Source.FieldGetText("MeetingDate")
If Isdate(TempString) Then
StartDateTime.LSLocalTime=Cdat(TempString)
EndDateTime.LSLocalTime=Cdat(TempString) ' ends on the same day !
End If
TempString=Source.FieldGetText("MeetingTime")
If TempString<>"" Then
TestDateString=StartDateTime.DateOnly+" "+TempString
StartDateTime.LSLocalTime=Cdat(TestDateString)
End If
TempString=Source.FieldGetText("MEndTime")
If Isdate(TempString) Then
TestDateString=StartDateTime.DateOnly+" "+TempString
EndDateTime.LSLocalTime=Cdat(TestDateString)
End If

Set CalendarDoc=CalendarDb.CreateDocument
CalendarDoc.Form="Appointment"
CalendarDoc.Subject=Doc.CommNameHeading(0)
Set TempItem1=Doc.ReplaceItemValue("AppointmentType",Null)
Call Tempitem1.AppendToTextList("3") ' 3 is a MEETING TYPE !!!
CalendarDoc.Principal=CalendarDb.Title
TestDateString=Cstr(StartDateTime.LSLocalTime)
Set DummyItem = CalendarDoc.ReplaceItemValue( "StartDate",StartDateTime)
Set DummyItem = CalendarDoc.ReplaceItemValue( "StartTime", StartDateTime)
Set DummyItem = CalendarDoc.ReplaceItemValue( "CalendarDateTime", StartDateTime)
Set DummyItem = CalendarDoc.ReplaceItemValue( "StartDateTime", StartDateTime)
Set DummyItem = CalendarDoc.ReplaceItemValue( "EndDate", EndDateTime )
Set DummyItem = CalendarDoc.ReplaceItemValue( "EndTime", EndDateTime)
Set DummyItem = CalendarDoc.ReplaceItemValue( "EndDateTime", EndDateTime )

Set richStyle = session.CreateRichTextStyle
richStyle.NotesFont = FONT_HELV
richStyle.FontSize = 10
richStyle.Bold = True
richstyle.NotesColor =COLOR_DARK_BLUE

Set rtitem = New NotesRichTextItem( CalendarDoc, "Body" )
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText( "New Meeting for .. "+Doc.CommName(0)+".")
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText( "Cabinet Secretariat now uses Lotus Notes Calendaring to schedule Cabinet Committee meetings. Please respond to this invitation as soon as possible.")
Call rtitem.AddNewLine( 2 )
richStyle.NotesFont = FONT_HELV
richStyle.FontSize = 10
richStyle.Bold = False
richstyle.NotesColor =COLOR_BLACK
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText(supportmessage)
Call rtitem.AddNewLine( 2 )

Set LookupView=Db.GetView("(LookupLists)")
Call lookupview.refresh

' Get the list of Lotus Notes invitees who will receive a meeting invitation (notes format)
Set DocumentCollection=LookupView.GetAllDocumentsByKey("DPC Exec's & ComSec - Lotus Notes")
If DocumentCollection.Count>0 Then
Set ListDoc=DocumentCollection.GetFirstDocument ' ignore other entries !
Set TempItem=ListDoc.GetFirstItem("CommitteeMembershipList")
If Tempitem.text<>"" Then
Set ListItem2=CalendarDoc.ReplaceItemValue("RequiredAttendees",Tempitem)
Set ListItem3=CalendarDoc.ReplaceItemValue("EnterSendTo",Tempitem)
ListItem2.IsNames=True
ListItem3.IsNames=True
End If
End If

If Doc.HasItem("Venue") Then ' add the listed location as required.
TempString=Doc.Venue(0)
If TempString<>"" Then
CalendarDoc.Location=TempString
VenueProcessed=True
End If
End If

Set item = CalendarDoc.ReplaceItemValue("_ViewIcon",158) ' normal appointments have some other hand waving icon
Set item = CalendarDoc.ReplaceItemValue("$AltPrincipal",Session.Username)
Set item = CalendarDoc.ReplaceItemValue("$BusyName",CalendarName)
Set item = CalendarDoc.ReplaceItemValue("$BusyPriority","1")
Set item = CalendarDoc.ReplaceItemValue("$CSVersion","2")
Set item = CalendarDoc.ReplaceItemValue("$ExpandGroups","3")
Set item = CalendarDoc.ReplaceItemValue("$LangChair","")
Set item = CalendarDoc.ReplaceItemValue("$LangPrincipal","")
Set item = CalendarDoc.ReplaceItemValue("$NoPurge",TodayTime.LSLocalTime)
Set item = CalendarDoc.ReplaceItemValue("$PublicAccess","1")
Set item = CalendarDoc.ReplaceItemValue("$Revisions",Now)
Set item = CalendarDoc.ReplaceItemValue("$SMTPKeepNotesItems","1")
Set item = CalendarDoc.ReplaceItemValue("$WebFlags","J")

Set item = CalendarDoc.ReplaceItemValue("AltChair",Session.UserName)

CalendarDoc.Alarms=""

CalendarDoc.Chair=CalendarName
CalendarDoc.ApptUNID=CalendarDoc.UniversalID
Set TempItem2=CalendarDoc.ReplaceItemValue("BlindCopyTo",Null)
TempItem2.IsNames=True
Set TempItem3=CalendarDoc.ReplaceItemValue("CopyTo",Null)
TempItem3.IsNames=True
Set TempItem4=CalendarDoc.ReplaceItemValue("EnterBlindCopyTo",Null)
TempItem4.IsNames=True
Set TempItem5=CalendarDoc.ReplaceItemValue("EnterCopyTo",Null)
TempItem5.IsNames=True
Set TempItem7=CalendarDoc.ReplaceItemValue("SendTo",Null)
TempItem7.IsNames=True
CalendarDoc.BookFreeTime=""
CalendarDoc.Categories=""
Set item = CalendarDoc.ReplaceItemValue("Encrypt","0")
Set DummyItem=CalendarDoc.ReplaceItemValue("ExcludeFromView",Null)
Call DummyItem.AppendToTextList("D")
Call DummyItem.AppendToTextList("S")
CalendarDoc.From=Session.UserName
CalendarDoc.Logo="stdNotesLtr0"
CalendarDoc.MailOptions=""
CalendarDoc.OrgConfidential=""
CalendarDoc.OrgTable="C0"
CalendarDoc.Repeats=""
CalendarDoc.Resources=""
CalendarDoc.RoomToReserve=""
CalendarDoc.SaveOptions=""
CalendarDoc.SendTo=""
CalendarDoc.SequenceNum=1
CalendarDoc.WebCategory=""
CalendarDoc.WebDateTimeInit="1"
CalendarDoc.TmpNoActionBar=""
CalendarDoc.TmpOEMClient=""
CalendarDoc.Participants="Jason Gale"
CalendarDoc.RescheduleTrigger="No"
CalendarDoc.CancelTrigger="No"
Call CalendarDoc.Save(True,False) '// JS - commented out 9/12/08








  Document options
Print this pagePrint this page

 Search this forum

  Forum views and search
Date (threaded)
Date (flat)
With excerpt
Author
Category
Platform
Release
Advanced search

 RSS feedsRSS
All forum posts RSS
All main topics RSS
More Lotus RSS feeds

Resources

 Resources
Forum use and etiquette
Native Notes Access
Web site Feedback

Lotus Support

 Lotus Support
IBM Support Portal - Lotus software
Lotus Support documents
Lotus support by product
Lotus support downloads
Lotus support RSS feeds

Wikis

 Wikis
IBM Composite Applications
IBM Mashup Center
IBM Connections
IBM Connections Cloud Developers
IBM Docs
IBM Forms
IBM Mobile Connect
IBM Sametime
IBM SmartCloud for Social Business
IBM Web Experience Factory
Lotus Domino
Lotus Domino Designer
Lotus Expeditor
Lotus Foundations
Lotus iNotes
Lotus Instructor Community Courseware
Lotus Notes
Lotus Notes & Domino Application Development
Lotus Notes Traveler
Lotus Protector
Lotus Quickr
Lotus Symphony
IBM Web Content Manager
WebSphere Portal

Lotus Forums


 Lotus Forums
Notes/Domino 9.0
Notes/Domino 8.5 + Traveler
Notes/Domino XPages development forum
Notes/Domino 8
Notes/Domino 6 and 7
IBM Connections
IBM Mobile Connect
IBM Sametime
IBM SmartCloud Notes
Lotus Enterprise Integration
Lotus Protector
Lotus Quickr
Lotus SmartSuite