Advertisement

08.11.2008 at 09:07AM PDT, ID: 23638333
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
9.2

Lotus Notes Calendar Entry Add, Remove, Modify Buttons

Asked by KTTKTT in Lotus Notes

Tags: , , , ,

I use one Calendar button to add a new calendar entry.
I use a second modify button to modify existing calendar entry that was previously added.  The remove portion looks for the old start time, then finds the old subject line, then deletes the entry.
Problem 1: The modify button successfully adds a Re-schedule, but does not Remove the old entry if the subject line has a carriage return.  A work around is to only enter the 1st line of the subject to be removed, but I also need it to find the entire subject line with the carriage return if a carriage return exists.
Problem 2:  When using the work around to only find the 1st subject line to remove, the calendar entry only Removes if the New Subject Line is different from the Old Subject line - not sure why this would be a problem since the new rescheduled entry is for a different date and time.
See Code Snippet.  Please be very descriptive and detailed in your answer.  ThanksStart Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:

Add Calendar Entry Button:  Works fine:
Sub Click(Source As Button)
	
	 ' **Scroll down to the "CHANGE HERE" sections to customize this button.  
	
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase     
	Dim content As NotesRichTextItem
	Dim note As NotesDocument
	Dim cnote As NotesDocument
	Dim Removedit As String
	Set uidoc = ws.CurrentDocument
	Set note = uidoc.Document
	Set db = note.parentdatabase    
	Set cnote  =  New NotesDocument (db)    
	
'*********CHANGE HERE - Change start date for new calendar entry - Change this section for calendar entry************		
	
	Set date1 = New NotesDateTime("August 10 2008 9:00 AM ET")
	
'*********CHANGE HERE - Change end date for new calendar entry  - Change this section for calendar entry************		
	
	Set date2 = New NotesDateTime("August 10 2008 10:30 AM ET")                     
	
'*********CHANGE HERE - subject for  new calendar entry - Change this section for calendar entry************
'*********To add a line break , use "+Chr(10)+" .  
'*********For example: newSubject = "xyz Demo" +Chr(10) + "Speaker: xyz person"  +Chr(10)+ "Location: xyz Bldg." +Chr(10)+ ""	
	
'*********CHANGE HERE - description  for  new calendar entry - Change this section for calendar entry************
	
	newSubject = "Business Meeting" +Chr(10) + "Remote Call-in Number below: "  +Chr(10)+ ""	
	
'*********CHANGE HERE - description  for  new calendar entry - Change this section for calendar entry************
	cnote.Body = "Remote Call-in information: " +Chr(10) + "Toll free:  1-877-000-0000" +Chr(10) + " " +Chr(10) + "" +Chr(10) + "Participant Passcode:  300000" +Chr(10)+ "Presentation URL:   http://www.ibm.com" +Chr(10) + "   " +Chr(10)+""
	
	'cnote.Body = ""	
	
'*********CHANGE HERE - To add additional descriptive text from your memo to the new calendar entry description - Change this section for calendar entry************	
'*********Follow the next 2 steps:
'*********Step 1:  
'*********Uncomment the two lines of code below by removing the single quote preceding the lines of code so that the line of code become black text: 
'*********For example: 
'*********  'Set content = note.GetFirstItem("Body") 
'*********  'Call content.CopyItemToDocument(cnote, "Body") 
'*********Step 2:	
'*********Comment the line above by adding a single quote before the following line of code so the line of code becomes green text. 
'*********For example:	
'*********cnote.Body = ""	
	
	'Set content = note.GetFirstItem("Body")
	'Call content.CopyItemToDocument(cnote, "Body")
	
	
