PundtNotes

SQL Server - Select where each row is numbered row count

2012-01-09T12:20:00.002-05:00

Select misc_value, rank from (
Select misc_key, misc_value, rank() OVER (ORDER BY misc_key, misc_value) as rank
from mga_misc
)a
where rank = 5

Powerbuilder SourceGear Vault

2012-01-05T17:14:00.000-05:00

It was a requirement that as we moved from an old version control system to a new one that it work with PowerBuilder.

SourceGear's Vault product (version5.+) initially had problems doing this via MSSCCI.

With the help of technical support we were able to figure out the problem.

First understand that Vault is built using pure .Net technology. An underlining DLL uses .Net.

With that said here lies the problem. The powerBuilder EXE has a config file PB.EXE.config.

If it does not exist one will need to be made. In it the following needs to be added inside the PB.EXE.config file.

The Startup tags specifing the runtime were important to add or it just simply would hang up on us and PB would crash over and over again.

Note if you already have the PB config file just add what is between the startup tags.

Also note that in the Vault client application Vault needs to be your default Source Control. That can be found as a check box under tools -> options -> General. It will not work right otherwise.

If the PB config file does not exist then you can grab the one from c:\program files\SourceGear\Vault Client\VaultGuiClient.exe.config , add the startup tag above, rename it to the PB exe and it should work.

Hopefully a lost days worth of effort will only be a google search away to save your day. This also worked to fix other MSSCCI application using vault like Visual Basic 6 and so on.

Eddie

Visual Studio 2010 - Themes / Change background color

2012-01-05T17:02:00.002-05:00

This blog has exactly what you need to change the background and other colors in Visual Studio 2010. You basically need to install an extension to provide themes.

The extension download is here.
http://visualstudiogallery.msdn.microsoft.com/20cd93a2-c435-4d00-a797-499f16402378/?SRC=Home

A detailed explanation is here

http://blogs.msdn.com/b/visualstudio/archive/2010/01/04/changing-visual-studio-s-color-palette.aspx

SQL Server - Split a column value

2011-10-24T13:59:00.000-04:00

Here is a user defined SQL Function named Split.

Once used you can use it to pick a part a columns substring values if they are delimited.

For example.
Select dbo.Split('192.168.1.100','.',3) -- Returns 1 If not found Null is returned

Here is the function. Remember that you may need to set permissions on this function so that it can be called.

/****** Object: UserDefinedFunction [dbo].[Split] Script Date: 10/24/2011 13:56:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER FUNCTION [dbo].[Split]
(
@Expression NVARCHAR(max)
, @Delimiter NVARCHAR(max)
, @INDEX INT
)
RETURNS NVARCHAR(max)
AS
BEGIN
DECLARE @RETURN NVARCHAR(max)
DECLARE @Pos INT
DECLARE @PrevPos INT
DECLARE @I INT

-- SELECT dbo.fnSplit('4.55.108.2','.', 2)

IF @Expression IS NULL OR @Delimiter IS NULL OR LEN(@Delimiter) = 0 OR @INDEX < 1 SET @RETURN = NULL ELSE IF @INDEX = 1 BEGIN SET @Pos = CHARINDEX(@Delimiter, @Expression, 1) IF @Pos > 0 SET @RETURN = LEFT(@Expression, @Pos - 1)

END ELSE BEGIN

SET @Pos = 0

SET @I = 0

WHILE (@Pos > 0 AND @I < @INDEX) OR @I = 0 BEGIN SET @PrevPos = @Pos SET @Pos = CHARINDEX(@Delimiter, @Expression, @Pos + LEN(@Delimiter)) SET @I = @I + 1 END IF @Pos = 0 AND @I = @INDEX SET @RETURN = SUBSTRING(@Expression, @PrevPos + LEN(@Delimiter), LEN(@Expression)) ELSE IF @Pos = 0 AND @I <> @INDEX

SET @RETURN = NULL

ELSE

SET @RETURN = SUBSTRING(@Expression, @PrevPos + LEN(@Delimiter), @Pos - @PrevPos - LEN(@Delimiter))

END

RETURN @RETURN

END

SQL Server - Compare two like tables view differences

2011-10-21T15:24:00.000-04:00

/* Compare two tables in different DBs show different values */
select a.cell_number, a.data_type, b.data_type
from
LGF..lgf_data_collection_scheme a
join LGF_Test..lgf_data_collection_scheme b
on a.cell_number =
b.cell_number
where
/* where something is different */
a.data_type <> b.data_type

SQL - Insert based on a Select

2011-07-19T08:46:00.000-04:00

INSERT california_authors (au_id, au_lname, au_fname)
SELECT au_id, au_lname, au_fname
FROM authors
WHERE State = 'CA'

The named columns are optional if the select has identical column definitions. Otherwise they need to be spelled out.

I also have in the blog somewhere update based on a select.
http://pundtnotes.blogspot.com/2010/08/sql-server-update-based-on-select.html

VB.Net - Remove element from an array

2011-06-10T10:55:00.000-04:00

This code snip enables one to remove an element from an array

Public Function RemoveElementFromArray(ByVal objArray As System.Array, ByVal objElement As Object, ByVal objType As System.Type)
Dim objArrayList As New ArrayList(objArray)
objArrayList.Remove(objElement)
Return objArrayList.ToArray(objType)
End Function

the function would be called like this:
For e.g. if there is a String array name strarray then and you need to remove an element "Hello" from the array then..

RemoveElementFromArray(strarray,"Hello",Gettype(String))

VB.Net Filter a datatable to a row array

2011-04-27T16:22:00.000-04:00

    Sub Main()
        Dim objSQL As New dcmUtlMgaNet2_0.clsSQL
        Dim dt As New DataTable
        Dim strCn As String = objSQL.Get_SQL_Connection_String("MGA_CURRENT", "bd_rw")
        Dim strSQL As String = "Select * from mga_misc"
        Dim foundrows() As DataRow

        Try
            dt = objSQL.RunSQLQuery(strCn, strSQL)
            foundrows = dt.Select("misc_key = 'base_year' and misc_value not like '%20%'")
            MsgBox(foundrows.GetUpperBound(0) + 1)

        Catch ex As Exception

        Finally
            dt.Dispose() : dt = Nothing
        End Try

    End Sub

VBS - Get Windows 7 DPI Setting

2011-04-15T14:18:00.002-04:00

Dim Temp

Temp = ReadReg("HKLM\Software\Microsoft\Windows NT\CurrentVersion\FontDPI\LogPixels")
WScript.Echo Temp

Function ReadReg(RegPath)
     Dim objRegistry, Key
     Set objRegistry = CreateObject("Wscript.shell")
     Key = objRegistry.RegRead(RegPath)
     ReadReg = Key
End Function

VB.Net - Using Generics to cleanup commonly disposed of items.

2011-03-08T17:00:00.004-05:00

The following code demonstrates use of Generics to cleanup .Net object requiring a dispose to be called.

   sub main()
        Dim objCN As New SqlClient.SqlConnection
        Dim objDT As New DataTable
        'Dim myPerson As New Person ' This will not work since it does not implement IDispose.
        CleanupNetObject(objCN)
        CleanupNetObject(objDT)
        'CleanupNetObject(myPerson)   ' Will Fail

        Console.ReadLine()
    End Sub

    Public Shared Sub CleanupNetObject(Of T As IDisposable)(ByRef objTest As T)
         Try
            If objTest IsNot Nothing Then
                If objTest.GetType.ToString = "System.Data.SqlClient.SqlConnection" Then
                    If CType(objTest, IDbConnection).State = ConnectionState.Open Then
                        CType(objTest, IDbConnection).Close()
                    End If
                End If
                ' If a Dispose method is available then use it.
                If TypeOf objTest Is IDisposable Then
                    CType(objTest, IDisposable).Dispose()
                End If

                ' At this point set the object to nothing
                objTest = Nothing
            End If

        Catch ex As Exception
            Throw ex
        Finally
            ' Force the garbage collector to clean up
            GC.Collect()
        End Try
    End Sub

Ultra Edit clear lines containing String.

2011-03-07T14:12:00.002-05:00

Using Ultra Edit you can use a regular expression to find a search string and clear the lines.

Open a file in Ultra Edit like a log file.
Select Search -> Replace
Select Regular Expressions
Select Perl as the regular expression engine
In 'find what' use the following:

^.*edwp.*\r?\n?$
Replace with leave blank.

Make sure to replace 'edwp' with the string you actually want to find.
The entire line containing the string will be deleted.

You can find more than one line containing a search string. For example lines containing userids mag1 or johr.
^.*mag1.*\r?\n?$|^.*johr.*\r?\n?$

Lots of blank lines maybe left over in your log file so use this replace regular expression to clean up all the blank line.
The expression to delete an entire blank lines is. (Again using perl reg expressions.)
^\r?\n?$

SQL Server - Insert data into SQL in Bulk CSV file

2011-03-03T16:52:00.000-05:00

Original source of link.

http://blog.sqlauthority.com/2008/02/06/sql-server-import-csv-file-into-sql-server-using-bulk-insert-load-comma-delimited-file-into-sql-server/

Create TestTable

USE TestData
GO
CREATE TABLE CSVTest
(ID INT,
FirstName VARCHAR(40),
LastName VARCHAR(40),
BirthDate SMALLDATETIME)
GO

Create CSV file in drive C: with name csvtest.txt with following content. The location of the file is C:\csvtest.txt
1,James,Smith,19750101
2,Meggie,Smith,19790122
3,Robert,Smith,20071101
4,Alex,Smith,20040202

Now run following script to load all the data from CSV to database table. If there is any error in any row it will be not inserted but other rows will be inserted.

BULK
INSERT CSVTest
FROM 'c:\csvtest.txt'
WITH
(
FIELDTERMINATOR = ',',
ROWTERMINATOR = '\n'
)
GO
--Check the content of the table.
SELECT *
FROM CSVTest
GO
--Drop the table to clean up database.
SELECT *
FROM CSVTest
GO

VB.Net - Test for a network connection

2011-02-18T10:35:00.000-05:00

Module Module1

Sub Main()
Console.WriteLine(IsConnectionAvailable(TestOption.MGAWebSite, 50000))
Console.ReadKey()
End Sub

Enum TestOption
Google = 0
MGAWebSite = 1
End Enum

Private Function IsConnectionAvailable(ByVal enTestOption As TestOption, Optional ByVal timeout As Integer = 100000) As Boolean
Dim url As System.Uri
Dim req As System.Net.WebRequest
Dim resp As System.Net.WebResponse

Try
'Request for request
Select Case enTestOption
Case TestOption.Google
url = New System.Uri("http://www.google.com/")
Case TestOption.MGAWebSite
url = New System.Uri("http://22.255.3.122/")
End Select
req = System.Net.WebRequest.Create(url)
req.Timeout = timeout

resp = req.GetResponse()
resp.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function

End Module

VB.Net - Parameterized Query

2010-10-06T16:09:00.002-04:00

Example

Sub newway()
Dim objSQL As New dcmUtlMgaNet2_0.clsSQL
Dim objCN As New SqlClient.SqlConnection
Dim strSQL As String = ""
Dim strValue As String = ""
Dim sqlParam(0) As SqlClient.SqlParameter

strValue = "value1=Apples\" + vbCrLf + "value2=Oranges\" + vbCrLf + "value3=grapes"
sqlParam(0) = New SqlClient.SqlParameter("@value", strValue)

strSQL = "Update mga_misc Set misc_value =@value where misc_key = 'zzzEddie'"

objCN.ConnectionString = objSQL.Get_SQL_Connection_String("MGA_CURRENT", "bd_rw")
objCN.Open()
objSQL.ExecuteSQLNonQuery(strSQL, sqlParam, objCN)

End Sub

VB.Net - Within a time range

2010-09-23T08:22:00.002-04:00

If you wanted to know if the current time is between two times here is the code.

Sub Main()

