PhilRandolph.com | Comments

Red Wings November Schedule Desktop Wallpaper

Ibby Basaran — Mon, 2 Nov 2009 09:54:22 AM -0500

Please ... take it easy on us on this Saturday night! :-)The Maple Leafs are young, stupid and making way to many repeative goofball mistakes. Oh, that and our goalies can't stop a beachball.

But on Saturday the 21st ... kick ass! I can't STAND that dreaded "CH"

( Which stands for "Centre Hice!" )

Changing things up a bit, for the better

Phil Randolph — Fri, 30 Oct 2009 12:46:15 PM -0500

Thanks for your support Chris. Course I just thought about the fact that I started this new committment right before a weekend...that might not have been the best choice in the world! Let's see if I can get past the first test, the first weekend!

Changing things up a bit, for the better

Chris Blatnick — Fri, 30 Oct 2009 12:20:02 PM -0500

Congratulations...way to commit! Good luck!

Stanley Cup Playoffs Round 1 Bracket Wallpaper

hortert — Tue, 27 Oct 2009 05:10:00 AM -0500

Thanks for these wallpapers!

100 Pushups - Week 6 Column 3 Day 2 Take 5 Report

ChrisC — Tue, 20 Oct 2009 04:45:58 AM -0500

That's an interesting list - Jethro Tull mixed in there - like it!! Mine tends to be more Green Day (going to see tonight in belfast), Foo Fighters, My Chemical Romance - With a can of energy drink / caffeine !! Going to add some acdc methinks.

Lasik Surgery

jack — Sat, 17 Oct 2009 05:58:11 AM -0500

best of luck

-----------

jack

" target="_blank" title="Link: www.columbuslaser.com/laser-eye-surgery-upper-arlington-ohio.shtml"> ">Link }

Cataract surgery Upper Arlington

Idea: Set table cell background color via LotusScript

Rob Porter — Thu, 15 Oct 2009 11:06:40 AM -0500

Glad to help :)

Something to watch out for is the second line of the DXL that begins:

Make sure the version= part is the lowest version of the Notes client anyone in your organisation will be using otherwise they will get an error. As you can see in my example it is 6.0 even though I personally use a later version of Notes.

Idea: Set table cell background color via LotusScript

Phil Randolph — Thu, 15 Oct 2009 10:41:12 AM -0500

Wow, Rob!

Thanks so much for that code!

I'm sure I'll be able to use it to work it into my situation and be better able to deliver what the customer is wanting, plus have it in my back pocket for other requests that come down the pike and need more rich text manipulation.

Idea: Set table cell background color via LotusScript

Rob Porter — Thu, 15 Oct 2009 04:17:15 AM -0500

Like @Carl I also tend to use DXL for this sort of thing.

Here's an example of a sub from an agent I wrote that sends an email with a table with cells with background colours. Although I haven't done it in this example, it would be fairly simple to manipulate the cells' "bgcolor" attribute.

Sub emailContractsDept( docProf As NotesDocument )

Dim session As New NotesSession

Dim i As Integer

Dim doc As NotesDocument

Dim docMail As NotesDocument

Dim strSendTo As String

Dim strContractTitle As String

Dim strNotesDomain As String

Dim strExpDate As String

Dim stream As NotesStream

Dim dmp As NotesDXLImporter

On Error 4522 Goto DXLerror

On Error 4294 Goto emailSendError

If docProf.DoExpiryNotification(0) <> "Yes" Then

Call agentLog.LogAction( "* contract expiry notification email has been turned off in the configuration *")

Exit Sub

End If

strNotesDomain = docProf.NotesDomain(0)

If strNotesDomain <> "" Then

If Left$( strNotesDomain, 1) <> "@" Then

strNotesDomain = "@" & strNotesDomain

End If

End If

Call agentLog.LogAction( "start of contract expiry emails")

strSendTo = docProf.ContractsDeptEmailRecipient(0)

If strSendTo = "" Then

Call agentLog.LogWarning( "Contracts department Email recipient is blank in the configuration. Unable to send email." )

Exit Sub

End If

Set stream = session.CreateStream

stream.WriteText {

Link } version='6.0'>

} & strSendTo & {

noreply@reliancecare.com} & strNotesDomain & {

Contract expiry notification

This email has been generated automatically. Please do not reply to it.

Contracts that have just expired:

}

If dcExpired.Count > 0 Then

Set doc = dcExpired.GetFirstDocument

Do Until doc Is Nothing

strContractTitle = replaceSpecialCharacters( doc.Contract_title(0))

stream.WriteText{

} & strContractTitle & {

}

Set doc = dcExpired.GetNextDocument( doc )

Loop

Else

stream.WriteText{

- none found -

}

End If

stream.WriteText{

Contracts that will expire within the next } & docProf.ContractNotificationPeriod(0) & { months:

}

' loop through the "about to expire" document collection

If dcAboutToExpire.Count > 0 Then

Set doc = dcAboutToExpire.GetFirstDocument

stream.WriteText{
columnspacing='0.0396in' refwidth='4.4889in'>
width='1.1813in'/>

Client

Expire Date

}