'**************************** End of Calendar Change Section ***********************	
	
	
'***********(1) *********  Begin Do Not Change Below***********************************************************************************
	
	'Create calendar entry 
	
	cnote.From = note.From
	cnote.Form = "Appointment"
	cnote.AppointmentType = "0"
	Call cnote.ReplaceItemValue("_ViewIcon", 159)
	cnote.CHAIR = session.UserName     
	cnote.StartDateTime = date1.LSLocalTime
	cnote.EndDateTime = date2.LSLocalTime
	cnote.CalendarDateTime = date1.LSLocalTime
	cnote.TimeRange = Timevalue(cnote.StartDateTime(0)) & "-" & _
	Timevalue(cnote.EndDateTime(0))
	cnote.ExcludefromView = "D"
	cnote.BookFreetime = ""
	cnote.Subject=newSubject 'displays in calendar entry and when alarm is generated
	Call cnote.AppendItemValue("$BusyName", session.UserName)
	Call cnote.AppendItemValue("$BusyPriority", "1")
	Call cnote.AppendItemValue("$NoPurge", dt2)
	Call cnote.AppendItemValue("$PublicAccess", "1")
	
	Print "An entry for " & newSubject & " has been successfully added to your calendar."
	Msgbox "An entry for " & newSubject & " was succesfully added to your calendar." ,MB_OK+MB_ICONINFORMATION,"Successful"
	
	date1.adjustMinute -30
	cnote.ReplaceItemValue "$AlarmTime", date1
	cnote.ReplaceItemValue "$AlarmOffset", -30
	cnote.ReplaceItemValue "$Alarm", 1
	cnote.ReplaceItemValue "Alarms", "1"
	cnote.save True, True 
	cnote.putInFolder "($Alarms)"
	Print "Calendar entry added."
	
	Print "Sending confirmation note."
	
	Dim maildoc As NotesDocument
	Dim rtitem As NotesRichTextItem
	Set maildoc = New NotesDocument(db)
	maildoc.Form = "Memo"
	Set rtitem = New NotesRichTextItem(maildoc,"Body")     
	
'***********(1) ****************  End Do Not Change Above***********************************************************************************
	
	
'*********CHANGE HERE - Change Subject for the confirmation note ***********			
	maildoc.Subject = "I will call in for the Business Meeting"	
'*********CHANGE HERE - Change Send To  for the confirmation note ***********	
'********To send the confirmation note to one person, just update the name 
'	maildoc.SendTo = "zzz@us.ibm.com"
	
'********To send the confirmation note to multiple people, do the following:    
'*********Comment the code  above by adding a single quote before the line of code so the line of code becomes green text.
'*********For example:	
'*********'maildoc.SendTo = "zzz@us.ibm.com"
'*********Then uncomment the following lines of code below by removing the single quote preceding the lines of code so that the line of code become black text:  
'*********Note:  the X in the SendToList (1 to X) must match the number of recipients 
'*********For example:  
'*********Dim SendToList(1 To 2) As String
'*********SendToList(1) = "Lotus Notes ID here for 1st sendto"
'*********'SendToList(2) = "Lotus Notes ID here for 2nd sendto"
'*********Call maildoc.ReplaceItemValue("SendTo",SendToList)
	
	
'	Dim SendToList(1 To 3) As String
'	SendToList(1) = "Lotus Notes ID here for 1st sendto"
'	SendToList(2) = "Lotus Notes ID here for 2nd sendto"
'	SendToList(3) = "Lotus Notes ID here for 2rd sendto" 
'	Call maildoc.ReplaceItemValue("SendTo",SendToList)
	
	
'*********CHANGE HERE - Change CC for the confirmation note ***********
	maildoc.CopyTo = ""
	
'*********CHANGE HERE - Change BCC for the confirmation note ***********
	maildoc.BlindCopyTo = ""
	
'*********CHANGE HERE - Change Body for the confirmation note ***********
	Call rtitem.AppendText("I will call in for the meeting")
	
'*********CHANGE HERE - To disable sending the confirmation note add a quote before the following line  so that the text becomes green
'	Call maildoc.Send(False)
	
'************************ End of Mail Reply Notification Change Section ***********************	
	Print "Operation complete."
	
End Sub
 
-----------------------------------------------------------------------
Modify Calendar Entry Button:  Needs Improvement to find and handle multi-line Subject and to not have to modify new Subject line to be different from the original subject line if the date/time is different.
 
Sub Click(Source As Button)
	 ' **Scroll down to the "CHANGE HERE" sections to customize this button.  
	
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase     
	Dim content As NotesRichTextItem
	Dim note As NotesDocument
	Dim cnote As NotesDocument
	Set uidoc = ws.CurrentDocument
	Set note = uidoc.Document
	Set db = note.parentdatabase    
	Set cnote  =  New NotesDocument (db) 
	Dim Removedit As String
	
'**************************** Start of Calendar Change Section ***********************		
	
'*********CHANGE HERE - Change the start time for the new calendar entry ************
	
	Set date1 = New NotesDateTime("August 11 2008 9:00 AM ET") 
	
'*********CHANGE HERE - Change the end time for the new calendar entry ************
	
	Set date2 = New NotesDateTime("August 11 2008 10:30 AM ET") 
	