Dim dStartTime As Date = #7:00:00 AM#
Dim dEndTime As Date = #8:00:00 AM#

Debug.Print(IsDayTime(dStartTime, dEndTime))

End Sub

Public Function IsDayTime(ByVal startTime As DateTime, ByVal endTime As DateTime) As Boolean
Return DateTime.Now.TimeOfDay >= New TimeSpan(startTime.Ticks) AndAlso DateTime.Now.TimeOfDay <= New TimeSpan(endTime.Ticks)
End Function

VB.Net - Convert GMT / UTC time to Local Time

2010-09-15T12:39:00.001-04:00

When looking at an email date received in my code it reported the dates as GMT Greenwich Time (AKA UTC Universal Time). My users only care about the Local time. In my case EST Eastern Standard time.

So how to convert from GMT to Local Time? First Realize .Net does not have GMT. It will be referred to as UTC.

You need to Declare a Date and set it equal to a date but you must specify if it is Universal Time or Local time. By Default all defined dates are Unspecified. If you do not specify then you are going to run into some trouble.
So do this ...
Dim dDateReceived as Date
dDateReceived = DateTime.SpecifyKind(inboxItem.DateTimeReceived, DateTimeKind.Utc)
Debug.Print("GMT: " & inboxItem.DateTimeReceived.ToString)

dDateReceived = DateTime.SpecifyKind(dDateReceived.ToLocalTime, DateTimeKind.Local)
Debug.Print("EST: " & dDateReceived.ToString)

You will get the following results in this code example.
GMT: 9/14/2010 12:40:25 PM
EST: 9/14/2010 8:40:25 AM

In this case I am in Eastern Standard Time ( a few hrs behind GMT). The key here is the Specify Kind function.

SQL Server – Management Studio Unable to save changes

2010-09-13T08:30:00.001-04:00

If you are using management studio and attempt to add a column to a table or some other activity and get a message telling you that you will need to recreate a table, don’t worry.

The message is not clear. What it is trying to say in the message is that data in the table maybe deleted if you add a column to the table.

Management studio has a setting that causes this message. I recommend turning this option off. It can be found in the following location.

Tools-> Options-> Designers-> Table and Database Designers->

Uncheck the option.

“Prevent saving changes that require table recreation”

SQL Server - Update based on a Select

2010-08-26T14:28:00.000-04:00

Example

Update mga_xml_fragments_12_29_2009
set xml_long_title = Replace(t2.xml_long_title,'update text','')
,
dt_stamp_long_title = getdate()
From ( select seq_id, xml_long_title
From mga_xml_fragments_12_29_2009
) as t,
mga_xml_fragments_12_29_2009 as t2
Where
t.seq_id = t2.seq_id

SQL Server (Granting table permissions)

2010-07-27T14:35:00.001-04:00

Here is a simple statement I use to quickly grant table permissions

DECLARE @SQLString nVarChar(1000)

DECLARE @TableName nVarChar(100)

Set @TableName='dbo.mga_fn_agency_response_msgs'

/* bd_ro */

SET @SQLString = 'Grant Select on ' + @TableName + ' To "bd_ro"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant View Definition on ' + @TableName + ' To "bd_ro"'

EXEC sp_executesql @SQLString

/* bd_rw */

SET @SQLString = 'Grant Select on ' + @TableName + ' To "bd_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant Insert on ' + @TableName + ' To "bd_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant Update on ' + @TableName + ' To "bd_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant Delete on ' + @TableName + ' To "bd_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant View Definition on ' + @TableName + ' To "bd_rw"'

EXEC sp_executesql @SQLString

/* dctm_ro */

SET @SQLString = 'Grant Select on ' + @TableName + ' To "dctm_ro"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant View Definition on ' + @TableName + ' To "dctm_ro"'

EXEC sp_executesql @SQLString

/* dctm_rw */

SET @SQLString = 'Grant Select on ' + @TableName + ' To "dctm_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant Insert on ' + @TableName + ' To "dctm_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant Update on ' + @TableName + ' To "dctm_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant Delete on ' + @TableName + ' To "dctm_rw"'

EXEC sp_executesql @SQLString

SET @SQLString = 'Grant View Definition on ' + @TableName + ' To "dctm_rw"'

EXEC sp_executesql @SQLString

/* Execute - Enables rights for a stored procedure */

VBA Excel – Unlock a password protected worksheet

2010-07-14T15:44:00.001-04:00

The following VBA code can be used to unprotect an Excel Workbook.

Public Sub AllInternalPasswords()
        ' Breaks worksheet and workbook structure passwords. Bob McCormick 
        '  probably originator of base code algorithm modified for coverage 
        '  of workbook structure / windows passwords and for multiple passwords
        '
        ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
        ' Modified 2003-Apr-04 by JEM: All msgs to constants, and
        '   eliminate one Exit Sub (Version 1.1.1)
        ' Reveals hashed passwords NOT original passwords
        Const DBLSPACE As String = vbNewLine & vbNewLine
        Const AUTHORS As String = DBLSPACE & vbNewLine & _
                "Adapted from Bob McCormick base code by" & _
                "Norman Harker and JE McGimpsey"
        Const HEADER As String = "AllInternalPasswords User Message"
        Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
        Const REPBACK As String = DBLSPACE & "Please report failure " & _
                "to the microsoft.public.excel.programming newsgroup."
        Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
                "now be free of all password protection, so make sure you:" & _
                DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
                DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
                DBLSPACE & "Also, remember that the password was " & _
                "put there for a reason. Don't stuff up crucial formulas " & _
                "or data." & DBLSPACE & "Access and use of some data " & _
                "may be an offense. If in doubt, don't."
        Const MSGNOPWORDS1 As String = "There were no passwords on " & _
                "sheets, or workbook structure or windows." & AUTHORS & VERSION
        Const MSGNOPWORDS2 As String = "There was no protection to " & _
                "workbook structure or windows." & DBLSPACE & _
                "Proceeding to unprotect sheets." & AUTHORS & VERSION
        Const MSGTAKETIME As String = "After pressing OK button this " & _
                "will take some time." & DBLSPACE & "Amount of time " & _
                "depends on how many different passwords, the " & _
                "passwords, and your computer's specification." & DBLSPACE & _
                "Just be patient! Make me a coffee!" & AUTHORS & VERSION
        Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
                "Structure or Windows Password set." & DBLSPACE & _
                "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
                "Note it down for potential future use in other workbooks by " & _
                "the same person who set this password." & DBLSPACE & _
                "Now to check and clear other passwords." & AUTHORS & VERSION
        Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
                "password set." & DBLSPACE & "The password found was: " & _
                DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
                "future use in other workbooks by same person who " & _
                "set this password." & DBLSPACE & "Now to check and clear " & _
                "other passwords." & AUTHORS & VERSION
        Const MSGONLYONE As String = "Only structure / windows " & _
                 "protected with the password that was just found." & _
                 ALLCLEAR & AUTHORS & VERSION & REPBACK
        Dim w1 As Worksheet, w2 As Worksheet
        Dim i As Integer, j As Integer, k As Integer, l As Integer
        Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
        Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
        Dim PWord1 As String
        Dim ShTag As Boolean, WinTag As Boolean
        
        Application.ScreenUpdating = False
        With ActiveWorkbook
            WinTag = .ProtectStructure Or .ProtectWindows
        End With
        ShTag = False
        For Each w1 In Worksheets
                ShTag = ShTag Or w1.ProtectContents
        Next w1
        If Not ShTag And Not WinTag Then
            MsgBox MSGNOPWORDS1, vbInformation, HEADER
            Exit Sub
        End If
        MsgBox MSGTAKETIME, vbInformation, HEADER
        If Not WinTag Then
            MsgBox MSGNOPWORDS2, vbInformation, HEADER
        Else
          On Error Resume Next
          Do      'dummy do loop
            For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
            For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
            For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
            For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
            With ActiveWorkbook
              .Unprotect Chr(i) & Chr(j) & Chr(k) & _
                 Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
                 Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
              If .ProtectStructure = False And _
              .ProtectWindows = False Then
                  PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
                    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                  MsgBox Application.Substitute(MSGPWORDFOUND1, _
                        "$$", PWord1), vbInformation, HEADER
                  Exit Do  'Bypass all for...nexts
              End If
            End With
            Next: Next: Next: Next: Next: Next
            Next: Next: Next: Next: Next: Next
          Loop Until True
          On Error GoTo 0
        End If
        If WinTag And Not ShTag Then
          MsgBox MSGONLYONE, vbInformation, HEADER
          Exit Sub
        End If
        On Error Resume Next
        For Each w1 In Worksheets
          'Attempt clearance with PWord1
          w1.Unprotect PWord1
        Next w1
        On Error GoTo 0
        ShTag = False
        For Each w1 In Worksheets
          'Checks for all clear ShTag triggered to 1 if not.
          ShTag = ShTag Or w1.ProtectContents
        Next w1
        If ShTag Then
            For Each w1 In Worksheets
              With w1
                If .ProtectContents Then
                  On Error Resume Next
                  Do      'Dummy do loop
                    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
                    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
                    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
                    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
                    .Unprotect Chr(i) & Chr(j) & Chr(k) & _
                      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                    If Not .ProtectContents Then
                      PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
                        Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                      MsgBox Application.Substitute(MSGPWORDFOUND2, _
                            "$$", PWord1), vbInformation, HEADER
                      'leverage finding Pword by trying on other sheets
                      For Each w2 In Worksheets
                        w2.Unprotect PWord1
                      Next w2
                      Exit Do  'Bypass all for...nexts
                    End If
                    Next: Next: Next: Next: Next: Next
                    Next: Next: Next: Next: Next: Next
                  Loop Until True
                  On Error GoTo 0
                End If
              End With
            Next w1
        End If
        MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
    End Sub

Facebook - Close Account not disable

2010-05-21T12:54:00.001-04:00

Facebook is currently the leading social networking page out there. Many privacy issues exist with Facebook and they do not make it easy to locate how to end your account.

Do not confuse Disabling your account with Deletion. Deletion will completely remove your account after 14 days (a cool down period). Facebook seems to only make available the disable option which still keeps all your data and other information available. If you decide to close your account with them click the following link to delete it forever.

https://ssl.facebook.com/help/contact.php?show_form=delete_account&__a=17

I tried Facebook for a year and found it to be boring. Also the issue of privacy has to be a major concern of mine. So I ended it.

You can always just use the phone, write a letter or send an IM or email. Or is that the old way of doing things :)

VB.Net - XML Read and Write using LINQ

2010-05-17T09:29:00.001-04:00

In the past I've always used the .Net XML classes to interact with XML files. Starting with Visual Basic 2008 (.Net 3.5) Microsoft introduced LINQ. Link is good for interacting with classes that implement the IEnumerable interface like XML.

The LINQ Classes are good for reading and writing XML files. Here is a quick code example.

Other examples maybe found here

http://msdn.microsoft.com/en-us/vbasic/bb688088.aspx

Sample XML (Books.xml)

<Books>
<Book Title="Introducing VB 9.0" Price="0.00">
<Author>Eddie Pundt</Author>
</Book>
<Book Title="Introducing C# 3.0" Price="0.00">
<Author>Jane Fonda</Author>
</Book>
</Books>

function to load, display, edit & save the xml document using LINQ

Function GetXML() As String
    '' The following can be used to create an XML Document rather than loading from a file below.
    'Dim xml = New XElement("Books", _
    '           New XElement("Book", _
    '               New XAttribute("Title", "Introducing VB 9.0"), _
    '               New XAttribute("Price", "0.00"), _
    '               New XElement("Author", "Bart De Smet")), _
    '           New XElement("Book", _
    '               New XAttribute("Title", "Introducing C# 3.0"), _
    '               New XAttribute("Price", "0.00"), _
    '               New XElement("Author", "Bart Simpson")))

    ' Loading the XML Document from a file
    Dim xml As XDocument = XDocument.Load("f:\Books.xml") '
    MsgBox(xml.ToString)

    ' Cycle through each book and display results.
    ' Also commented out code allows you to modify values.
    For Each book In xml.<Books>.<Book>
        Console.WriteLine("{0} costs {1} and is written by {2}", book.@Title, book.@Price, book.<Author>.Value)
        ' book.<Author>.Value = "James Brown" ' Used to change a DB Value