Do Until doc Is Nothing

strContractTitle = replaceSpecialCharacters( doc.Contract_title(0))

strExpDate = Format$(doc.Contract_exp_date(0), "Short Date")

stream.WriteText{

} & strContractTitle & {

} & strExpDate & {

}

Set doc = dcAboutToExpire.GetNextDocument( doc )

Loop

stream.WriteText{

}

Else

stream.WriteText{

- none found -

}

End If

stream.WriteText{
use3dshading='false' color='#c0e1ff' gradientcolor='white'/>
color='silver'/>This email was sent from the CarePro Client database

}

Set dmp = session.CreateDXLIMporter(stream, dbCurrent)

dmp.Process

Set docMail = dbCurrent.GetDocumentByID( dmp.GetFirstImportedNoteId )

Call docMail.Send( False )

Call agentLog.LogAction( "Contract Expiry Notification email sent to " & strSendTo)

Delete stream

' delete the contents of the "blue" and "red" collections

Delete dcExpired

Delete dcAboutToExpire

Call agentLog.LogAction( "end of contract expiry emails")

Exit Sub

DXLerror:

Call agentlog.LogWarning( "DXL error in emailBranches sub: " & doc.forename(0) & " " & doc.surname(0) & " - docID=" & Cstr( doc.UniversalID ) )

Resume Next

emailSendError:

Call agentlog.LogWarning( "Unable to send email to" & strSendTo & " : " & Error$ )

Resume Next

End Sub

To get an idea of how the DXL should look I first use my Notes client to manually create a sample of how I want the email to look like. When I'm happy with how the sample looks I export the sample document as DXL and open it up in a text editor and copy and paste the DXL code into my agent. I then fiddle around with the DXL and LotusScript to add the variable data into the DXL.

Hope that helps :)

100 Pushups - Week 6 Column 3 Day 3 Take 4 Report

Martin — Thu, 15 Oct 2009 03:13:34 AM -0500

Well, at least you try! To me, this is the most important in this, you don't give up...

I started 1 September, I'm now in week 4, a bit stuck in that week (something that happens often, so I read: progress doesn't go that fast as the plan suggests), but I didn't skip a single session, so as far as I'm concerned, I'm doing allright :-). At the same time I'm in week 4 of the situp program.

Idea: Set table cell background color via LotusScript

Phil Randolph — Wed, 14 Oct 2009 10:39:09 AM -0500

@Carl - Can you do the NotesDXL work and incorporate it somehow into the content of a mail message? Because that is where I'm needing this table to be.

Idea: Set table cell background color via LotusScript

Phil Randolph — Wed, 14 Oct 2009 10:37:54 AM -0500

@Chris - C2 is just a value that will be set to 0, 1, or 2 based on some data in the document.

Idea: Set table cell background color via LotusScript

Carl Tyler — Wed, 14 Oct 2009 10:07:05 AM -0500

I stopped doing tables in Lotuscript and started doing them in NotesDXL, I found it much more flexible.

Idea: Set table cell background color via LotusScript

Christopher Byrne — Wed, 14 Oct 2009 09:29:38 AM -0500

What is C2? A column or some value in the information being processed?

I am wondering if you could do it by importing a style sheet and setting the Paragraph style background image based on that StyleSheet. I have done that for setting fonts and cellpadding, but have not played with the background at all.

Idea: Set table cell background color via LotusScript

Christopher Byrne — Wed, 14 Oct 2009 09:29:38 AM -0500

100 Pushups - Week 6 Column 3 Day 2 Take 4 Report

Phil Randolph — Tue, 13 Oct 2009 04:47:12 PM -0500

That's really the reason I've continued on, just staying at the same level, because really, I don't care that much about doing an actual 100 in a row at some point. This is just keeping me regular in working-out, which up to the point I started this, I never, ever did.

100 Pushups - Week 6 Column 3 Day 2 Take 4 Report

David Jones — Tue, 13 Oct 2009 09:26:12 AM -0500

It certainly does. Doing the program is great but I guess the real goal is to develop a habit of some exercise each week, which is why I was wondering if you were adding to it or just doing that last week each time.

Thanks!

100 Pushups - Week 6 Column 3 Day 2 Take 4 Report

Phil Randolph — Mon, 12 Oct 2009 01:02:21 PM -0500

David,

I just do the Week 6 Column 3 numbers of sets every other day for a total of 3 days a week. Obviously I've not kept up with the at all over the last few months, but previously that's what I was doing. I haven't added higher numbers past the ones listed for Week 6 Column 3, except of course for when I go for the maximum possible on the last set. Does that help?

100 Pushups - Week 6 Column 3 Day 2 Take 4 Report

David Jones — Mon, 12 Oct 2009 11:18:25 AM -0500

I've just started doing these, finally, and I'm just curious what you've been doing since you finished the set. Are you just doing the Week 6 sets every week to help keep the muscles in shape or are you adding a few on your own?

My First 5K Experience

Phil Randolph — Sat, 12 Sep 2009 09:51:32 PM -0500

Thanks Kitty!

I look forward to running with some of the gang at LS10! Can't believe Paul is doing it! ;-)