PhilRandolph.com

Good start to this 3rd go-around of Week 5 Column 1, 'nough said...

17/19/15/15/26

Posted by Phil Randolph at 11:34:00 AM, in  100 Pushups  | Permalink - 100 Pushups - Week 5 Day 1 Take 3 Report | Comments (0)

A sample of some of Katelyn's latest art.  Appropriate for the weather here this week.

Posted by Phil Randolph at 12:43:00 PM, in  Katelyn  | Permalink - Snowman Print | Comments (0)

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!

Posted by Phil Randolph at 08:34:00 AM, in  Zach  | Permalink - Regular Season Games 2 & 3 | Comments (0)

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...

Posted by Phil Randolph at 11:21:00 AM, in  100 Pushups  | Permalink - 100 Pushups - Pre-Week 5 (Take 3) Exhaustion Test | Comments (0)

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)

Posted by Phil Randolph at 11:43:00 AM, in  100 Pushups  | Permalink - 100 Pushups - Week 5 Day 3 Take 2 Report | Comments (0)

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!

Posted by Phil Randolph at 09:08:00 AM, in  Show-N-Tell Thursday  | Permalink - S&TT - Build file -> Save file -> Send as attachment -> Kill File | Comments (0)

Seems theres to be a new trailer out for the J. J. Abrams Star Trek movie this weekend

Look at that souped up Enterprise...

Anyone know which movie(s) the trailer is supposed to be showing with?

Posted by Phil Randolph at 08:55:00 AM, in  General  | Permalink - Trek Goodness | Comments (3)

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

Posted by Phil Randolph at 11:40:00 AM, in  100 Pushups  | Permalink - 100 Pushups - Week 5 Day 2 Take 2 Report | Comments (0)

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.

Posted by Phil Randolph at 09:56:00 AM, in  Zach  | Permalink - Regular Season Game 1 (Exhibition) | Comments (0)

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...

Posted by Phil Randolph at 11:24:00 AM, in  100 Pushups  | Permalink - 100 Pushups - Week 5 Day 1 Take 2 Report | Comments (0)