Flow State and Jen's great observation on the use of explanatory text in UIs

Fri, 03 Nov 2006 17:19:18 GMT

http://miksovsky.blogs.com/flowstate/

Asking for first names with an example

I built a web application for our district that used some of these concepts and it's amazing how badly people follow directions - even when it's right in front of them.

Calling SSIS Packages Remotely

Fri, 22 Sep 2006 12:40:18 GMT

Reed has published a great guide for calling SSIS packages and how to deply and install the pieces to do this...

http://blogs.technet.com/reeds/archive/2006/09/22/458074.aspx

Thanks, Reed!

Build Sparklines in C#

Fri, 08 Sep 2006 01:32:55 GMT

Here's a site for developing sparkline visualizations in C#

http://ewbi.blogs.com/develops/2005/07/sparklines.html

Getting Contacts from your Inbox (or any folder)

Tue, 01 Aug 2006 18:05:22 GMT

Here's some nifty code for pulling contacts from your Inbox, or any folder you point to in VB.Net

Private Sub cmdGetContacts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetContacts.Click

' YOU NEED TO:

' - add references: Outlook 11 Type Library

' - add a Button called cmdGetContacts (put this code there)

' - add a list box called lstContacts

' - add a progress bar called prgProgress

' - add a label called lblContacts

' - add a chkbox called chkExclude

Dim objOL As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objFolder As Outlook.Folders

Dim objInnerFolder As Outlook.MAPIFolder

Dim iInnerFolders As Integer

Dim item As Object

Dim MyItems As Outlook.Items

Dim x As Int16

Dim sResult As String

Dim iCount As Integer = 0

Dim iProgress As Integer

Dim i As Integer

objOL = New Outlook.Application

objNS = objOL.GetNamespace("MAPI")

Dim olFolder As Outlook.MAPIFolder

' Pick a folder to get started with

olFolder = objOL.GetNamespace("MAPI").PickFolder

' Reset everything

iCount = 0

prgProgress.Visible = True

lstContacts.Items.Clear()

' Is there any mail in the *root* of the picked folder?

MyItems = olFolder.Items

For i = 1 To MyItems.Count

' Handle the output

sResult = ""

sResult = olFolder.Name

Try

If MyItems(i).senderName Is Nothing Then

sResult = sResult & " (No Sender Found) ,"

Else

sResult = sResult & "," & MyItems(i).senderName & ","

End If

sResult = sResult & MyItems(i).SenderEmailAddress

' Is this an internal email?

' Nope, add 'em

If InStr(sResult, "/O=MICROSOFT") = 0 Then

lstContacts.Items.Add(sResult)

Else

' Yep, are we allowed to add 'em?

If chkExclude.Checked = False Then

lstContacts.Items.Add(sResult)

End If

' next record

iCount = iCount + 1

Catch

End Try

' Get a new message

' Cycle through the folder tree below the picked folder

' This does not recurse through multiple folders...

For iInnerFolders = 1 To olFolder.Folders.Count

' Set the target folder iteratively as we move through the folder list

objInnerFolder = olFolder.Folders(iInnerFolders)

MyItems = objInnerFolder.Items

' Look through the messages...

For i = 1 To MyItems.Count

' Handle the output

sResult = ""

sResult = objInnerFolder.Name

Try

If MyItems(i).senderName Is Nothing Then

sResult = sResult & " (No Sender Found) ,"

Else

sResult = sResult & "," & MyItems(i).senderName & ","

End If

sResult = sResult & MyItems(i).SenderEmailAddress

' Is this an internal email?

' Nope, add 'em

If InStr(sResult, "/O=MICROSOFT") = 0 Then

lstContacts.Items.Add(sResult)

iCount = iCount + 1

Else

' Yep, are we allowed to add 'em?

If chkExclude.Checked = False Then

lstContacts.Items.Add(sResult)

iCount = iCount + 1

End If

Catch

End Try

' Show progress as we look through the folders

iProgress = iInnerFolders / olFolder.Folders.Count

prgProgress.Value = iProgress

prgProgress.Refresh()

' Next Message

' Next Folder

' Update the Progress and counter feedback

prgProgress.Visible = False

lblContacts.Text = "Contacts: " & Format(iCount)

End Sub

Samb Business Intelligence Blog: Code

Flow State and Jen's great observation on the use of explanatory text in UIs

Asking for first names with an example

Calling SSIS Packages Remotely

Build Sparklines in C#

Getting Contacts from your Inbox (or any folder)