' book.SetAttributeValue("Price", "9.99")
Next

' Save any changes we made
xml.Save("f:\Books.xml")

' Return the XML as a string
Return xml.ToString
End Function

To load the document from a string variable do the following
Dim xmlDocTest As XDocument = XDocument.Parse(xmldoc.ToString)

VB.Net - Return two values from a function using key value pairs

2010-05-14T16:34:00.000-04:00

Instead of returning a collection you could have a function. Would I use this, I don't think so but if I think of a reason here it is.

Sub Main()
Dim test As KeyValuePair(Of String, String)
test = GetTwoResults()
Console.WriteLine(test.Key) ' "One"
Console.WriteLine(test.Value) ' "two"

End Sub

Function GetTwoResults() As KeyValuePair(Of String, String)
Dim FirstResult = "One"
Dim SecondRes = "two"

Dim dp As New KeyValuePair(Of String, String)(FirstResult, SecondRes)

Return dp
End Function

Netsh: Get Current Network configuration

2010-05-13T09:50:00.000-04:00

C:\Windows\system32>netsh interface ip show config

Configuration for interface "Wireless Network Connection"
DHCP enabled: No
IP Address: XX.255.25.113
Subnet Prefix: XX.255.0.0/16 (mask 255.255.0.0)
Default Gateway: XX.255.3.1
Gateway Metric: 1
InterfaceMetric: 40
Statically Configured DNS Servers: XX.255.3.2
XX.255.3.58
Register with which suffix: Primary only
Statically Configured WINS Servers: None

Configuration for interface "Loopback Pseudo-Interface 1"
DHCP enabled: No
IP Address: 127.0.0.1
Subnet Prefix: 127.0.0.0/8 (mask 255.0.0.0)
InterfaceMetric: 50
Statically Configured DNS Servers: None
Register with which suffix: None
Statically Configured WINS Servers: None

EWS (Exchange Web Services) – VB.Net Code for email

2010-04-30T09:20:00.001-04:00

I have found mostly c# examples posted to interact with Exchange Web Services. I want to provide code examples to interact with an Exchange mail inbox. The following code is used in a console type project. The clsCredentials will be included as well. The routine ReadMsgs2 includes calls to forward a message to someone, reply to a message and so on. I am buy no means an expert on this topic but I thought I’d share my code to help the VB.Net community that wants to save time by not having to reference C# examples. Enjoy. You will need to add a Web reference to your exchange webservice

Module1 code

'Imports testExchangeWS.ewsvbsamp.ews   ' Need to Add Service This acts as a proxy
'   for ws -> https://ess16.exchange.mga/EWS/Services.wsdl
'   for binding https://ess16.exchange.mga/ews/exchange.asmx

Imports testExchangeWS.mga.exchange.ess16
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.IO

Module Module1
Dim _objAuth As New clsAuth

Sub Main()

        Try
            ' Search the inbox for the number of unread emails
            'Console.WriteLine("Searching for the number of unread emails found in the inbox")
            'Dim intCnt As Integer = 0
            'For i As Integer = 1 To 3
            '    Console.WriteLine(i.ToString & ") Searching for the number of unread emails found in the inbox")
            '    intCnt = GetUnreadEmailCount()
            '    Console.WriteLine(intCnt)
            '    If intCnt <> 0 Then Beep()
            '    System.Threading.Thread.Sleep(1000)
            'Next

' Read the subjects of the messages found in the inbox
ReadMsgs(True)

            ' Sending an e-mail without an attachment
            'Console.WriteLine("Sending email")
            'sendmsg("", _
            '      "", _
            '      "edwp@mlis.state.md.us", _
            '      "edwp@mlis.state.md.us", _
            '      "testSubject", _
            '      "This is a test message.<br>Have a nice day.<br>-Eddie", _
            '      BodyTypeType.HTML)

            ' Sending an email with an attachment.
            'Console.WriteLine("Sending email")
            'Dim arrAttachments() As String = {"c:\testin.pdf", "c:\WordRibbonMap.pdf"}
            'sendmsgWithAttachment("", _
            '                      "", _
            '                      "edwp@mlis.state.md.us,eddiepundt@gmail.com", _
            '                      "edwp@mlis.state.md.us", _
            '                      "test message with attachment", _
            '                      "This is a test message.<br>Have a nice day.<br>-Eddie", _
            '                      arrAttachments, _
            '                      BodyTypeType.HTML)

        Catch ex As Exception
            Console.WriteLine("An error occured. The details are as follows.")
            Console.WriteLine("Message: " & ex.Message)
            Console.WriteLine("StackTrace: " & ex.StackTrace)
        Finally
            ' Wait for the user to hit the enter key before closing the console window.
            Console.WriteLine("Processing completed. Press enter to continue")
            'Console.ReadKey()
        End Try

End Sub

    Private Sub MoveMsgFromInboxToFolder(ByRef esb As ExchangeServiceBinding, _
                                         ByRef itemID As ItemIdType, ByVal strFolderName As String)
        Try
            'Find the folderId to which we want to move item
            Dim parentFolder As New DistinguishedFolderIdType
            parentFolder.Id = DistinguishedFolderIdNameType.root
            Dim tfTargetFolder As New FolderIdType
            'Change the name of the folder we are searching for FolderID
            tfTargetFolder = FindFolder(esb, parentFolder, strFolderName)

Dim newItemID As New ItemIdType

'Move am Item based on ItemId and FolderID
newItemID = MoveItemtoTest(esb, itemID.Id, tfTargetFolder)

            Dim strId As String
            strId = "New ItemID " + newItemID.Id.ToString
            Console.WriteLine(strId, "Item Moved")

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

Public Function FindFolder(ByVal serviceBinding As ExchangeServiceBinding, ByVal fiFolderID As DistinguishedFolderIdType, ByVal fnFldName As String) As FolderIdType

Dim rvFolderID As New FolderIdType

        ' Create the request and specify the travesal type
        Dim findFolderRequest As FindFolderType = New FindFolderType()
        findFolderRequest.Traversal = FolderQueryTraversalType.Deep

' Define the properties returned in the response

        Dim responseShape As FolderResponseShapeType = New FolderResponseShapeType()
        responseShape.BaseShape = DefaultShapeNamesType.Default
        findFolderRequest.FolderShape = responseShape

        ' Identify which folders to search
        Dim folderIDArray() As DistinguishedFolderIdType = New DistinguishedFolderIdType(1) {}
        folderIDArray(0) = New DistinguishedFolderIdType()
        folderIDArray(0).Id = fiFolderID.Id

        'Add Restriction for DisplayName
        Dim ffRestriction As New RestrictionType
        Dim ieToType As New IsEqualToType
        Dim diDisplayName As New PathToUnindexedFieldType

diDisplayName.FieldURI = UnindexedFieldURIType.folderDisplayName

Dim ciConstantType As New FieldURIOrConstantType
Dim cvConstantValueType As New ConstantValueType

        cvConstantValueType.Value = fnFldName
        ciConstantType.Item = cvConstantValueType
        ieToType.Item = diDisplayName
        ieToType.FieldURIOrConstant = ciConstantType
        ffRestriction.Item = ieToType
        findFolderRequest.Restriction = ffRestriction

' Add the folders to search to the request
findFolderRequest.ParentFolderIds = folderIDArray

        Try
            ' Send the request and get the response
            Dim findFolderResponse As FindFolderResponseType = serviceBinding.FindFolder(findFolderRequest)

            ' Get the response messages
            If findFolderResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then
                Console.WriteLine("Error Occured")
                Console.WriteLine(findFolderResponse.ResponseMessages.Items(0).MessageText)
                Return Nothing
            Else
                Dim rmta() As ResponseMessageType = findFolderResponse.ResponseMessages.Items
                Dim rmt As ResponseMessageType
                For Each rmt In rmta
                    ' Cast to the correct response message type
                    Dim ffResponse As FindFolderResponseMessageType = rmt
                    Dim fFoundFolder As FolderType

                    For Each fFoundFolder In ffResponse.RootFolder.Folders
                        rvFolderID = fFoundFolder.FolderId
                        'console.writeline(fFoundFolder.DisplayName)
                    Next
                Next

                'Return the FolderID of the last folder found
                Return (rvFolderID)
            End If

        Catch e As Exception
            Console.WriteLine(e.Message)
            Return Nothing
        End Try
    End Function

Public Function MoveItemtoTest(ByVal serviceBinding As ExchangeServiceBinding, ByVal itemID As String, ByVal trgfldID As FolderIdType) As ItemIdType

'Setup FolderId and ItemId to be passed to MoveItem
Dim tfTargetFolder As TargetFolderIdType = New TargetFolderIdType()

tfTargetFolder.Item = trgfldID

Dim iiItemId As ItemIdType = New ItemIdType()
iiItemId.Id = itemID

'Create request to move Item and specify properties
Dim miMoveItemRequest As MoveItemType = New MoveItemType()

        miMoveItemRequest.ItemIds = New ItemIdType(1) {}
        miMoveItemRequest.ItemIds(0) = iiItemId
        miMoveItemRequest.ToFolderId = tfTargetFolder

Dim nID As New ItemIdType

        Try
            ' Send the request and get the response
            Dim miResponse As MoveItemResponseType = serviceBinding.MoveItem(miMoveItemRequest)

            If miResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then
                Console.WriteLine("Error Occured")
                Console.WriteLine(miResponse.ResponseMessages.Items(0).MessageText)
                Return Nothing
            Else
                Dim iirmt As ItemInfoResponseMessageType = miResponse.ResponseMessages.Items(0)

                If iirmt.Items.Items.Length > 0 Then
                    'Get updated ItemId from the Response Message
                    nID = iirmt.Items.Items(0).ItemId
                    Console.WriteLine("Item Moved")
                    'Return updated ItemID
                    Return nID
                Else
                    Return Nothing
                End If
            End If

        Catch e As Exception
            Console.WriteLine(e.Message)
            Return Nothing
        End Try