'*********CHANGE HERE - Change the start time for calendar entry to remove ************
	
	Set oldStartTime = New NotesDateTime("August 10 2008 9:00 AM ET") 
	
'*********CHANGE HERE - Change the subject for the calendar entry to remove************
'*********Note:  oldSubject is the key to remove the calendar entry.  This text must be an exact match  for the removal  to work.  
'*********To add a line break , use "+Chr(10)+" .  
'*********For example: oldSubject = "xyz Demo" +Chr(10) + "Speaker: xyz person"  +Chr(10)+ "Location: xyz Bldg." +Chr(10)+ ""	
	
	' oldSubject = "Business Meeting" +Chr(10) + "Remote Call-in Number below: "  +Chr(10)+ ""	     ' this doesn't work
	' works and finds old subject when I remove carriage return:      oldSubject = "Business Meeting"       'but need it to find the carriage return and find the 2nd subject line
	oldSubject = "Business Meeting"
	
'*********CHANGE HERE - subject for  new calendar entry - Change this section for calendar entry************
'*********To add a line break , use "+Chr(10)+" .  
'*********For example: newSubject = "xyz Demo" +Chr(10) + "Speaker: xyz person"  +Chr(10)+ "Location: xyz Bldg." +Chr(10)+ ""	
	
	' newSubject = "Business Meeting" +Chr(10) + "Remote Call-in Number below: "  +Chr(10)+ ""	' to add new subject to rescheduled event, may need to use the same subject line as the original
	'Worked only when I changed the new subject line text - added "Rescheduled"    'newSubject = "Rescheduled Business Meeting" +Chr(10) + "Remote Call-in Number below: "  +Chr(10)+ ""	
	newSubject = "Rescheduled Business Meeting" +Chr(10) + "Remote Call-in Number below: "  +Chr(10)+ ""	
	
'*********CHANGE HERE - decscription field for new calendar entry description  - Change this section for calendar entry************	
	
	cnote.Body = "Remote Call-in information and presentation location: " +Chr(10) + "Toll free:  1-800-000-0000" +Chr(10) + " " +Chr(10) + "" +Chr(10) + "Participant Passcode:  300000" +Chr(10)+ "Presentation URL:   http://www.ibm.com" +Chr(10) + "   " +Chr(10)+""
	
	
'*********CHANGE HERE - To add additonal descriptive text from your memo to the new calendar entry - Change this section for calendar entry******	
'*********Follow the next 2 steps:  
'*********Step 1:  
'*********Uncomment the two lines of code below by removing the single quote preceding the lines of code so that the line of code become black text: 
'*********For example: 
'*********  'Set content = note.GetFirstItem("Body") 
'*********  'Call content.CopyItemToDocument(cnote, "Body") 
'*********Step 2:	
'*********Comment the line of code above by adding a single quote before the following line of code so the line of code becomes green text. 
'*********For example:	
'********** cnote.Body = ""	
	
	'Set content = note.GetFirstItem("Body")
	'Call content.CopyItemToDocument(cnote, "Body")
	
	
'**************************** End of Calendar Change Section ***********************	
	
