CodingBlocks.com

Private Function CheckforOutlook() As Boolean
        Dim found As Boolean
        found = False
        Dim procArray() As System.Diagnostics.Process
        procArray = System.Diagnostics.Process.GetProcessesByName(”OUTLOOK”)
        Dim oneproc As System.Diagnostics.Process

        For Each oneproc In procArray
            If oneproc.ProcessName = “OUTLOOK” Then
                found = True
            End If
        Next
        Return found

    End Function

Welcome To CodingBlocks.com!

This site is for those of us who know how to code, but don’t always know what code to use.

I myself find that there are certain blocks of code I refer to again and again.  Up until now, these blocks of code sat right smack in the middle of my other code – when I needed to remember how to do something, I’d open up an old project and dig though the source to find the technique I used to get it working the first time.

I hope to go one better than that here – by uploading various blocks of code, so that they are easily used by myself and others.

- Jack