End Function

    ''' <summary>
    ''' Sends an HTML or Text email message using EWS (Exchange Mail web services)
    ''' </summary>
    ''' <param name="strEmailaddressTo">Email addresses delimited by a , or ; . Blank string allowed only if BCC is used</param>
    ''' <param name="strEmailaddressCC">Email addresses delimited by a , or ; . Blank string allowed.</param>
    ''' <param name="strEmailaddressBCC">Email addresses delimited by a , or ; . Blank string allowed</param>
    ''' <param name="strEmailaddressFrom">Only one email address from a sender you want to identify. May not be blank.</param>
    ''' <param name="strSubjectOfMessage">A text string showing the subject.</param>
    ''' <param name="strBodyOfMessage">This maybe a text message or HTML markup. See ewsBodyType param to specify.</param>
    ''' <param name="ewsBodyType">BodyTypeType.HTML = 0 is the default. BodyTypeType.Text = 1 if you want to send a text only message.</param>
    ''' <remarks>All errors thrown back to the caller on error conditions.</remarks>
    Public Sub sendmsg(ByVal strEmailaddressTo As String, _
                       ByVal strEmailaddressCC As String, _
                       ByVal strEmailaddressBCC As String, _
                       ByVal strEmailaddressFrom As String, _
                       ByVal strSubjectOfMessage As String, _
                       ByVal strBodyOfMessage As String, _
                       Optional ByVal ewsBodyType As BodyTypeType = BodyTypeType.HTML)

        Dim emailToSave As CreateItemType
        Dim response As CreateItemResponseType
        Dim emailMessage As MessageType
        Dim UnreadCount As Integer = 0
        Dim arrEmailAddressType(1) As EmailAddressType
        Dim arrEmailAddressTypeCC(1) As EmailAddressType
        Dim arrEmailAddressTypeBCC(1) As EmailAddressType
        Dim arrEmail(1) As ItemType

        Dim esb As New ExchangeServiceBinding
        Dim arrEmailTo(1) As String
        Dim arrEmailCC(1) As String
        Dim arrEmailBCC(1) As String

        Try
            ' Setup the exchange binding
            esb.RequestServerVersionValue = New RequestServerVersion
            esb.RequestServerVersionValue.Version = ExchangeVersionType.Exchange2007_SP1
            esb.Credentials = New NetworkCredential(_objAuth.userid, _objAuth.pswd, _objAuth.domain)
            esb.Url = _objAuth.esbUrl
            'ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)

emailMessage = New MessageType()

            ' Add the To recipient(s) to the email message
            If strEmailaddressTo.Trim <> "" Then
                arrEmailTo = strEmailaddressTo.Replace(";", ",").Split(",")
                ReDim arrEmailAddressType(arrEmailTo.GetUpperBound(0))

emailMessage.ToRecipients = arrEmailAddressType

                If arrEmailTo.Length <> 0 Then
                    For i As Integer = 0 To arrEmailTo.GetUpperBound(0)
                        If ValidateEmailAddressFormat(arrEmailTo(i)) = True Then
                            emailMessage.ToRecipients(i) = New EmailAddressType
                            emailMessage.ToRecipients(i).EmailAddress = arrEmailTo(i).ToString.Trim
                        Else
                            Throw New Exception("The following email address is invalid in format: " & arrEmailTo(i))
                        End If
                    Next
                End If
            End If

            ' Add the CC recipient(s) to the email message
            If strEmailaddressCC.Trim <> "" Then
                arrEmailCC = strEmailaddressCC.Replace(";", ",").Split(",")
                ReDim arrEmailAddressTypeCC(arrEmailCC.GetUpperBound(0))

emailMessage.CcRecipients = arrEmailAddressTypeCC

                If arrEmailCC.Length <> 0 Then
                    For i As Integer = 0 To arrEmailCC.GetUpperBound(0)
                        If ValidateEmailAddressFormat(arrEmailCC(i)) = True Then
                            emailMessage.CcRecipients(i) = New EmailAddressType
                            emailMessage.CcRecipients(i).EmailAddress = arrEmailCC(i).ToString.Trim
                        Else
                            Throw New Exception("The following email address is invalid in format: " & arrEmailCC(i))
                        End If
                    Next
                End If
            End If

            ' Add the BCC recipient(s) to the email message
            If strEmailaddressBCC.Trim <> "" Then
                arrEmailBCC = strEmailaddressBCC.Replace(";", ",").Split(",")
                ReDim arrEmailAddressTypeBCC(arrEmailBCC.GetUpperBound(0))

emailMessage.BccRecipients = arrEmailAddressTypeBCC

                If arrEmailBCC.Length <> 0 Then
                    For i As Integer = 0 To arrEmailBCC.GetUpperBound(0)
                        If ValidateEmailAddressFormat(arrEmailBCC(i)) = True Then
                            emailMessage.BccRecipients(i) = New EmailAddressType
                            emailMessage.BccRecipients(i).EmailAddress = arrEmailBCC(i).ToString.Trim
                        Else
                            Throw New Exception("The following email address is invalid in format: " & arrEmailBCC(i))
                        End If
                    Next
                End If
            End If

            ' Add the sender to the email message
            emailMessage.From = New SingleRecipientType() ' set up a single sender
            emailMessage.From.Item = New EmailAddressType()
            emailMessage.From.Item.EmailAddress = strEmailaddressFrom
            emailMessage.Subject = strSubjectOfMessage
            emailMessage.Body = New BodyType()
            emailMessage.Body.BodyType1 = ewsBodyType ' specify HTML or plain Text
            emailMessage.Body.Value = strBodyOfMessage

            ' The next step is to place the email message inside of a CreateItemType object.
            emailToSave = New CreateItemType
            emailToSave.Items = New NonEmptyArrayOfAllItemsType()

            emailToSave.Items.Items = arrEmail
            emailToSave.Items.Items(0) = emailMessage
            emailToSave.MessageDisposition = MessageDispositionType.SendAndSaveCopy
            emailToSave.MessageDispositionSpecified = True

            ' Finally, you call the CreateItem() method to create the item and send it off.
            ' I'll usually place this part in a try/catch block, and then return the ResponseCode
            ' (inside of the returned ResponseMessageType) so that it can be inspected for success. :
            ' I'll usually place this part in a try/catch block, and then return the ResponseCode
            ' (inside of the returned ResponseMessageType) so that it can be inspected for success.
            response = esb.CreateItem(emailToSave)

        Catch ex As Exception
            Throw ex
        Finally
            If esb IsNot Nothing Then esb.Dispose() : esb = Nothing
            emailMessage = Nothing
            response = Nothing
            emailToSave = Nothing
        End Try

End Sub

    ''' <summary>
    ''' Input an email address and test it meets basic formatting standards like including an at sign a dot and min length requirements.
    ''' </summary>
    ''' <param name="strEmailAddress">One email address</param>
    ''' <returns>True if OK and False if not</returns>
    ''' <remarks></remarks>
    Public Function ValidateEmailAddressFormat(ByRef strEmailAddress As String) As Boolean
        Dim strEmail As String = strEmailAddress
        Dim intMinLength As Integer = 6
        Dim arrInvalidChars() As String = {",", ";", " "}

        Try
            ' Cleanup Spaces and control characters before or after the email address if found
            strEmail = strEmail.Trim
            strEmail = strEmail.Replace(vbCrLf, "")
            strEmail = strEmail.Replace(vbCr, "")
            strEmail = strEmail.Replace(vbLf, "")
            strEmail = strEmail.Replace(vbTab, "")

            ' Invalid Character check
            For i As Integer = 0 To arrInvalidChars.GetUpperBound(0)
                If strEmail.IndexOf(arrInvalidChars(i)) <> -1 Then
                    Return False
                End If
            Next

            ' Minimum length check EX= a@a.us min length = 6
            If strEmail.Length < intMinLength Then
                Return False
            End If

' Return that it is ok
Return True

        Catch ex As Exception
            Throw ex
        Finally
            ' Return the email by reference
            strEmailAddress = strEmail
        End Try

End Function

    Public Function GetUnreadEmailCount() As Integer
        Dim UnreadCount As Integer = 0
        Dim esb As New ExchangeServiceBinding

        Try
            esb.RequestServerVersionValue = New RequestServerVersion
            esb.RequestServerVersionValue.Version = ExchangeVersionType.Exchange2007_SP1
            esb.Credentials = New NetworkCredential(_objAuth.userid, _objAuth.pswd, _objAuth.domain)
            esb.Url = _objAuth.esbUrl

            ' The code below is needed if you do not use the default credentials.
            ' I do not know of an account that allows me permission to impersonate.
            ' Commented out for now.
            'Dim csConSid As New ConnectingSIDType
            'csConSid.PrimarySmtpAddress = emailaddress
            'Dim exImpersonate As New ExchangeImpersonationType
            'exImpersonate.ConnectingSID = csConSid
            'esb.ExchangeImpersonation = exImpersonate

            Dim biArray(1) As BaseFolderIdType
            Dim dfFolder As New DistinguishedFolderIdType
            dfFolder.Id = DistinguishedFolderIdNameType.inbox
            biArray(0) = dfFolder
            Dim geGetFolder As New GetFolderType
            geGetFolder.FolderIds = biArray
            geGetFolder.FolderShape = New FolderResponseShapeType
            geGetFolder.FolderShape.BaseShape = DefaultShapeNamesType.AllProperties
            Dim gfResponse As GetFolderResponseType = esb.GetFolder(geGetFolder)

            Dim rmta As ResponseMessageType() = gfResponse.ResponseMessages.Items
            Dim rmt As FolderInfoResponseMessageType = DirectCast(rmta(0), FolderInfoResponseMessageType)
            If rmt.ResponseClass = ResponseClassType.Success Then
                Dim folder As FolderType = DirectCast(rmt.Folders(0), FolderType)
                UnreadCount = folder.UnreadCount

            End If
            Return UnreadCount
        Catch ex As Exception
            Throw ex
        Finally
            If esb IsNot Nothing Then esb.Dispose() : esb = Nothing
        End Try

End Function

    Public Sub ReadMsgs(Optional ByVal bolUnreadOnly As Boolean = True)
        Dim UnreadCount As Integer = 0
        Dim findItemRequest As FindItemType
        Dim itemProperties As ItemResponseShapeType
        Dim restrict As RestrictionType
        Dim isEqTo As IsEqualToType
        Dim ptuift As PathToUnindexedFieldType
        Dim msgReadYes As FieldURIOrConstantType
        Dim objCnstVal As ConstantValueType
        Dim folderIDArray(2) As DistinguishedFolderIdType
        Dim findItemResponse As FindItemResponseType
        Dim mailboxItems As ArrayOfRealItemsType
        Dim inboxItem As ItemType
        Dim getItemRequest As New GetItemType
        Dim arrBaseItem(1) As BaseItemIdType
        Dim getItemResponse As GetItemResponseType
        Dim getItemResponseMessage As ItemInfoResponseMessageType
        Dim messageBody As BodyType
        Dim colAttachments As New Collection
        Dim fileAttachment As New ItemAttachmentType
        Dim esb As New ExchangeServiceBinding
        Dim objMsgType As New MessageType
        Dim objFrom As SingleRecipientType

            ' Next, call FindItem for the Inbox folder.
            ' Form the FindItem request.
            findItemRequest = New FindItemType
            findItemRequest.Traversal = ItemQueryTraversalType.Shallow

            ' Define which item properties are returned in the response.
            ' We only need the ItemIds.
            itemProperties = New ItemResponseShapeType
            itemProperties.BaseShape = DefaultShapeNamesType.AllProperties ' DefaultShapeNamesType.IdOnly

            ' Add a Restriction to only read unread emails
            If bolUnreadOnly = True Then
                restrict = New RestrictionType
                isEqTo = New IsEqualToType
                ptuift = New PathToUnindexedFieldType
                msgReadYes = New FieldURIOrConstantType
                objCnstVal = New ConstantValueType

ptuift.FieldURI = UnindexedFieldURIType.messageIsRead
isEqTo.Item = ptuift

                objCnstVal.Value = "0" ' 1= boolean yes; so you'll get the list of read messages (0=unread)
                msgReadYes.Item = objCnstVal
                isEqTo.FieldURIOrConstant = msgReadYes
                restrict.Item = isEqTo

findItemRequest.Restriction = restrict
End If

' Add the properties shape to request.
findItemRequest.ItemShape = itemProperties

            ' Identify which folders to search to find items.
            folderIDArray(0) = New DistinguishedFolderIdType()
            folderIDArray(0).Id = DistinguishedFolderIdNameType.inbox

' Add folders to the request.
findItemRequest.ParentFolderIds = folderIDArray

' Send the request and get the response.
findItemResponse = esb.FindItem(findItemRequest)

' Next, enumerate through the Items returned by FindItem.

            For Each responseMessage As FindItemResponseMessageType In findItemResponse.ResponseMessages.Items
                If (responseMessage.ResponseClass = ResponseClassType.Success) Then
                    mailboxItems = responseMessage.RootFolder.Item

'Console.WriteLine(objEmail.Item.Name)

                    ' Are there any emails to process?
                    If mailboxItems.Items Is Nothing Then
                        Console.WriteLine("No Emails found")
                        Exit For
                    End If

                    For itemCount As Integer = 0 To mailboxItems.Items.Length - 1
                        inboxItem = mailboxItems.Items(itemCount)
                        ' Test in
                        ' Attempt to get the From
                        objMsgType = mailboxItems.Items(itemCount)
                        objFrom = objMsgType.From
                        ' Test out

                        ' Call GetItem on each ItemId to retrieve the
                        ' item's Body property and any AttachmentIds.
                        '
                        ' Form the GetItem request.
                        getItemRequest.ItemShape = New ItemResponseShapeType()

                        ' AllProperties on a GetItem request WILL return
                        ' the message body.
                        getItemRequest.ItemShape.BaseShape = DefaultShapeNamesType.AllProperties

                        ' This makes sure the message type comes to us in text.
                        ' Sometimes we need to do HTML to prevent transport errors of TEXT requests when HTML is sent.
                        Try
                            ' First Try as Text
                            getItemRequest.ItemShape.BodyType = BodyTypeResponseType.Text
                            getItemRequest.ItemShape.BodyTypeSpecified = True
                            getItemRequest.ItemIds = arrBaseItem
                            getItemRequest.ItemIds(0) = inboxItem.ItemId

                            'Dim objPath(1) As PathToUnindexedFieldType
                            'objPath(0) = New PathToUnindexedFieldType
                            'objPath(0).FieldURI = UnindexedFieldURIType.messageSender
                            'getItemRequest.ItemShape.AdditionalProperties = objPath

                            getItemResponse = esb.GetItem(getItemRequest)
                        Catch exTest1 As Exception
                            ' We were unable to transport the e-mail to text format.
                            ' This can happen when message is HTML produced by something other than a Microsoft Product.
                            Try
                                ' Use best which usually will be HTML
                                getItemRequest.ItemShape.BodyType = BodyTypeResponseType.Best
                                getItemRequest.ItemShape.BodyTypeSpecified = True
                                getItemRequest.ItemIds = arrBaseItem
                                getItemRequest.ItemIds(0) = inboxItem.ItemId
                                getItemResponse = esb.GetItem(getItemRequest)
                            Catch exTest2 As Exception
                                Throw exTest2
                            End Try
                        End Try

                        ' We only passed in one ItemId to the GetItem
                        ' request. Therefore, we can assume that
                        ' we got at most one Item back.
                        getItemResponseMessage = Nothing
                        getItemResponseMessage = getItemResponse.ResponseMessages.Items(0)

                        If getItemResponse IsNot Nothing Then
                            If (getItemResponseMessage.ResponseClass = ResponseClassType.Success) And (getItemResponseMessage.Items.Items IsNot Nothing) And getItemResponseMessage.Items.Items.Length() > 0 Then
                                inboxItem = getItemResponseMessage.Items.Items(0)

messageBody = inboxItem.Body

                                Console.WriteLine("=================================")
                                'Console.WriteLine("Message Received: " & inboxItem.InternetMessageHeaders(3).Value)
                                Console.WriteLine("Message ID: " & inboxItem.ItemId.Id)

'Dim strEmail As String = ""
'Dim getFromEmailAddress As New SingleRecipientType

'getFromEmailAddress = getItemResponseMessage.Items.I

'SingleRecipientType getFromEmailAddress = ((ExchangeWebServices.MessageType)(getItemResponseMessage.Items.Items[0])).From;
'strEmail = getFromEmailAddress.Item.EmailAddress;

                                Console.WriteLine("From: " & objFrom.Item.Name) ' Display name Still can not figure out email address. Always nothing.
                                Console.WriteLine("To:   " & inboxItem.DisplayTo)
                                Console.WriteLine("CC:   " & inboxItem.DisplayCc)
                                Console.WriteLine("Subject:   " & inboxItem.Subject)
                                Console.WriteLine("Has Attachments?: " & inboxItem.HasAttachments)

                                If inboxItem.HasAttachments Then
                                    ' This message has attachments. Download them.
                                    With My.Computer.FileSystem
                                        If .DirectoryExists("c:\mail") = False Then
                                            .CreateDirectory("c:\mail")
                                        Else
                                            .DeleteDirectory("c:\mail", FileIO.DeleteDirectoryOption.DeleteAllContents)
                                            .CreateDirectory("c:\mail")
                                        End If
                                    End With
                                    colAttachments = DownloadAttachments(esb, inboxItem, "c:\mail\")
                                    Console.WriteLine("Number of attachments?: " & colAttachments.Count)
                                    Dim intCnt As Integer = 0
                                    For Each strAttachment As String In colAttachments
                                        intCnt += 1
                                        Console.WriteLine("Attachment File location (" & intCnt & "): " & strAttachment)
                                    Next

                                End If
                                Console.WriteLine("Message Body: (Text Format)")
                                Console.WriteLine(messageBody.Value)
                                Console.WriteLine("=================================")

' Reply to the email
'ReplyEmail(esb, inboxItem.ItemId, "This is my reply to the sent message")

' Forward the email
'ForwardEmail(esb, inboxItem.ItemId, "This is a forwarded message", "eddiepundt@yahoo.com")

' Mark the message as read
SetReadStatus(esb, inboxItem.ItemId)

' Move the item to a folder we manually created in Outlook under the inbox named Test
MoveMsgFromInboxToFolder(esb, inboxItem.ItemId, "Test")

' Lets only do one now for our testing
'Exit Sub

Else

End If

                        Else
                            ' Return Nothing
                        End If
                    Next

                Else
                    ' ???
                End If
            Next

        Catch ex As Exception
            Throw ex
        Finally
            If esb IsNot Nothing Then esb.Dispose() : esb = Nothing
        End Try

End Sub

    ''' <summary>
    ''' Marks an email message as read. Msgs that are already marked as read can be passed in without error.
    ''' </summary>
    ''' <param name="esb">Exchange web binding</param>
    ''' <param name="item">inbox item</param>
    ''' <returns>Returns True if successfull</returns>
    ''' <remarks></remarks>
    Public Function SetReadStatus(ByRef esb As ExchangeServiceBinding, ByVal item As ItemIdType) As Boolean

        Dim setField As New SetItemFieldType
        Dim Path As New PathToUnindexedFieldType
        Dim message As New MessageType
        Dim updatedItems(1) As ItemChangeType
        Dim ItemChangeDescriptionType(1) As ItemChangeDescriptionType
        Dim updates(1) As ItemChangeDescriptionType
        Dim request As New UpdateItemType
        Dim response As New UpdateItemResponseType

        Try
            message.IsRead = True
            message.IsReadSpecified = True
            setField.Item1 = message
            Path.FieldURI = UnindexedFieldURIType.messageIsRead

            setField.Item = Path
            updatedItems(0) = New ItemChangeType()
            updatedItems(0).Updates = ItemChangeDescriptionType
            updatedItems(0).Updates(0) = setField

