100 Pushups - Week 5 Day 1 Take 3 Report
Good start to this 3rd go-around of Week 5 Column 1, 'nough said...
17/19/15/15/26
Good start to this 3rd go-around of Week 5 Column 1, 'nough said...
17/19/15/15/26
A sample of some of Katelyn's latest art. Appropriate for the weather here this week.

A bit of a rough start to begin AA division league play for the Mite 1 Mustangs.
Game 2 was a loss to Rocky River, at Rocky River 4-0 on Saturday afternoon. The score does not fully reflect the play of the game, but no goals is no goals. Christian, our goalie kept our boys in the game most of the way making some great stops on lots of shots by Rocky River. Bounces of the puck we just not going our way and we had a hard time getting the puck out of our defensive zone again.
Game 3 was at our home rink early Sunday morning against Shaker Hts. This game was played much closer, but again the score (3-0 Shaker Hts) didn't reflect our boys play, which was much better than the game before. Shots just didn't find their way in for us, but took strange bounces for our opponents. Christian stood strong again in net, and was beat only once cleanly, and otherwise by flukey goals.
Zach got chances and handed off nice passes to others in both games for scoring chances, but just couldn't get anything to go...
Hopefully we can get some good bounces and a scoring touch back again as we have 3 away games in 3 days this coming weekend, with a scrimmage at Mentor Friday, an exhibition game at Geauga on Saturday and a division game against Wooster on Sunday.
Go Mustangs Mite 1!
Actually dropped from 35 last time to 34 this time, so looks like I'll stick around in Column 1 for at least another week.
No forward progress I guess, but still sticking with the program, even if a day behind schedule...and next week isn't going to be easy either.
Then Thanksgiving week...oh boy...
Planning to do an exhaustion test this weekend to see if I should move to column 2 or stay on column 1.
Pretty happy with how this week ended:
13/13/15/15/12/12/10/37 (25 - break 30sec - 12)
Customer: I'd like to have a spreadsheet built which gives me the data in this view's format but does a calculation on this date to tell me how many days this item is overdue, and I'd like that spreadsheet to be emailed to me weekly.
Me: Well, I definitely know how to get the spreadsheet built including that date/days calculation, but I'm not aware of a way to grab that built spreadsheet and attach it to an email to you and send it all in one shot, especially with a scheduled agent.
Customer: Well, see what you can do..
Me: Alright, I'll look into it.
And within minutes on LDD I find this: E-Mail Attachments Using MIME
Me: Hmm, I think I may be able to do something with this...
So I do the spreadsheet build including reading a filename and path from a profile document referring to a share on the local drive of the Notes Server. Then I call a sub, passing the xlFileName and the handle to that profile document
Call SendMIMEAttachmentEmail(xlFilename, profiledoc)
And here's that sub:
Sub SendMIMEAttachmentEmail(fileName As String, profiledoc As NotesDocument)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim parent As NotesMimeEntity
Dim child1 As NotesMimeEntity
Dim child2 As NotesMimeEntity
Dim header As NotesMimeHeader
Dim stream As NotesStream
Dim filenameonly As String
Dim datestring As String
datestring = Format(Now(), "mmddyy")
filenameonly = Strrightback(fileName,"\")
session.ConvertMime = False ' We do want Notes to convert MIME to Rich Text
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form", "Memo")
Call doc.ReplaceItemValue("Subject", "Items Past Due as of " _
& Format$(Now, "mmm dd yyyy"))
' Create all the Entities - one parent, three children.
Set parent = doc.CreateMIMEEntity
Set child2 = parent.CreateChildEntity
Set child1 = parent.CreateChildEntity(child2) ' Create so that children 1 & 2 are siblings
' Add a couple of headers to child 2 (that will hold the attachment).
Set header = child2.CreateHeader("Content-Transfer-Encoding")
Call header.SetHeaderVal("binary")
Set header = child2.CreateHeader("Content-Disposition")
Call header.SetHeaderVal("attachment; filename=" + datestring + "_" + filenameonly )
' Build the HTML message content. This HTML goes into child 1
Set stream = session.CreateStream
Call stream.WriteText({Here is an excel file of the current Past Due Items for your reference.
})
Call child1.SetContentFromText(stream, "text/html", ENC_NONE)
Call stream.Truncate
' Bring the attachment into its entity (child 2)
Set stream = session.CreateStream
If Not stream.Open(fileName, "binary") Then
Msgbox "Could not open " & fileName, 16, "Open failed"
Goto ExitSub
End If
If stream.Bytes = 0 Then
Msgbox "File " & fileName & " has no content", 16, "No Content"
Goto ExitSub
End If
Call child2.SetContentFromBytes(stream, "text/plain", ENC_NONE)
Call child2.EncodeContent(ENC_IDENTITY_8BIT)
Call stream.Close
doc.SendTo = profiledoc.P_CoordGroup
Call doc.Send (False)
Print "Email with Excel file sent"
ExitSub:
session.ConvertMime = True ' Reset the value
End Sub
After returning to the main agent, the following is done to remove the created file, so that no footprint of the built excel file is left on the server share directory.
On Error 75 Resume Next 'just in case we get an error with the kill command if the file doesn't exist
Kill xlFilename
Print "Excel file purged from server"
Customer: Wow!
Me: Yeah, I was quite surprised to find a way to do it, but there it is...
This may be old-hat to some of you, but it was definitely news to me. Thought I'd share for anyone else who may not have come across it but has a need to do something like this.
Have a good weekend everyone!
Guess the leaf raking session yesterday actually may have done more good than harm fortunately...
Happy to be able to beat the minimum Max number at set #8
10/10/13/13/10/10/9/30
![]() |
Last weekend (Saturday) our Strongsville Mite 1 team enter the extremely chilly confines of Elyria's rink for their first Regular Season game, albeit an exhibition game as they Elyria is in the A1 division and we are in the AA division. However, the difference between the teams is very small, in fact the top 12-14 teams in the Mite age level are very on-par with each other.
Anyway, both teams started out strong, then Elyria got a goal in the first period. It stayed 1-0 Elyria through much of the second. Then Zach appeared to have scored a goal just inside the left post and had started to skate away celebrating a bit as he was pretty sure he saw the puck go in. He was quite upset when the refs waved it off, as was his bench. This kind of deflated the team. The 2nd period ended still at a one goal lead for Elyria. There we a couple of penalties assessed to Elyria including a cross check/hard hands-up push that the Elyria player did against Zach, but the Mustangs were not able to take advantage of the power plays and we even scored on short-handed on a flukey ricochet.
Elyria ended up taking the game 3-0.
Our boys have their next two games this weekend away at Rocky River on Saturday then home against Shaker Hts on Sunday - both games counting in their Mite AA league standings.
A bit low on my stamina this morning, not sure what happened there...oh yeah, the weekend...
17/19/15/15/20 (10 - break 20sec - 10)
Hoping the 8 set workouts later this week go better... want to be moving forward, not backward...
Su | Mo | Tu | We | Th | Fr | Sa |
|---|---|---|---|---|---|---|
1 | ||||||
2 | 6 | |||||
9 | 11 | 15 | ||||
16 | 20 | 21 | 22 | |||
23 | 24 | 25 | 26 | 27 | 28 | 29 |
30 | ||||||
Special thanks to Chris Miller at Connectria for providing hosting services for this site.