'****************(1) ********* Begin Do Not Change Below  ******************************
	
	
	Dim calendar As notesView, oldVersions As notesDocumentCollection, oldVersion As notesDocument
	Set calendar = db.getView("($Calendar)")
	
	Set oldVersions = calendar.getAllDocumentsByKey(oldStartTime)
	Set oldVersion = oldVersions.getFirstDocument
	Removedit = "N"
	Do Until oldVersion Is Nothing
		
		If Instr(oldVersion.Subject(0), oldSubject) Then 
			
			Print "An entry for " & oldSubject & " was removed from your calendar."
			Msgbox "An entry for " & oldSubject & " was removed from your calendar." ,MB_OK+MB_ICONINFORMATION,"Successful"
			
			oldVersion.remove True
			Removedit = "Y"
			
		Else
			Set oldVersion = oldVersions.getNextDocument(oldVersion)
		End If 
	Loop
	
	If Removedit = "N" Then 
		Print "Calendar entry was not found. "		
	End If
	
	
	
	'Create calendar entry 
	
	cnote.From = note.From
	cnote.Form = "Appointment"
	cnote.AppointmentType = "0"
	Call cnote.ReplaceItemValue("_ViewIcon", 159)
	cnote.CHAIR = session.UserName     
	cnote.StartDateTime = date1.LSLocalTime
	cnote.EndDateTime = date2.LSLocalTime
	cnote.CalendarDateTime = date1.LSLocalTime
	cnote.TimeRange = Timevalue(cnote.StartDateTime(0)) & "-" & _
	Timevalue(cnote.EndDateTime(0))
	cnote.ExcludefromView = "D"
	cnote.BookFreetime = ""
	cnote.Subject=newSubject 'displays in calendar entry and when alarm is generated
	Call cnote.AppendItemValue("$BusyName", session.UserName)
	Call cnote.AppendItemValue("$BusyPriority", "1")
	Call cnote.AppendItemValue("$NoPurge", dt2)
	Call cnote.AppendItemValue("$PublicAccess", "1")
	
	Print "An entry for " & newSubject & " has been successfully added to your calendar."
	Msgbox "An entry for " & newSubject & " was succesfully added to your calendar." ,MB_OK+MB_ICONINFORMATION,"Successful"
	
	date1.adjustMinute -30
	cnote.ReplaceItemValue "$AlarmTime", date1
	cnote.ReplaceItemValue "$AlarmOffset", -30
	cnote.ReplaceItemValue "$Alarm", 1
	cnote.ReplaceItemValue "Alarms", "1"
	cnote.save True, True 
	cnote.putInFolder "($Alarms)"
	Print "Calendar entry added."
	
	Print "Sending confirmation note."
	
	Dim maildoc As NotesDocument
	Dim rtitem As NotesRichTextItem
	Set maildoc = New NotesDocument(db)
	maildoc.Form = "Memo"
	Set rtitem = New NotesRichTextItem(maildoc,"Body")     
	
'***********(1) >>>>>>>>>>End Do Not Change Above***********************************************************************************
	
	
'*********CHANGE HERE - Change Subject for the confirmation note ***********			
	maildoc.Subject = "I will call in for the Meeting"
	
'*********CHANGE HERE - Change Send To  for the confirmation note ***********	
'********To send the confirmation note to one person, just update the name 
'	maildoc.SendTo = "zzz@us.ibm.com"
	
'********To send the confirmation note multiple people, do the following:    
'*********Comment the code  above by adding a single quote before the line of code so the line of code becomes green text.
'*********For example:	
'*********  'maildoc.SendTo = "zzz@us.ibm.com"
'*********Then uncomment the following lines of code below by removing the single quote preceding the lines of code so that the line of code become black text:  
'*********Note:  the X in the SendToList (1 to X) must match the number of recipients 
'*********For example:  
'*********Dim SendToList(1 To 2) As String
'*********SendToList(1) = "1st notes id"
'*********SendToList(2) = "2nd notes id"
'*********Call maildoc.ReplaceItemValue("SendTo",SendToList)
	
'	Dim SendToList(1 To 3) As String
'	SendToList(1) = "1st notes id"
'	SendToList(2) = "2nd notes id"
'	SendToList(3) =  "3rd notes id"
'	Call maildoc.ReplaceItemValue("SendTo",SendToList)
	
'*********CHANGE HERE - Change CC for the confirmation note ***********
	maildoc.CopyTo = ""
	
'*********CHANGE HERE - Change BCC for the confirmation note ***********
	maildoc.BlindCopyTo = ""
	
'*********CHANGE HERE - Change Body for the confirmation note ***********
	Call rtitem.AppendText("I will call in for the Meeting")
	
'*********CHANGE HERE - To disable sending the confirmation note add a quote before the following line  so that the text becomes green
'	Call maildoc.Send(False)
	
'************************ End of Mail Reply Notification Change Section ***********************	
	Print "Operation complete."
	
	
End Sub
[+][-]08.28.2008 at 09:09AM PDT, ID: 22336559

View this solution now by starting your 14-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zone: Lotus Notes
Tags: Lotus Notes Calendar Button, Calendar Event, Modify Calendar Entry, Add Calendar Entry, Delete Calendar Entry
Sign Up Now!
Solution Provided By: mbonaci
Participating Experts: 1
Solution Grade: A
 
 
[+][-]08.28.2008 at 01:35PM PDT, ID: 22339579

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 14-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]08.29.2008 at 01:29AM PDT, ID: 22343375

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 14-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]08.29.2008 at 08:39AM PDT, ID: 22346618

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 14-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20081112-EE-VQP-43 / EE_QW_EXPERT_20070906