updates(0) = New ItemChangeDescriptionType()
updates(0).Item = Path

            Dim objItemIdType As New ItemIdType
            objItemIdType.Id = item.Id
            objItemIdType.ChangeKey = item.ChangeKey

updatedItems(0).Item = objItemIdType

            request.ItemChanges = updatedItems
            request.ConflictResolution = ConflictResolutionType.AutoResolve
            request.MessageDisposition = MessageDispositionType.SaveOnly
            request.MessageDispositionSpecified = True

response = esb.UpdateItem(request)

            If (response.ResponseMessages.Items(0).ResponseClass <> ResponseClassType.Success) Then
                Return False
            Else
                Return True
            End If

        Catch ex As Exception
            Throw ex
        End Try

End Function

    Private Function ValidateCertificate(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
        'Return True to force the certificate to be accepted.
        Return True
    End Function

    ''' <summary>
    ''' Uses the EWS Exchange Webservice to send an email with an attachment. The attachment can not be
    ''' blank when using this function. Use another function like sengmsg if no attachment is needed.
    ''' </summary>
    ''' <param name="strEmailaddressTo">Email addresses delimited by a , or ; . Blank string allowed only if BCC is used</param>
    ''' <param name="strEmailaddressCC">Email addresses delimited by a , or ; . Blank string allowed.</param>
    ''' <param name="strEmailaddressBCC">Email addresses delimited by a , or ; . Blank string allowed</param>
    ''' <param name="strEmailaddressFrom">Only one email address from a sender you want to identify. May not be blank.</param>
    ''' <param name="strSubjectOfMessage">A text string showing the subject.</param>
    ''' <param name="strBodyOfMessage">This maybe a text message or HTML markup. See ewsBodyType param to specify.</param>
    ''' <param name="strAttachmentFilePath">A string array of fullpath file locations.</param>
    ''' <param name="ewsBodyType">BodyTypeType.HTML = 0 is the default. BodyTypeType.Text = 1 if you want to send a text only message.</param>
    ''' <remarks>All errors thrown back to the caller on error conditions.</remarks>
    Public Sub sendmsgWithAttachment(ByVal strEmailaddressTo As String, _
                                     ByVal strEmailaddressCC As String, _
                                     ByVal strEmailaddressBCC As String, _
                                    ByVal strEmailaddressFrom As String, _
                                    ByVal strSubjectOfMessage As String, _
                                    ByVal strBodyOfMessage As String, _
                                    ByVal strAttachmentFilePath() As String, _
                                    Optional ByVal ewsBodyType As BodyTypeType = BodyTypeType.HTML)

        Dim UnreadCount As Integer = 0
        Dim emailMessage As MessageType
        Dim iiCreateItemid As ItemIdType
        Dim esb As New ExchangeServiceBinding
        Dim arrEmailAddressType(1) As EmailAddressType
        Dim arrEmailAddressTypeCC(1) As EmailAddressType
        Dim arrEmailAddressTypeBCC(1) As EmailAddressType
        Dim arrEmailTo(1) As String
        Dim arrEmailCC(1) As String
        Dim arrEmailBCC(1) As String

        Try
            esb.RequestServerVersionValue = New RequestServerVersion
            esb.RequestServerVersionValue.Version = ExchangeVersionType.Exchange2007_SP1

esb.Credentials = New NetworkCredential(_objAuth.userid, _objAuth.pswd, _objAuth.domain)
esb.Url = _objAuth.esbUrl

'ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateCertificate)

emailMessage = New MessageType

emailMessage.ToRecipients = arrEmailAddressType

emailMessage.CcRecipients = arrEmailAddressTypeCC

            ' Add the CC recipient(s) to the email message
            If strEmailaddressBCC.Trim <> "" Then
                arrEmailBCC = strEmailaddressBCC.Replace(";", ",").Split(",")
                ReDim arrEmailAddressTypeBCC(arrEmailBCC.GetUpperBound(0))

emailMessage.BccRecipients = arrEmailAddressTypeBCC

            emailMessage.From = New SingleRecipientType() ' set up a single sender
            emailMessage.From.Item = New EmailAddressType()
            emailMessage.From.Item.EmailAddress = strEmailaddressFrom
            emailMessage.Subject = strSubjectOfMessage
            emailMessage.Body = New BodyType()
            emailMessage.Body.BodyType1 = ewsBodyType ' specify HTML or plain Text
            emailMessage.Body.Value = strBodyOfMessage

iiCreateItemid = New ItemIdType
iiCreateItemid = CreateDraftMessage(esb, emailMessage)

            For i = 0 To strAttachmentFilePath.GetUpperBound(0)
                ' Append each attachment and get the new itemid
                iiCreateItemid = CreateAttachment(esb, strAttachmentFilePath(i), iiCreateItemid)
            Next

' Everything is prepared. Send out the message
SendMessage(esb, iiCreateItemid)

        Catch ex As Exception
            Throw ex
        Finally
            If esb IsNot Nothing Then esb.Dispose() : esb = Nothing
            emailMessage = Nothing
            iiCreateItemid = Nothing
            arrEmailAddressType = Nothing
        End Try

End Sub

Private Function CreateDraftMessage(ByRef ewsServiceBinding As ExchangeServiceBinding _
, ByRef emMessage As MessageType) As ItemIdType

        Dim iiItemid As New ItemIdType
        Dim ciCreateItemRequest As New CreateItemType()
        Dim dfDraftsFolder As New DistinguishedFolderIdType()
        Dim arrItems(1) As ItemType
        Dim createItemResponse As New CreateItemResponseType
        Dim rmResponseMessage As New ItemInfoResponseMessageType

        Try
            ciCreateItemRequest.MessageDisposition = MessageDispositionType.SaveOnly
            ciCreateItemRequest.MessageDispositionSpecified = True
            ciCreateItemRequest.SavedItemFolderId = New TargetFolderIdType()
            dfDraftsFolder.Id = DistinguishedFolderIdNameType.drafts
            ciCreateItemRequest.SavedItemFolderId.Item = dfDraftsFolder

            ciCreateItemRequest.Items = New NonEmptyArrayOfAllItemsType()
            ciCreateItemRequest.Items.Items = arrItems
            ciCreateItemRequest.Items.Items(0) = emMessage

createItemResponse = ewsServiceBinding.CreateItem(ciCreateItemRequest)

            If createItemResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then
                'Console.WriteLine("Error Occured")
                'Console.WriteLine(createItemResponse.ResponseMessages.Items(0).MessageText)
                Throw New Exception(createItemResponse.ResponseMessages.Items(0).MessageText)
            Else
                rmResponseMessage = createItemResponse.ResponseMessages.Items(0)
                'Console.WriteLine("Item was created")
                'Console.WriteLine("Item ID : " + rmResponseMessage.Items.Items(0).ItemId.Id.ToString())
                'Console.WriteLine("ChangeKey : " + rmResponseMessage.Items.Items(0).ItemId.ChangeKey.ToString())
                iiItemid.Id = rmResponseMessage.Items.Items(0).ItemId.Id.ToString()
                iiItemid.ChangeKey = rmResponseMessage.Items.Items(0).ItemId.ChangeKey.ToString()

            End If
            Return iiItemid
        Catch ex As Exception
            Throw ex
        End Try

End Function

Private Function CreateAttachment(ByRef ewsServiceBinding As ExchangeServiceBinding, _
ByVal fnFileName As String, ByRef iiCreateItemid As ItemIdType) As ItemIdType

Dim iiAttachmentItemid As New ItemIdType
Dim fsFileStream As FileStream

        Dim faFileAttach As New FileAttachmentType()
        Dim amAttachmentMessage As New CreateAttachmentType()
        Dim caCreateAttachmentResponse As New CreateAttachmentResponseType
        Dim amAttachmentResponseMessage As New AttachmentInfoResponseMessageType
        Dim bdBinaryData(0) As Byte
        Dim brBytesRead As Long = 0
        Dim arrAttach(0) As AttachmentType

        Try
            If fnFileName.Length <> 0 Then
                If File.Exists(fnFileName) = False Then
                    Throw New Exception("The following file that was in the attachment list was not found on this computer: " & fnFileName)
                End If

                fsFileStream = New FileStream(fnFileName, FileMode.Open, FileAccess.Read)
                ReDim bdBinaryData(fsFileStream.Length)
                brBytesRead = fsFileStream.Read(bdBinaryData, 0, fsFileStream.Length)
                fsFileStream.Close()
                faFileAttach.Content = bdBinaryData
                faFileAttach.Name = fnFileName
                arrAttach(0) = faFileAttach

                amAttachmentMessage.Attachments = arrAttach
                amAttachmentMessage.ParentItemId = iiCreateItemid
            Else
                Throw New Exception("No attachements were specified with this message.")
            End If

caCreateAttachmentResponse = ewsServiceBinding.CreateAttachment(amAttachmentMessage)

            If (caCreateAttachmentResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error) Then
                Throw New Exception(caCreateAttachmentResponse.ResponseMessages.Items(0).MessageText)
                'Console.WriteLine("Error Occured")
                'Console.WriteLine(caCreateAttachmentResponse.ResponseMessages.Items(0).MessageText)
            Else
                amAttachmentResponseMessage = caCreateAttachmentResponse.ResponseMessages.Items(0)
                'Console.WriteLine("Attachment was created")
                'Console.WriteLine("Change Key : " & amAttachmentResponseMessage.Attachments(0).AttachmentId.RootItemChangeKey.ToString())
                iiAttachmentItemid.Id = amAttachmentResponseMessage.Attachments(0).AttachmentId.RootItemId.ToString()
                iiAttachmentItemid.ChangeKey = amAttachmentResponseMessage.Attachments(0).AttachmentId.RootItemChangeKey.ToString()
            End If

        Catch ex As Exception
            Throw ex
        Finally
            CreateAttachment = iiAttachmentItemid
        End Try

End Function

Private Sub SendMessage(ByRef ewsServiceBinding As ExchangeServiceBinding, _
ByRef iiCreateItemid As ItemIdType)

        Dim siSendItem As New SendItemType
        Dim arrBaseItemIdType(1) As BaseItemIdType
        Dim siSentItemsFolder As New DistinguishedFolderIdType
        Dim srSendItemReponseMessage As New SendItemResponseType

        Try
            siSendItem.ItemIds = arrBaseItemIdType
            siSendItem.SavedItemFolderId = New TargetFolderIdType()
            siSentItemsFolder.Id = DistinguishedFolderIdNameType.sentitems
            siSendItem.SavedItemFolderId.Item = siSentItemsFolder
            siSendItem.SaveItemToFolder = True
            siSendItem.ItemIds(0) = iiCreateItemid
            srSendItemReponseMessage = ewsServiceBinding.SendItem(siSendItem)

            If srSendItemReponseMessage.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then
                'Console.WriteLine("Error Occured")
                'Console.WriteLine(srSendItemReponseMessage.ResponseMessages.Items(0).MessageText)
                Throw New Exception(srSendItemReponseMessage.ResponseMessages.Items(0).MessageText)
            Else
                'Console.WriteLine("Message Sent")
            End If

        Catch ex As Exception
            Throw ex
        End Try

End Sub

    Public Function DownloadAttachments(ByRef esb As ExchangeServiceBinding, ByRef MsgItem As ItemType, _
                                    Optional ByVal strFolder As String = "c:\temp\") As Collection
        Dim arst As New AttachmentResponseShapeType
        'Dim aita As AttachmentIdType
        DownloadAttachments = New Collection

Try

            If MsgItem.HasAttachments = True Then
                ' create the attachment shape we want the mime contnet just in case this is an message item so that we can save to disk
                arst = New AttachmentResponseShapeType()
                arst.IncludeMimeContent = True
                arst.IncludeMimeContentSpecified = True

                Dim aita(MsgItem.Attachments.Length) As AttachmentIdType
                Dim gat As GetAttachmentType
                Dim gart As GetAttachmentResponseType
                Dim TheFileAttachment As FileAttachmentType
                Dim FileToDisk As Stream

'Dim TheItemAttachment As ItemType

                ' create an array of attachment ids that we want to request
                For i As Integer = 0 To MsgItem.Attachments.Length - 1
                    aita(i) = New AttachmentIdType()
                    aita(i).Id = MsgItem.Attachments(i).AttachmentId.Id

                    ' create a GetAttachment object for the GetAttachment operation
                    gat = New GetAttachmentType
                    gat.AttachmentIds = aita
                    gat.AttachmentShape = arst
                    gart = esb.GetAttachment(gat)

                    ' Save each attachment to disk
                    ' attachments can be of type FileAttachmentType or ItemAttachmentType
                    ' so we need to figure out which type we have before we manipulate it
                    DownloadAttachments = New Collection
                    For Each Attachment As AttachmentInfoResponseMessageType In gart.ResponseMessages.Items
                        Select Case Attachment.Attachments(0).GetType.Name
                            Case "FileAttachmentType"
                                ' save to disk
                                TheFileAttachment = New FileAttachmentType
                                TheFileAttachment = Attachment.Attachments(0)

FileToDisk = New FileStream(strFolder & Attachment.Attachments(0).Name, FileMode.Create)
FileToDisk.Write(TheFileAttachment.Content, 0, TheFileAttachment.Content.Length)

FileToDisk.Flush()
FileToDisk.Close()

                                Try
                                    DownloadAttachments.Add(strFolder & Attachment.Attachments(0).Name)
                                Catch ex As Exception

End Try

                            Case "ItemAttachmentType"
                                ' Save to disk
                                'FileToDisk = New FileStream(strFolder & Attachment.Attachments(0).Name, FileMode.Create)

'TheItemAttachment = Attachment.Attachments(0)

'Not sure why I need this.

End Select

Next
Next

End If

Catch ex As Exception

Finally

End Try

End Function

    ' REPLY AN EMAIL WITH THE ITEMID AND THE REPLYBODY
    Public Sub ReplyEmail(ByRef esb As ExchangeServiceBinding, ByRef messageId As ItemIdType, _
                          ByVal replyBody As String)

Try
Dim request As New CreateItemType

            request.MessageDisposition = MessageDispositionType.SendAndSaveCopy
            request.MessageDispositionSpecified = True
            request.SavedItemFolderId = New TargetFolderIdType
            request.SavedItemFolderId.Item = New DistinguishedFolderIdType()

            Dim objDistinguishedFolderIdType As New DistinguishedFolderIdType
            objDistinguishedFolderIdType.Id = DistinguishedFolderIdNameType.sentitems
            request.SavedItemFolderId.Item = objDistinguishedFolderIdType
            '(request.SavedItemFolderId.Item as DistinguishedFolderIdType).Id = DistinguishedFolderIdNameType.sentitems

            Dim reply As New ReplyToItemType() ' Reply to sender.
            'Dim reply As New ReplyAllToItemType() ' Reply to All
            'Dim reply As New ForwardItemType ' To Forward

            reply.ReferenceItemId = messageId ' // Id of the message to which to reply
            reply.NewBodyContent = New BodyType()
            reply.NewBodyContent.BodyType1 = BodyTypeType.Text
            reply.NewBodyContent.Value = replyBody

' Set additional properties on the reply object if you wish...
Dim response As New CreateItemResponseType

request.Items = New NonEmptyArrayOfAllItemsType()
request.Items.Items = New ItemType() {reply}

response = esb.CreateItem(request)

If (response.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Success) Then

                ' Success, the reply was sent and saved in the SentItems folder.
                ' NB: Since sending a message is an asynchronous operation, NO ITEM ID IS RETURNED.
                ' To obtain the Id of the reply message, set the MessageDisposition flag above to SaveOnly.
                ' The Id can be found in the response:
                ' ItemIdType replyId = ((ItemInfoResponseMessageType)response.ResponseMessages.Items(0)).Items.Items(0).ItemId
                ' You can then call SendItem to send the message.

            Else
                ' An error has occurred
                Throw New Exception("Unable to reply to the email.")
            End If

        Catch ex As Exception
            Throw ex
        End Try

End Sub

    ' Forward AN EMAIL WITH THE ITEMID AND THE REPLYBODY
    Public Sub ForwardEmail(ByRef esb As ExchangeServiceBinding, ByRef messageId As ItemIdType, _
                          ByVal replyBody As String, ByVal strEmailToForwardTo As String)

Try
Dim request As New CreateItemType

Dim reply As New ForwardItemType ' To Forward

            Dim arrForwardTo(1) As EmailAddressType
            arrForwardTo(0) = New EmailAddressType
            arrForwardTo(0).EmailAddress = strEmailToForwardTo

reply.ToRecipients = arrForwardTo

' Set additional properties on the reply object if you wish...
Dim response As New CreateItemResponseType

request.Items = New NonEmptyArrayOfAllItemsType()
request.Items.Items = New ItemType() {reply}

response = esb.CreateItem(request)

If (response.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Success) Then

            Else
                ' An error has occurred
                Throw New Exception("Unable to reply to the email.")
            End If

        Catch ex As Exception
            Throw ex
        End Try

End Sub

End Module

clsCredentials code

Public Class clsAuth
    Private _strUserID As String = "<username>"
    Private _strPswd As String = "<password>"
    Private _strEmail As String = "edward.pundt@mlis.state.md.us"

Private _strDomain As String = "Exchange"
Private _strESBUrl As String = https://essXX.exchange.mga/EWS/Exchange.asmx

    Public ReadOnly Property esbUrl() As String
        Get
            Return _strESBUrl
        End Get
    End Property

    Public ReadOnly Property domain() As String
        Get
            Return _strDomain
        End Get
    End Property

    Public ReadOnly Property userid() As String
        Get
            Return _strUserID
        End Get
    End Property

    Public ReadOnly Property pswd() As String
        Get
            Return _strPswd
        End Get
    End Property

    Public ReadOnly Property email() As String
        Get
            Return _strEmail
        End Get
    End Property

End Class

Windows OS: Control Panel Command line

2010-03-19T13:33:00.000-04:00

Just remember that you need to type control and then the applet’s name on the run screen.

Accessibility Options
access.cpl

Add/Remove Programs
appwiz.cpl

Add Hardware Wizard
hdwwiz.cpl

Administrative Tools
admintools

Automatic Updates
wuaucpl.cpl

Bluetooth Properties
bthprops.cpl

Control Panel
panel

Desktop Properties
desktop

Desktop Appearances Properties
color

Display Properties
desk.cpl

Fastfind Properties
findfast.cpl

Firewall Properties
firewall.cpl

Fonts Folder
fonts

Game Controllers
joy.cpl

Infrared Properties
infrared

Internet Options
inetcpl.cpl

iSCSI Initiator
iscsicpl.cpl

Java Control Panel
jpicpl32.cpl

Keyboard Properties
main.cpl keyboard

Licensing Mode
liccpa.cpl

Mouse Properties
main.cpl

Network Connections
ncpa.cpl

Network Setup Wizard
netsetup.cpl

ODBC Properties
odbccp32.cpl

Power Options
powercfg.cpl

Printers Folder
printers

Regional and Language Options
intl.cpl

Scanners and Camera Properties
sticpl.cpl

Schedule Tasks
schedtasks

Sound and Audio Devices
mmsys.cpl

Stored Passwords
keymgr.cpl

System Properties
sysdm.cpl

Telephone and Modem Properties
telephon.cpl

Time and Date Settings
timedate.cpl

User Accounts
nusrmgr.cpl

User Accounts Advances
userpasswords2

User Passwords
userpasswords

Windows Security Center
wscui.cpl

Wireless Link
irprops.cp

VB.Net IDisposable interface

2010-03-03T10:52:00.002-05:00

http://msdn.microsoft.com/en-us/library/system.idisposable.aspx

This link explains how to properly dispose of a class if you need to dispose of Managed or Unmanaged resources.

The example is also listed here. It clearly will need to be modified to fit your situation but the comments are great.

Imports System
Imports System.ComponentModel

' The following example demonstrates how to create
' a resource class that implements the IDisposable interface
' and the IDisposable.Dispose method.
Public Class DisposeExample

  ' A class that implements IDisposable.
  ' By implementing IDisposable, you are announcing that 
  ' instances of this type allocate scarce resources.
  Public Class MyResource
     Implements IDisposable
     ' Pointer to an external unmanaged resource.
     Private handle As IntPtr
     ' Other managed resource this class uses.
     Private component As component
     ' Track whether Dispose has been called.
     Private disposed As Boolean = False

     ' The class constructor.
     Public Sub New(ByVal handle As IntPtr)
        Me.handle = handle
     End Sub

     ' Implement IDisposable.
     ' Do not make this method virtual.
     ' A derived class should not be able to override this method.
     Public Overloads Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        ' This object will be cleaned up by the Dispose method.
        ' Therefore, you should call GC.SupressFinalize to
        ' take this object off the finalization queue 
        ' and prevent finalization code for this object
        ' from executing a second time.
        GC.SuppressFinalize(Me)
     End Sub

     ' Dispose(bool disposing) executes in two distinct scenarios.
     ' If disposing equals true, the method has been called directly
     ' or indirectly by a user's code. Managed and unmanaged resources
     ' can be disposed.
     ' If disposing equals false, the method has been called by the 
     ' runtime from inside the finalizer and you should not reference 
     ' other objects. Only unmanaged resources can be disposed.
     Private Overloads Sub Dispose(ByVal disposing As Boolean)
        ' Check to see if Dispose has already been called.
        If Not Me.disposed Then
           ' If disposing equals true, dispose all managed 
           ' and unmanaged resources.
           If disposing Then
              ' Dispose managed resources.
              component.Dispose()
           End If

           ' Call the appropriate methods to clean up 
           ' unmanaged resources here.
           ' If disposing is false, 
           ' only the following code is executed.
           CloseHandle(handle)
           handle = IntPtr.Zero

           ' Note disposing has been done.
           disposed = True

        End If
     End Sub

     ' Use interop to call the method necessary  
     ' to clean up the unmanaged resource.
     ("Kernel32")> _
     Private Shared Function CloseHandle(ByVal handle As IntPtr) As [Boolean]
     End Function

     ' This finalizer will run only if the Dispose method 
     ' does not get called.
     ' It gives your base class the opportunity to finalize.
     ' Do not provide finalize methods in types derived from this class.
     Protected Overrides Sub Finalize()
        ' Do not re-create Dispose clean-up code here.
        ' Calling Dispose(false) is optimal in terms of
        ' readability and maintainability.
        Dispose(False)
        MyBase.Finalize()
     End Sub
  End Class

  Public Shared Sub Main()
     ' Insert code here to create
     ' and use the MyResource object.
  End Sub

End Class

Outlook 2007 - Enable bcc

2010-03-02T10:07:00.001-05:00

1. From the Outlook toolbar, click New and select Mail Message.

2. A new message window will appear.

3. Go to the Ribbon and select the Options tab.

4. In the Fields section, select Show Bcc.

5. The Bcc field will appear. Place the address(es) you wish to send a blind carbon copy

DQL Reference Manual for 6.5

2010-02-05T09:39:00.000-05:00

http://www.scribd.com/doc/11468134/DQL-Reference-Manual-65

HTML - Web Development Tab Control

2010-02-02T15:51:00.000-05:00

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<head>
<title>Tab View Script</title>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<script type="text/javascript">
function TabView(id, current) {
if (typeof (TabView.cnt) == "undefined") {
TabView.init();
}
current = (typeof (current) == "undefined") ? 0 : current;
this.newTab(id, current);
}
TabView.init = function() {
TabView.cnt = 0;
TabView.arTabView = new Array();
}
TabView.switchTab = function(TabViewIdx, TabIdx) {
TabView.arTabView[TabViewIdx].TabView.switchTab(TabIdx);
}
TabView.prototype.newTab = function(id, current) {
var TabViewElem, idx = 0, el = '', elTabs = '', elPages = '';
TabViewElem = document.getElementById(id);
TabView.arTabView[TabView.cnt] = TabViewElem;
this.TabElem = TabViewElem;
this.TabElem.TabView = this;
this.tabCnt = 0;
this.arTab = new Array();
// Loop throught the elements till the object with
// classname 'Tabs' is obtained
elTabs = TabViewElem.firstChild;
while (elTabs.className != "Tabs") elTabs = elTabs.nextSibling;
el = elTabs.firstChild;
do {
if (el.tagName == "A") {
el.href = "javascript:TabView.switchTab(" + TabView.cnt + "," + idx + ");";
this.arTab[idx] = new Array(el, 0);
this.tabCnt = idx++;
}
} while (el = el.nextSibling);

// Loop throught the elements till the object with
// classname 'Pages' is obtained
elPages = TabViewElem.firstChild;
while (elPages.className != "Pages") elPages = elPages.nextSibling;
el = elPages.firstChild;
idx = 0;
do {
if (el.className == "Page") {
this.arTab[idx][1] = el;
idx++;
}
} while (el = el.nextSibling);
this.switchTab(current);
// Update TabView Count
TabView.cnt++;
}
TabView.prototype.switchTab = function(TabIdx) {
var Tab;
if (this.TabIdx == TabIdx) return false;
for (idx in this.arTab) {
Tab = this.arTab[idx];
if (idx == TabIdx) {
Tab[0].className = "ActiveTab";
Tab[1].style.display = "block";
Tab[0].blur();
} else {
Tab[0].className = "InactiveTab";
Tab[1].style.display = "none";
}
}
this.TabIdx = TabIdx;

}
function init() {
t1 = new TabView('TabView1');
t2 = new TabView('TabView2', 1);
}
</script>

<style type="text/css">
body,div,table{font:normal 11px Verdana, Arial, sans-serif;}
.TabView{
width:650px;height:250px;border:1px #CCC solid;margin:25px;
}
.TabView .Tabs {
height:26px;display:block;background:#CCC;
}
.TabView .Tabs a {
display:block;float:left;width:75px;height:25px;line-height:25px;color:#333;text-align:center;text-decoration:none;font-weight:bold;border:1px #666 dashed;margin:0px 2px;
}
.TabView .Tabs a.ActiveTab{
background:#FFF;border:1px #666 solid;border-bottom:1px #FFF solid;
}
.TabView .Tabs a.InactiveTab{

}
.TabView .Pages{
width:100%;
}
.TabView .Pages .Page{
border:1px #CCC solid;height:222px;
}
</style>
</head>

<body onload="init()">
<table style="width:100%;height:100%;">
<tr><td>
<center>

<div class="TabView" id="TabView1">

<div class="Tabs"><a>Add</a> <a>Delete</a></div>

<div class="Pages">

<div class="Page">
<table cellspacing="0" cellpadding="0" height="100%">
<tr><td>Some of the features of this script.<br/>
<ul>
<li>Search Engine Friendly</li>
<li>Space saving</li>
<li>Easy to use.</li>
<li>User friendly</li>
</ul></td>
</table>
</div>

<div class="Page">
<table cellspacing="0" cellpadding="0" style="margin:5px;">
<tr><td><h2>This is the second page.</h2>
<p>As you can see, the process can be broken down into clearly-identifiable segments. There's the connection phase (which opens a connection to the FTP server); the authentication phase (where the user identifies himself or herself and is permitted access to the FTP site); the transaction phase (which involves operations like directory navigation, file listing, and file GET or PUT); and the disconnection phase (which terminates the FTP connection cleanly). Nice and symmetrical, right?</p>
<p><B>...In With The New</B><BR>Initiating an FTP connection in PHP follows the same basic principles: open an FTP connection, send authentication information, and then use built-in PHP functions to navigate through directories or transfer files. Let's take a look at the PHP version of the session you just saw.</td>
</table>
</div>
</div>
</div>

</form>
</center></td></tr></table>
</body>
</html>

JavaScript - How To Maximize the Browser

2010-01-28T17:13:00.000-05:00

<%--This will Maximize the Browser Window--%>
<script language="JavaScript1.2">
top.window.moveTo(0,0);
if (document.all)
{ top.window.resizeTo(screen.availWidth,screen.availHeight); }
else if
(document.layers || document.getElementById)
{
if
(top.window.outerHeight < screen.availHeight || top.window.outerWidth <
screen.availWidth)
{ top.window.outerHeight = top.screen.availHeight;
top.window.outerWidth = top.screen.availWidth; }
}
</script>

Blogger - Posting code with tags

2010-01-28T10:46:00.000-05:00

What a pain this is. I just use this site to convert HTML or XML with < & > to the < and > .

http://centricle.com/tools/html-entities/

ASP.Net - Simple AJAX Template to use

2010-01-28T10:11:00.001-05:00

Just put the following in the form tag within the body or elsewhere.

Example:
<asp:ScriptManager ID="ScriptManager1" runat="server" />
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>

</ContentTemplate>
</asp:UpdatePanel>

New ideas - New Slant on devices

2010-01-27T11:16:00.001-05:00

MIT student shares his ideas on portable technology.

Pranav Mistry at TED; The Sixth Sense - part 1
part1

Pranav Mistry at TED; The Sixth Sense -
part 2

VB .Net (Syntax): Validate if time in interval

2010-01-27T09:39:00.008-05:00

Here is some code to find out if the current time is within an interval of time to determine if something should be on or off.

Dim tmNow As DateTime = Now.Hour & ":" & Now.Minute & ":" & Now.Second ' Current time.
Dim tmStartOfDay As DateTime = "10:34:00" ' 9:34 AM
Dim tmEndOfDay As DateTime = "23:30:00" ' 11:30 PM

'MsgBox(DateDiff(DateInterval.Second, tmEndOfDay, tmStartOfDay), , "If Negative Keep on") ' 11:30PM - 9:30AM If Negative Early in Day.
'MsgBox(DateDiff(DateInterval.Second, tmStartOfDay, tmNow), , "If Positive turn on")

If DateDiff(DateInterval.Second, tmEndOfDay, tmNow) < 0 And DateDiff(DateInterval.Second, tmStartOfDay, tmNow) > -1 Then
' Turn on Condition. In a Valid time range
MsgBox("On")
Else
' Turn off condition. Not in a valid time range.
MsgBox("Off")
End If

Glen Burnie Life

2010-01-25T10:13:00.009-05:00

Living in Glen Burnie I see some strange things. This one I thought I'd share.

In one neighborhood in "Historic" Glen Burnie these two neighbors posted large signs on their homes to air out their complaints over chimney smoke.

The first one posts a sign...

(Chimney Smoke Kills Neighbors!)

The neighbor across the street posts a sign in response.

(Pay My GE Bill + We Stop Burning) * Refering to the BGE energy bill I assume.

You have to just love stuff like this.

SQL - Coalesce

2010-01-19T16:16:00.007-05:00

Coalesce is a very nice SQL function.

Here is an example of its use.
SELECT Distinct appl, COALESCE
(
(SELECT count(*)
FROM mga_error_log s2
WHERE s2.appl = s1.appl
and log_type = 'ERROR'
and dt_stamp > '2010-01-1'
),
''
) as thetotal
FROM mga_error_log s1
order by appl

-- Unlike the Coalesce statement applications will not be returned that are zero.
Select appl, count(*) from mga_error_log
where dt_stamp > '2010-01-1' and log_type = 'ERROR'
group by appl
order by appl

Results - The First Results are with Coalesce the others are just a count with a group by.

I also used the following statement to get the results all in one row.
(Note the Table names do not have to be the same)

Select
Coalesce( (Select count(*) from mga_error_log where log_type = 'ERROR' and appl = 'BBFS' ) , '' ) as 'BBFS',
Coalesce( (Select count(*) from mga_error_log where log_type = 'ERROR' and appl = 'CRS' ) , '' ) as 'CRS',
Coalesce( (Select count(*) from mga_error_log where log_type = 'ERROR' and appl = 'DailySynopsis' ) , '' ) as 'DailySynopsis',
Coalesce( (Select count(*) from mga_error_log where log_type = 'ERROR' and appl = 'Pubs' ) , '' ) as 'Pubs',
Coalesce( (Select count(*) from mga_error_log where log_type = 'ERROR' and appl = 'BDWebReporting' ) , '' ) as 'BDWebReporting',
Coalesce( (Select count(*) from mga_error_log where log_type = 'ERROR' and appl = 'Amendments' ) , '' ) as 'Amendments'

The results

HTML - Web Development

2010-01-13T11:45:00.003-05:00

I was wondering how to convert pix to inches and inches to pix. In order to do this you need to know your displays DPI. Could be 75, 96, or 120.

Knowing that ...

Convert pixels to inches (Output to Monitors/Printers)
Formula: Pixels ÷ DPI = Inches

Convert inches to Pixels (Input from Scanners)
Formula: Inches X DPI = Pixels

A good explanation and converter can be found here.
http://tiporama.com/tools/pixels_inches.html

SQL - Delete from one table based on another table

2009-12-08T15:17:00.003-05:00

Here is an example of performing a delete based on two tables with matching column definitions.

Delete Eddie_60 From Eddie_60
right outer join Eddie
on Eddie_60.username = Eddie.username and
Eddie_60.cell_number = Eddie.cell_number

If table named Eddie_60 has 100 entries and table Eddie has 1 or two entries found in table Eddie_60, those rows are deleted in table Eddie_60.

This utilizes Deletes based on Joins of like tables. This has far better performance than using an IN() statement, especially in large result sets.

VB .Net (File IO): Read a text file with file lock

2009-11-09T14:46:00.001-05:00

' Read in the operating
Dim logFileStream As New FileStream("c:\test.txt", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Dim logFileReader As New StreamReader(logFileStream)
While Not logFileReader.EndOfStream
strTempIn = logFileReader.ReadLine()
End While
logFileReader.Close()
logFileStream.Close()

Windows OS: Dump directory info to a file

2009-10-06T14:38:00.002-04:00

The following command line allows you to dump the folder information to a flat file for the directory you are in.

dir /a /-p /o:gen >c:\filelisting.txt

Ipod - Endless recovery

2009-09-10T10:08:00.002-04:00

I was getting the following non-sense message from itunes when attempting to sync a podcast.

"iTunes has detected an ipod in recovery mode. You must restore this ipod before it can be used with itunes."

In short it is related a drive letter assignment problem on the device. Right click my computer -> Select manage -> Disk management

In the drive that is labeled ipod right click and change its drive letter to "z" or any other one that is available. Most likely your work log in script is mapping drives and it overwrote the one you had.

See this article for more details.
http://support.apple.com/kb/TS1456?viewlocale=en_US

Don't panic if you have to restore the ipod as well. But that alone will not work.

Outlook: Plain text email eating line breaks but why.

2009-08-25T08:39:00.003-04:00

I had a problem recently with Microsoft Outlook eating extra line breaks in a message when it should not have. Here is what the message should have looked like.

Analyst(s) assigned to this request: Pundt, Edward

Reviewer(s) assigned to this request: Pundt, Edward

Support staff assigned to this request: class1

Instead when the message was sent it looked like this.

Analyst(s) assigned to this request: Pundt, Edward

Reviewer(s) assigned to this request: Pundt, Edward Support staff assigned to this request: class1

Outlook follows certain rules when determining when to eat extra line breaks. After contacting Microsoft technical support I got an answer. I thought I'd share it with you. See below.

Edward,

I’ve debugged this to see what Outlook was doing in these scenarios. Basically, Outlook is using three rules to determine whether or not to remove line breaks and join a previous line. If two lines are separated by a single line break in your plain text message Outlook uses the following rules to decide whether or not to remove line breaks:

1> Does the previous line *not* end in a end of line character which is defined as any one of the following:

. ! ‘ ` ? : “

2> Does the current line’s first word contain a “list character” which is defined as any one of the following:

: - * ) 1 2 3 4 5 6 7 8 9

3> Does the previous line contain less than 32 contiguous characters?

If any of these rules evaluate to true then we will *not* remove the extra line breaks. To illustrate, I’ll apply these rules to the lines in your message:

Analyst(s) assigned to this request: Pundt, Edward

Reviewer(s) assigned to this request: Pundt, Edward Support staff assigned to this request: class1

Looking at your email I had two questions in mind: 1) Why does Outlook not remove the line break between the Analyst(s) and Reviewer(s) lines and 2) Why does Outlook remove the line break between the Reviewer(s) and Support lines?

The answer to question #1 is that “Reviewer(s)” has a list character in it and therefore rule #2 is true so the line break remains. The answer to question #2 is that the none of the rules return true since “Support” doesn’t contain a list character and the Reviewer(s) line does not end with a end of line character. There are a couple easy solutions here:

1> End each line with an end of line character

2> Start each line with a list character

Ending each line with a “.” seems like a simple solution that makes sense to me. Let me know if you have any questions.

Thanks!

Matt Stehle

Email and SMS - Send Text Msg via Email

2009-07-09T13:25:00.001-04:00

Here are the email addresses for the 6 most popular cellular phone carriers:

T-Mobile: phonenumber@tmomail.net
Virgin Mobile: phonenumber@vmobl.com
Cingular: phonenumber@cingularme.com
Sprint: phonenumber@messaging.sprintpcs.com
Verizon: phonenumber@vtext.com
Nextel: phonenumber@messaging.nextel.com

where phonenumber = your 10 digit phone number

Documentum (DQLs): Register a Table Example

2009-07-01T11:02:00.000-04:00

update dm_registered object
set owner_table_permit = 15,
set group_table_permit = 1,
set world_table_permit = 7
where table_name = 'mga_report_used_log'

Reference: ASCII Table

2009-06-24T14:08:00.005-04:00

The following ASCII Table can be found here.

Utilities: Online Character count

2009-06-23T08:00:00.003-04:00

If you need a character count a blob of text real quick, browse to this site and paste the text.
http://www.javascriptkit.com/script/script2/charcount.shtml

Ubuntu Linux: How to burn an Audio CD from MP3s

2009-06-20T07:38:00.002-04:00

The following is an edited selection from the following blog... http://www.ubuntu-unleashed.com/2008/10/howto-burn-audio-cds-from-mp3-in-ubuntu.html

Recently I had to burn a audio cd from mp3. I tried brasero, with the audio project button and added the mp3's, then I clicked burn, and guess what, it burned the mp3's right to disk without converting them to cda format lol! Here is how you burn an audio cd:

First grab k3b by clicking here

Now once that is installed grab libk3b3-extracodecs by clicking here

Click on audio cd project then navigate to your mp3 folder and just click once on the files u want copied over to disk, then click burn
That was easy, now for the less easier part that still is pretty easy... Now open up k3b via Applications->Sound and Video->k3

PundtNotes

SQL Server - Select where each row is numbered row count

Powerbuilder SourceGear Vault

Visual Studio 2010 - Themes / Change background color

SQL Server - Split a column value

SQL Server - Compare two like tables view differences

SQL - Insert based on a Select

VB.Net - Remove element from an array

VB.Net Filter a datatable to a row array

VBS - Get Windows 7 DPI Setting

VB.Net - Using Generics to cleanup commonly disposed of items.

Ultra Edit clear lines containing String.

SQL Server - Insert data into SQL in Bulk CSV file

VB.Net - Test for a network connection

VB.Net - Parameterized Query

VB.Net - Within a time range

VB.Net - Convert GMT / UTC time to Local Time

SQL Server – Management Studio Unable to save changes

SQL Server - Update based on a Select

SQL Server (Granting table permissions)

VBA Excel – Unlock a password protected worksheet

Facebook - Close Account not disable

VB.Net - XML Read and Write using LINQ

VB.Net - Return two values from a function using key value pairs

Netsh: Get Current Network configuration

EWS (Exchange Web Services) – VB.Net Code for email

Windows OS: Control Panel Command line

VB.Net IDisposable interface

Outlook 2007 - Enable bcc

DQL Reference Manual for 6.5

HTML - Web Development Tab Control

JavaScript - How To Maximize the Browser

Blogger - Posting code with tags

ASP.Net - Simple AJAX Template to use

New ideas - New Slant on devices

VB .Net (Syntax): Validate if time in interval

Glen Burnie Life

SQL - Coalesce

HTML - Web Development

Convert pixels to inches (Output to Monitors/Printers)Formula: Pixels ÷ DPI = Inches

Convert inches to Pixels (Input from Scanners)Formula: Inches X DPI = Pixels

SQL - Delete from one table based on another table

VB .Net (File IO): Read a text file with file lock

Windows OS: Dump directory info to a file

Ipod - Endless recovery

Outlook: Plain text email eating line breaks but why.

Email and SMS - Send Text Msg via Email

Documentum (DQLs): Register a Table Example

Reference: ASCII Table

Utilities: Online Character count

Ubuntu Linux: How to burn an Audio CD from MP3s

Convert pixels to inches (Output to Monitors/Printers)
Formula: Pixels ÷ DPI = Inches

Convert inches to Pixels (Input from Scanners)
Formula: Inches X DPI = Pixels